Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
12
返回列表 发新帖
楼主: 爱疯

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

[复制链接]
发表于 2010-10-13 17:06 | 显示全部楼层

简单事情,搞复杂化了![em01]
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
回复

使用道具 举报

发表于 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)
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-11-1 07:31 , Processed in 0.244898 second(s), 12 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表