作者：乔山办公网日期：
返回目录：excel表格制作
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Value = "YES"
End Sub
点击单元知格就触道发功能，回被点击的单元格的值为yes
附件答有详细文档
点击工作表标签查看代码来,将一下代源码复制进入光标所在区域内:
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个单道元格时触发事件
用户为什么要双击单元格？我百认为，双击单元格目的是为了输入或者度修改，也就是change。
把双击单元格问的功能屏蔽就可以解决问题。答
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub
如果觉得这方法不够好。那就在双击时保存单元格的值专到变量，然后再worksheet_change时做判断，这样就比较绕属了。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
End Sub
在这里面写