是否有一个vba代码可以在单元格值不等于特定单元格时打开消息框？

Question

我是使用 vba 的新手，所以我想知道是否有一种方法可以让 Excel 在工作表中的某个单元格的值不等于另一个单元格时显示消息框？

我看到此代码用于当单元格不等于特定值时： 是否有一个vba代码可以在单元格值不等于“X”时打开消息框？

type herPrivate 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 Sube

提前感谢您的帮助

Answer 1

它可以是这样的 - 查找函数：

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim Cell    As Excel.Range

    If Not IsEmpty(Target) Then
        For Each Cell In Range("G4:G160")
            If Not IsEmpty(Cell) Then
                If Cell = Target Then
                    Exit For
                End If
            End If
        Next
    End If
    
    If Cell Is Nothing Then
        MsgBox "INCORRECT SKU RECHECK PALLET AND INFORM SUPERVISOR", vbCritical
    Else
        Set Cell = Nothing
    End If
    
End Sub