修改代码:
目前Excel中 A行输入字符,B行自动显示当前时间:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim c As Range: Set c = Target
If c.Count = 1 And c.Column = 1 Then
Application.EnableEvents = False
c.Offset(, 1) = Format(Date + Time, "yyyy/mm/dd hh:mm:ss")
c.Offset(, 1).NumberFormatLocal = "yyyy/mm/dd hh:mm:ss"
Application.EnableEvents = True
End If
End Sub
需要进行修改:F行输入字符,H行自动显示当前时间!
谢谢,大神。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Target.Column = 6 Then
Target.Offset(, 2) = Now()
Target.Offset(, 2).NumberFormatLocal = "yyyy/mm/dd hh:mm:ss"
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Target.Column = 6 Then
Target.Offset(, 2) = Now()
Target.Offset(, 2).NumberFormatLocal = "yyyy/mm/dd hh:mm:ss"
End If
End Sub