如何单击一个EXECL的单元格就触发一个VBA事件,即:单击事件_VB论坛_VBA-VB论坛-华

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

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

If?Target.Address?=?"$A$1"?Then

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

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

End?If

End?Sub

上述代码，实现单击A1单元格时触发事件，如要改为其它单元格，请修改上述代码。

附图，希望能帮到您。