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

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 代码。

编辑：请看下面的链接。右边的 1,2 和 3 的条形码是正确的，可以扫描到 B4 等等，错误的 4 和 5。我希望 msgbox 或用户窗体能直观地显示错误的。如果输入正确，则不会弹出。

enter image description here https://1drv.ms/x/s!AvRcvV5GEpBXnRIrzT2xDTv0iTQh?e=tV3LeN

Answer 1

您的代码似乎是正确的。一旦您在目标工作表中选择了另一个单元格，此代码就会运行，如果“G4:G160”范围内的 所有值 等于 17521，则该代码将永远不会显示 msgbox。如果出现，肯定有至少一个值 17521。 我建议改用Change Event：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim myCell As Range

    For Each myCell In Range("G4:G160")

        If (Not IsEmpty(myCell)) And myCell.Value <> 17521 And myCell.Value <> "" Then

            MsgBox "INCORRECT SKU RECHECK PALLET AND INFORM SUPERVISOR", vbCritical

            Exit Sub
        End If

    Next myCell
End Sub

关于 msgbox 的红色，您无法更改 msgbox 的颜色。你有两个选择：

1. 将Critical 图标显示为：

MsgBox "INCORRECT SKU RECHECK PALLET AND INFORM SUPERVISOR", vbCritical

在这种情况下，您会看到如下内容：

1. 创建一个用户窗体并调整其字体颜色，然后显示它而不是 MsgBox。 如果您想使用第二个选项，请告诉我，然后帮助您创建它。