作者：绿色风
分类：
时间：2022-08-17
浏览：177
楼主
omnw |
Q:如何在输入数据后自动添加日期和时间？
A:可以使用如下VBA代码实现输入数据的同时，自动在数据后面添加日期和时间。
- Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
- Dim i As Integer
- If Target.Count = 1 Then
- Application.EnableEvents = False
- If Len(Right(Target, 13)) = 13 And Left(Right(Target, 13), 1) = ":" Then
- Target = Left(Target, Len(Target) - 13)
- End If
- Target = Target & ":" & VBA.Format(Now(), "MM月DD日,hh:mm")
- Application.EnableEvents = True
- End If
- End Sub
注：可以将“& ":" & VBA.Format(Now(), "MM月DD日,hh:mm")”的内容修改成任意需要添加的内容。自动添加信息.gif
 显示.rar
|
2楼
hd030502 |
这个我下来试试 |
3楼
cpambs2008 |
内容真好，真实用啊 |
4楼
wqfzqgk |
不如加入到备注中，这样的话数据有些就不能运算了 |
5楼
meiokok |
正找这方面的内容呢，我的需求是这样的，
比如：
给工作簿加一个执行打印的按钮（作用是打印当前工作簿的某部分内容）
当按下这个按钮后要求在C2单元格更新当前的日期和时间后再打印
（既要打印此工作簿的内容和执行打印的时刻在纸上）
在此请教版主
哦原来很容易的，解决了
Range("C2").Select
ActiveCell.FormulaR1C1 = "=NOW()" |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一