点击工作表标签查看代码,将一下代码复制进入光标所在区域内:
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个单元格时触发事件
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024