Excel VBA如何同时访问两个触发值并按组合条件执行操作

你可以直接在事件中先判断本次修改的单元格是否属于两个目标触发单元格之一，只要命中任意一个就统一读取两个单元格的最新值，再执行你的组合逻辑判断即可，同时记得加事件开关避免操作单元格时递归触发事件：

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    ' 定义两个触发单元格
    Dim triger1 As Range, triger2 As Range
    Set triger1 = Me.Cells(17, 19) ' 19列17行
    Set triger2 = Me.Cells(18, 20) ' 20列18行
    
    ' 如果修改的不是两个触发单元格中的任意一个，直接退出
    If Application.Intersect(Target, Union(triger1, triger2)) Is Nothing Then
        Exit Sub
    End If
    
    ' 禁用事件，防止后续操作递归触发Change事件
    Application.EnableEvents = False
    On Error GoTo ErrHandle ' 错误捕获，避免出错后事件永久禁用
    
    ' 读取两个触发单元格当前值，统一走组合判断
    Select Case True
        Case triger1.Value = "Yes" And triger2.Value = "Yes"
            ' 对应操作写在这里
            MsgBox "两个值均为Yes"
        Case triger1.Value = "No" And triger2.Value = "Yes"
            ' 对应操作写在这里
            MsgBox "触发1为No，触发2为Yes"
        Case triger1.Value = "Yes" And triger2.Value = "No"
            ' 对应操作写在这里
            MsgBox "触发1为Yes，触发2为No"
        Case triger1.Value = "No" And triger2.Value = "No"
            ' 对应操作写在这里
            MsgBox "两个值均为No"
        Case Else
            ' 其他场景（比如单元格为空、值为其他内容）的处理逻辑
    End Select
    
ErrHandle:
    ' 无论是否出错，都重新启用事件
    Application.EnableEvents = True
End Sub

注意事项 #

• 以上代码需要放在对应工作表的代码模块中，不要放入普通模块
• 可以根据实际需求增删Case分支的判断条件
• 如果单元格存在清空的场景，可以额外加IsEmpty(triger1.Value)这类判断避免类型不匹配报错

内容的提问来源于stack exchange，提问作者Abraham Foto