如果單元格中包含值，則顯示消息框的宏

Question

我想做一個宏。我的測試單元在另一張紙上。工作表 - （數據）宏檢查範圍("D2:D10")如果單元格包含值12，如果是顯示一個消息框"Go to add to system"，並且此宏單元中的宏發現值將設置爲0.

我有此代碼，但它沒有'爲我工作我不知道爲什麼。你可以幫我嗎？

Private Sub check(ByVal Target As Range) 
For Each c In Worksheet("data").Range("D2:D10") 
If Range("D2:D10") = 12 Then 
    MsgBox "Go to add to system" 
    Range ("D2:D10").value = 0 
End If 
Next c 
End Sub 

Answer 1

下面的代碼會糾正你的代碼（它會沒有錯誤運行）：

Option Explicit 

Private Sub check(ByVal Target As Range) 

Dim c As Range 

For Each c In Worksheets("data").Range("D2:D10") 
    If c.Value = 12 Then 
     MsgBox "Go to add to system" 
     c.Value = 0 
    End If 
Next c 

End Sub 

但是，你可以用一個稍微不同的方式去 - 通過完成您試圖在達到什麼（「數據」表）的事件。

代碼

Option Explicit 

Private Sub Worksheet_Change(ByVal Target As Range) 

Dim c As Range 

' Optional : use if criteria below to check the range only 
' if one of the cells inside range("D2:D10") has changed 
If Not Intersect(Range("D2:D10"), Target) Is Nothing Then 
    ' if you decide to use the "If"above, then you don't need the "For" loop below 
    For Each c In Range("D2:D10") 
     If c.Value = 12 Then 
      MsgBox "Go to add to system" 
      c.Value = 0 
     End If 
    Next c 
End If 

End Sub