求助：双击任意空白单元格显示当前时间

odyssey166 · 发表于 2018-9-22 18:22

各位老师：

需要一个VBA代码，希望做到：双击任意空白单元格，在被双击的记录保存并显示当前时间（hh:mm:ss)，不需要显示日期，在双击另一个单元格时，前面的记录不被删除或更新。

希望得到大家的帮助。

谢谢大家了！

lss001 · 发表于 2018-9-22 19:25

本帖最后由 lss001 于 2018-9-22 19:29 编辑

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Locked = 0 Then If Target = "" Then Target = Application.Text(Now, "hh:mm:ss")
End Sub

丢丢表格 · 发表于 2018-9-22 19:28

本帖最后由丢丢表格于 2018-9-22 21:59 编辑

双击事件 ………………
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target = Now() - Int(Now()
’ Target = Application.Text(Now, "hh:mm:ss")
End Sub

odyssey166 · 发表于 2018-9-22 20:14

先谢谢两位老师的回复！可是我在把二位的代码放进EXCEL时，总显示缺少 End sub,怎么回事，急死了！

lss001 · 发表于 2018-9-22 20:35

本帖最后由 lss001 于 2018-9-22 23:56 编辑

第二行代码不能分开，否则会提示错误！

odyssey166 · 发表于 2018-9-22 21:22

lss001 发表于 2018-9-22 20:35
请直接复制代码
代码总共三行！！！
第一行→Private Sub Worksheet_BeforeDoubleClick(ByVal Target ...

不好意思，还是弄不好，直是太笨了！

只好上附件，麻烦你帮我放进附件的文件里！

麻烦您了！

谢谢，谢谢

lsc900707 · 发表于 2018-9-22 21:30

odyssey166 发表于 2018-9-22 21:22
不好意思，还是弄不好，直是太笨了！

只好上附件，麻烦你帮我放进附件的文件里！

放在工作表代码区就行呀：

odyssey166 · 发表于 2018-9-22 21:33

太好了，解决了问题。
非常感谢，要学的还很多啊！

再次感谢

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

[求助] 求助：双击任意空白单元格显示当前时间

评分