在此代码中放入宏时间戳

Question

我喜欢this code，但我想在下一栏中在此脚本中添加时间戳。 我尝试了几次，但他们都发生了冲突。

非常感谢！

沃尔特

Answer 1

这样的事情：

If Not f Is Nothing Then
    With f.Offset(0, 2)
        .Value = .Value + 1
    End With
Else
    Set f = rngCodes.Cells(rngCodes.Cells.Count).End(xlUp).Offset(1, 0)
    f.Value = val
    f.Offset(0, 1).Value = "enter description"
    f.Offset(0, 2).Value = 1
    f.Offset(0, 3).Value = format(now(), "yyyy-MM-dd hh:mm:ss")
End If