当单元格值不等于“ X”时，是否有一个vba代码可以打开msgbox？

Question

我不是vba精明，所以我认为这是最好的询问地点。我的目标是在特定单元格不等于“ X”值时显示msgbox。这是我下面的代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim myCell As Range

For Each myCell In Range("G4:G160")
    If myCell.Value <> 17521 Then
        MsgBox "INCORRECT SKU RECHECK PALLET AND INFORM SUPERVISOR"
        Exit Sub
    End If
Next myCell
End Sub

单元格值取自另一个单元格，因此未手动输入。当我运行此宏时，每次我更改单元格或单击时都会出现。当数字正确时也会出现。我只需要此msgbox仅在不等于该值时才显示。

我也希望消息显示为红色。如果这很容易，请告诉我该怎么做或更改。对我来说，最大的学习困难是因为我总是避免使用vba代码。

Answer 1

以这种方式尝试代码段，请：

If CLng(myCell.Value) <> 17521 Then
     MsgBox "INCORRECT SKU RECHECK PALLET AND INFORM SUPERVISOR"
     Exit Sub
End If

Answer 2

您的代码似乎正确。一旦在目标工作表中选择了另一个单元格，此代码就会运行，并且如果范围“ G4：G160”中的所有值