Question

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

Answer 1

按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单元格时触发事件，如要改为其它单元格，请修改上述代码。

附图，希望能帮到您。

Answer 2

点击工作表标签查看代码,将一下代码复制进入光标所在区域内:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
MsgBox "你选中了:" & Target.Text
End If
End Sub

****

点击A列的单元格,且选中的是1个单元格时触发事件

Answer 3

VBA有这个事件，把代码写在工作表的以下过程中：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'你的代码
End Sub