Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Range("$A$1") = "关闭" Then Exit Sub
    Select Case Target.Address
    Case "$A$4"
        Call 宏1
        Cancel = True
    Case "$B$4"
        Call 宏2
        Cancel = True
    Case "$C$4"
        Call 宏3
        Cancel = True
    Case "$E$4"
        Call 宏4
        Cancel = True
    End Select
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Range("$A$1") = "关闭" Then Exit Sub
    Select Case Target.Address
    Case "$A$4"
        Call 宏1
        Cancel = True
    Case "$B$4"
        Call 宏2
        Cancel = True
    Case "$C$4"
        Call 宏3
        Cancel = True
    Case "$E$4"
        Call 宏4
        Cancel = True
    End Select
End Sub