返回列表 上一主題 發帖

[發問] 請問我想做個上下產品的比對應該怎麼寫

et010884

帖子
15 
主題
6 
精華
0 
積分
67 
點名
0  
作業系統
windows 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
來自
TW 
註冊時間
2011-4-26 
最後登錄
2023-11-13 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-12-10 14:58 | 只看該作者

[發問] 請問我想做個上下產品的比對應該怎麼寫

各位大大好 如題 由於客戶 廠商繁多 每個人需求又不一樣 常常因為輸入錯誤名稱導致生產錯誤
懇請大大幫忙指導一下 當下比對不一樣時可以跳出視窗提醒 並將底色更換

產品比對.zip (5.7 KB)

收藏 分享
師我

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
2#
發表於 2013-12-10 23:52 | 只看該作者
各位大大好 如題 由於客戶 廠商繁多 每個人需求又不一樣 常常因為輸入錯誤名稱導致生產錯誤
懇請大大幫忙指 ...
et010884 發表於 2013-12-10 14:58



    那個位置與那個位置比對?
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
15  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-12 
3#
發表於 2013-12-11 00:09 | 只看該作者
各位大大好 如題 由於客戶 廠商繁多 每個人需求又不一樣 常常因為輸入錯誤名稱導致生產錯誤
懇請大大幫忙指 ...
et010884 發表於 2013-12-10 14:58

以下程式放在 ThisWorkBook 內
  1. Private Sub Workbook_Open()
  2.   Dim lRow&
  3.   
  4.   Set dD = CreateObject("Scripting.Dictionary")
  5.   lRow = 3
  6.   With Sheets("工作表1")
  7.     Do While .Cells(lRow, 2) <> ""
  8.       If .Cells(lRow, 3) <> "" Then
  9.         If dD(CStr(.Cells(lRow, 2))) = "" Then
  10.           dD(CStr(.Cells(lRow, 2))) = CStr(.Cells(lRow, 3))
  11.         Else
  12.           If dD(CStr(.Cells(lRow, 2))) <> .Cells(lRow, 3) Then
  13.             .Cells(lRow, 3).Interior.ColorIndex = 37
  14.             MsgBox ("比對錯誤")
  15.           End If
  16.         End If
  17.       Else
  18.         .Cells(lRow, 3).Interior.ColorIndex = 37
  19.         MsgBox ("沒有產品名稱")
  20.       End If
  21.       lRow = lRow + 1
  22.     Loop
  23.   End With
  24. End Sub
複製代碼
以下程式放在 Module 內
  1. Public dD
複製代碼
以下程式放在 Sheet1 內
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.   If Target.Count = 1 Then
  3.     With Target
  4.       If (.Column = 2 Or .Column = 3) And .Offset(, 2 - .Column) <> "" And .Offset(, 3 - .Column) <> "" Then
  5.         If dD(CStr(.Offset(, 2 - .Column))) <> .Offset(, 3 - .Column) Then
  6.           .Interior.ColorIndex = 37
  7.           MsgBox ("輸入錯誤")
  8.           .Select
  9.         Else
  10.           .Interior.ColorIndex = -4142
  11.         End If
  12.       End If
  13.     End With
  14.   End If
  15. End Sub
複製代碼
產品比對-a.zip (13.49 KB)

TOP

et010884

帖子
15 
主題
6 
精華
0 
積分
67 
點名
0  
作業系統
windows 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
來自
TW 
註冊時間
2011-4-26 
最後登錄
2023-11-13 
4#
發表於 2013-12-11 09:57 | 只看該作者
回復 3# luhpro


  謝謝大大
師我

TOP

        靜思自在 : 虛空有盡．我願無窮，發願容易行願難。
返回列表 上一主題