【发布时间】:2018-01-24 13:25:17
【问题描述】:
每当向工作表中的一行数据添加新值时,我都会使用以下代码在第 1 列中添加时间戳:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Or Target.Column > 11 Then Exit Sub
With Application
.EnableEvents = False
Me.Cells(Target.Row, 1) = Now
.EnableEvents = True
End With
End Sub
我是一个 VBA 初学者,谁能告诉我如何确保时间戳数据为 hh:mm 格式?目前包含日期。
【问题讨论】:
-
突出显示该列,然后选择
Format并选择Custom并输入hh:mm- 要获取它的代码,请在执行此操作之前打开宏记录器,它会为您提供代码。 -
我试过了。问题是代码被设置为在将新数据添加到同一行的相邻列时添加新的时间戳。数据是按顺序添加的,因此每次添加新戳记时都会包含日期。
-
Me.Cells(Target.Row, 1).NumberFormat = "hh:mm"