vba - MsgBox 用于一系列单元格

Question

我正在尝试创建一个代码，如果 G 列单元格中的内容不等于 0，则显示 MsgBox。代码仅适用于一个单元格，但不适用于整个范围 (G20:G100)。你能帮忙吗？谢谢

Private Sub Worksheet_Calculate()

If Sheets("Sheet1").Range("G20:G100").Value <> 0 Then
    MsgBox "Not equal to 0", vbOKOnly
End If

End Sub

Answer 1

尝试这样:

Private Sub Worksheet_Calculate()

    Dim myCell As Range

    For Each myCell In Range("G20:G100")
        If myCell <> 0 Then
            MsgBox myCell.Address & " is not equal to 0", vbOKOnly
            Exit Sub
        End If
    Next myCell        
End Sub

它检查范围内的每个单元格。对于它找到的第一个与 0 不同的值的单元格，它会给出一个带有其地址的 MsgBox 并退出。

您可以使 MsgBox 提供更多信息，显示单元格的当前值，如下所示:

MsgBox myCell.Address & " is " & myCell.Text, vbOKOnly

如果删除 Exit Sub，它将为每个不同于 0 的单元格显示不同的 MsgBox-es。