如何通过C1、C2两个下拉列表自动触发对应VBA宏？

以下是修改后的Worksheet_Change代码，可实现C1和C2下拉列表组合匹配时触发指定宏，同时保留原C1单选项的触发逻辑：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c1Val As String, c2Val As String
    
    ' 关闭事件触发，防止递归调用
    Application.EnableEvents = False
    
    ' 仅处理C1或C2单元格的变化
    If Not Intersect(Target, Range("C1:C2")) Is Nothing Then
        c1Val = Range("C1").Value
        c2Val = Range("C2").Value
        
        ' 处理C1和C2的组合条件
        Select Case c1Val
            Case "Expander 2 eff"
                Select Case c2Val
                    Case "Cycle eff"
                        Expander2effvsCycleeff
                    Case "Massflowrate"
                        Expander2effvsMassflowrate
                End Select
            ' 保留原C1单选项的触发逻辑
            Case "Expander 1 eff", "Pump eff"
                CopyIncreaseRecord
            Case "Net Power"
                CopyIncreaseRecordNetPower
        End Select
    End If
    
    ' 恢复事件触发
    Application.EnableEvents = True
End Sub

关键说明： #

• 事件范围限定：通过Intersect(Target, Range("C1:C2"))确保仅在C1或C2单元格变化时执行逻辑，避免无关操作触发代码。
• 组合条件判断：嵌套Select Case先判断C1的值，再根据C2的匹配值调用对应宏，清晰处理多组合场景。
• 防止递归：开头关闭Application.EnableEvents，结尾恢复，避免宏执行过程中修改单元格再次触发Worksheet_Change。
• 兼容原有逻辑：保留了原代码中C1单选项触发对应宏的功能，无需舍弃原有业务逻辑。

内容的提问来源于stack exchange，提问作者Jagadeshrao Thalur