如何在Table18的两个指定列值变化时触发VBA模块执行？

问题根源 #

Worksheet_Change事件只对用户直接编辑修改的单元格生效。你的「Group」和「Custom Type」列是通过其他列间接更新的（比如公式计算驱动），这类变更不会触发Worksheet_Change，所以之前的代码毫无反应。

可行方案：用Worksheet_Calculate事件实现 #

因为目标列是计算结果，需要借助Worksheet_Calculate事件（工作表完成计算后触发），同时通过模块级变量记录列的旧值，对比新旧值来判断是否发生变化。

具体代码实现

右键目标工作表标签→点击「查看代码」，在弹出的窗口中粘贴以下代码：

' 模块级变量，存储Group和Custom Type列的旧值
Private oldGroupValues As Variant
Private oldCustomTypeValues As Variant

Private Sub Worksheet_Activate()
    ' 工作表激活时初始化旧值，避免首次计算误触发
    With Me.ListObjects("Table18")
        oldGroupValues = .ListColumns("Group").DataBodyRange.Value
        oldCustomTypeValues = .ListColumns("Custom Type").DataBodyRange.Value
    End With
End Sub

Private Sub Worksheet_Calculate()
    Dim newGroupValues As Variant
    Dim newCustomTypeValues As Variant
    Dim i As Long
    Dim hasChange As Boolean
    
    hasChange = False
    
    With Me.ListObjects("Table18")
        ' 获取目标列当前最新值
        newGroupValues = .ListColumns("Group").DataBodyRange.Value
        newCustomTypeValues = .ListColumns("Custom Type").DataBodyRange.Value
        
        ' 对比Group列新旧值
        For i = LBound(newGroupValues) To UBound(newGroupValues)
            If newGroupValues(i, 1) <> oldGroupValues(i, 1) Then
                hasChange = True
                Exit For
            End If
        Next i
        
        ' Group列无变化时，继续检查Custom Type列
        If Not hasChange Then
            For i = LBound(newCustomTypeValues) To UBound(newCustomTypeValues)
                If newCustomTypeValues(i, 1) <> oldCustomTypeValues(i, 1) Then
                    hasChange = True
                    Exit For
                End If
            Next i
        End If
        
        ' 检测到变化则执行操作，并更新旧值
        If hasChange Then
            MsgBox "Group或Custom Type列已变更"
            ' 替换成你要运行的模块，示例：Call YourTargetModule
            oldGroupValues = newGroupValues
            oldCustomTypeValues = newCustomTypeValues
        End If
    End With
End Sub

代码说明

• Worksheet_Activate：工作表激活时记录目标列初始值，防止首次计算就触发提示。
• Worksheet_Calculate：每次工作表计算完成后，对比目标列的新旧值，发现变化则执行指定操作，同时更新旧值避免重复触发。

内容的提问来源于stack exchange，提问作者Keith K