作者：绿色风
分类：
时间：2022-08-18
浏览：193
楼主
水星钓鱼 |
代码如下：- 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总版主之一