[已解决]工作表单击事件

hhzjxss · 发表于 2010-10-13 17:06

简单事情，搞复杂化了！[em01]

cttsxsc · 发表于 2015-2-4 17:41

Private Sub Worksheet_SelectionChange(ByVal Target As Range)  '类似单击事件
Application.EnableEvents = False
If Target.Column = 1 And Target.Row >= 2 And Target.Row <= 9 And Target.Cells.Count = 1 Then
      If Cells(Target.Row, 2) = "√" Then
         Cells(Target.Row, 2) = ""
         Cells(Target.Row, 2).Select
      Else
         Cells(Target.Row, 2) = "√"
         Cells(Target.Row, 2).Select
      End If
End If
Application.EnableEvents = True
End Sub

VBA单击事件.zip (12.58 KB, 下载次数: 9)

		自动登录	找回密码
密码			注册