Excel VBA程序开发

makelot Lv.3

2024-2-6 17:45 关注
如何在VBE(Visual Basic Editor)中，通过快捷键在光标位置插入当前日期和时间？
这个问题难点在于如何创建快捷键将结果写在VBE而不是其他地方，求助各位高手！




补充内容 (2025-11-10 19:14):
补充：注意是将结果写在VBE，VBE的任何位置，并不局限于本过程所在的代码内。
赏
1204阅读
42回复 倒序

凡尘158 Lv.2 2楼

2024-2-8 12:54
可以用工作簿事件
但是我一般用迭代计算，在一条数据输入后，自动在后面一个单元格加上数据输入的时间
试了工作簿事件，感觉有点卡，可能是我用的代码有问题

tanglf188 Lv.4 3楼

2024-2-8 15:43
SendKeys Now

makelot 楼主 4楼

2024-2-11 23:25
引用: 凡尘158 发表于 2024-2-8 12:54
可以用工作簿事件
但是我一般用迭代计算，在一条数据输入后，自动在后面一个单元格加上数据输入的时间
试 ...

时间写在单元格容易，但我想写在VBE

makelot 楼主 5楼

2024-2-11 23:31
引用: tanglf188 发表于 2024-2-8 15:43
SendKeys Now

多谢，这一句最简洁！不过只能将日期时间插入到本语句所在的程序代码中，如果能破除这个限制就好了！

makelot 楼主 6楼

2025-11-7 19:59
一年多过去了，不知各位高手有没有办法？

morpheus126 Lv.4 7楼

2025-11-7 20:26
引用: makelot 发表于 2025-11-7 19:59
一年多过去了，不知各位高手有没有办法？

输入法啊，输入法很多有快捷键的呀

lss001 Lv.7 8楼

2025-11-7 21:28
本帖最后由 lss001 于 2025-11-12 10:55 编辑
引用: makelot 发表于 2025-11-7 19:59
一年多过去了，不知各位高手有没有办法？


'''如果是当前单元格添加日期,
把以下代码复制到标准模块，
保存文件然后重新启动文件。

Sub auto_Open() '指定快捷键：Ctrl+↑
    Application.OnKey "^{Up}", "添加当前日期时间"
End Sub
Sub 添加当前日期时间()
    Application.ActiveCell = Now()
End Sub

taller Lv.18 9楼

2025-11-7 23:30
开发VBE插件

perfect1313 Lv.2 10楼

2025-11-8 14:57
引用: makelot 发表于 2025-11-7 19:59
一年多过去了，不知各位高手有没有办法？

用ahk vbs等设置快捷键 插入试试
还有一种方法 就是开发VBE插件  或者用别人开发的vbe插件 这里我用vbe2021
或者 手动填写 now 这个最合理
加载更多
高级模式
插入