单击一个EXECL的单元格就触发一个VBA事件

按ALT+F11打开VBA编辑窗口，如果bai只在其中一张工作表du触发事件，那么双击zhi左边工作表名称，如dao果要在当前工作簿所有工作表触发事件，请双击左边ThisWorkbook，将以下代码粘贴上去：

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

    'If Target.Address = "$J$12" Then

    'If Target.Column = 1 And Target.Count = 1 Then

    If Target.Column = 10 Then

        MsgBox "你单击了A1单元格，触发了事件！", vbOKOnly, "测试"

        '你可以在这里编写你其它的代码

    End If

End Sub