关于在Excel中VBA的问题

2025-04-14 00:53:23

推荐回答（1个）

回答1：

示例代码如下(该代码是工作表事件，应放到工作表代码窗格中）：

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "$A$1" Then
    If Target.Value <> "" Then
        Select Case Target.Value
            Case "红色"
                Sheet2.aa
            Case "黄色"
                Sheet3.aa
        End Select
    End If
End If
Application.EnableEvents = True
End Sub