最近有朋友发来如下问题,寻求帮助:
在b2单元格输入公式:=IF(A2<>"",TEXT(NOW(),"yyyy-m-d hh:mm"),""),希望能在输入序号时,能实时记录登记时间,但发现用此公式,登记时间还是在变动,并没有固定下来?应该如何做才能将登记时间固定下来呢?
问题
在E1单元格输入公式:=TEXT(NOW(),"yyyy-m-d hh:mm")
选中B2:B21设置数据有效性--序列
方法1:利用数据有效性录入当时时间
进入开发工具--Visual Basic,双击sheet1,录入以下代码:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row > 0 Then
If Target.Value <> "" Then
Target(1, 2) = Format(Now, "yyyy-mm-dd hh:mm")
Else
Target(1, 2) = ""
End If
End If
End Sub
方法2:利用VBA实现自动录入当时时间
联系客服