如果单元格值不等于零，那么消息框

嗨，我是新的Excel VBA。 我写了这个代码，当一个单元格的值不等于零时，会自动popup一个消息框。 这个单元取决于单元A的值减去单元B的值。

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("H60") <> 0 Then MsgBox "Not Equal zero!!!!" End If End Sub 

但是，当单元格H60为零时，消息框仍然继续popup。 为什么？

Answer 1

使用.Value2

 Private Sub Worksheet_Change(ByVal Target As Range) If Range("H60").Value2 <> 0 Then MsgBox "Not Equal zero!!!!" End If End Sub 

不过，我会build议你在那里进行一些testing，只在某些单元格更改时触发，不希望每次在表格中更改任何内容时都会触发它。

你提到的单元格依赖于其他两个单元格，你可以用这样的东西对你的testing：

 Private Sub Worksheet_Change(ByVal Target As Range) If target.address = "$I$60" or target.address = "$J$60" then If Range("H60").Value2 <> 0 Then MsgBox "Not Equal zero!!!!" End If end if End Sub 

如果I60或J60是在表单上改变了的，你可以明显的将这些改成其他的单元格引用，如果你需要的话，这将使它只能被触发，我认为你的公式是使用I60和J60