Board logo

標題: [發問] 請問我想做個上下產品的比對應該怎麼寫 [打印本頁]
作者: et010884    時間: 2013-12-10 14:58     標題: 請問我想做個上下產品的比對應該怎麼寫

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

各位大大好 如題 由於客戶 廠商繁多 每個人需求又不一樣 常常因為輸入錯誤名稱導致生產錯誤
懇請大大幫忙指 ...
et010884 發表於 2013-12-10 14:58



    那個位置與那個位置比對?
作者: luhpro    時間: 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
複製代碼
[attach]17037[/attach]
作者: et010884    時間: 2013-12-11 09:57

回復 3# luhpro


  謝謝大大



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)