求VBA代码：当单元格值与另一单元格不等时弹出MsgBox

完全可以通过VBA实现这个需求，核心是利用Excel的Worksheet_Change事件——当工作表中单元格内容发生变化时，这个事件会自动触发。下面是具体的实现方案：

基础实现代码（以对比A1和B1为例） #

假设你需要监控A1和B1两个单元格，当它们的值不相等且都不为空时弹出消息框，可将以下代码粘贴到对应的工作表模块中：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 定义需要对比的两个单元格
    Dim cell1 As Range, cell2 As Range
    Set cell1 = Me.Range("A1")
    Set cell2 = Me.Range("B1")
    
    ' 只在目标单元格发生变化时执行判断，避免不必要的触发
    If Not Intersect(Target, Union(cell1, cell2)) Is Nothing Then
        ' 关闭事件触发，防止弹窗后单元格变化再次触发事件导致递归
        Application.EnableEvents = False
        
        ' 判断两个单元格都不为空且值不相等
        If Not IsEmpty(cell1) And Not IsEmpty(cell2) Then
            If cell1.Value <> cell2.Value Then
                MsgBox "两个单元格的值不相等，请检查！", vbExclamation
            End If
        End If
        
        ' 恢复事件触发
        Application.EnableEvents = True
    End If
End Sub

代码关键点说明 #

• Worksheet_Change事件：必须写在具体的工作表模块中（右键工作表标签→查看代码），不能写在标准模块里。
• Intersect函数：用来判断变化的单元格（Target）是否在我们关注的范围内，避免每次单元格变化都执行判断，提升效率。
• Application.EnableEvents：关闭事件触发是为了防止弹出消息框后，可能的单元格操作（比如选中其他单元格）再次触发事件，造成无限循环。
• 空值判断：先检查两个单元格都不为空，避免其中一个单元格为空时误触发弹窗。

针对你提供的代码的优化建议 #

你给出的代码存在几个小问题，同时可以优化逻辑：

1. 代码开头的type her是多余的，需要删除；
2. 结尾的End Sube应该改为End Sub；
3. 循环遍历整个G4:G160效率较低，建议只判断变化的单元格是否在该区域内，再执行判断：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim watchRange As Range
    Set watchRange = Me.Range("G4:G160")
    
    ' 只处理关注区域内的单元格变化
    If Not Intersect(Target, watchRange) Is Nothing Then
        Dim myCell As Range
        For Each myCell In Intersect(Target, watchRange)
            If Not IsEmpty(myCell) And myCell.Value <> 17521 Then
                MsgBox "INCORRECT SKU RECHECK PALLET AND INFORM SUPERVISOR", vbCritical
                Exit Sub
            End If
        Next myCell
    End If
End Sub

内容的提问来源于stack exchange，提问作者Lian Keshiahian