作者:绿色风
分类:
时间:2022-08-18
浏览:178
楼主 水星钓鱼 |
代码如下:- Private Sub Worksheet_Change(ByVal Target As Range)
- If Target.Count = 1 And Left(Target.Address, 2) = "$A" Then
- If Len(Target) Then
- Application.EnableEvents = False
- Target.Offset(0, 1) = Format(Now(), "yyyy年m月d日hh:m:s")
- Application.EnableEvents = True
- Else
- Target.Offset(0, 1).Clear
- End If
- End If
- End Sub
Excel备忘录.rar
补充内容 (2014-1-11 07:20): 请使用帖子右下角的评分功能给这个帖子评分 |
2楼 yjzstar |
版主,Application.EnableEvents 这个是为了?实际操作这个没有好像效果也一样啊!为了速度? |
3楼 水星钓鱼 |
没有- If Target.Count = 1 And Left(Target.Address, 2) = "$A" Then
这句的判断 该就会触发连锁事件,之前为了避免加了这个语句。有了第一句的判断确实没有必要了。 |
4楼 Rainjing |
为什么我打了这代码进去以后,默认开启了宏设置,还会弹出这样的窗口,每次保存都会弹出,非常的繁琐,请问怎么解决?1111.jpg |
5楼 xjycm |
很好,很强大,继续学习 |
6楼 2602 |
很强大 学习了! |
7楼 3a3a3a848 |
very gooood |
8楼 pkpkyb |
备忘一下,很好 |
9楼 玲之音籁/tx |
我第2列写内容,第5列要求自动记录时间代码该怎么写呢?谢谢 |
10楼 jimin0 |
需要代碼不會用 |
11楼 sindy049 |
谢谢楼主
|
12楼 sindy049 |
感激,这个好用 |
13楼 yeminqiang |
做个签到表很不错你
|
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素,
经与ExcelTip.Net站长Apolloh商议并征得其同意,
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示,
供有需要的人士查询使用,也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议,
可与本人沟通提出,或于本站点留言,我们会尽快处理。
在此,感谢ExcelTip.Net站长Apolloh的支持,感谢本站点所有人**绿色风(QQ:79664738)**的支持与奉献,特此鸣谢!
------本人网名**KevinChengCW(QQ:1210618015)**原ExcelTip.Net总版主之一