如何插入和格式化日期？

Question

此代码在 F 列中插入一个日期。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim E As Range, F As Range, Inte As Range, r As Range
    Set E = Range("E:E")
    Set Inte = Intersect(E, Target)
    If Inte Is Nothing Then Exit Sub
    Application.EnableEvents = False
    For Each r In Inte
        If r.Offset(0, 1).Value = "" Then
            r.Offset(0, 1).Value = Date
        End If
    Next r
    Application.EnableEvents = True
End Sub

我有两个小问题。

1) 如果我点击 E 单元格，日期会发生变化。它应该在我插入一个值后发生变化，而不是在单击时发生变化。

2) 我正在尝试格式化日期。我试过这一行：

r.Offset(0, 1).Value = Date & " " & Time    
r.Offset(0, 1).Value.NumberFormat = "mm/dd/yyyy hh:mm"

我收到一个错误。

Answer 1

 r.Offset(0, 1).Value = FORMAT(NOW(), "mm/dd/yyyy hh:mm")

Answer 2

试试这个：

r.Offset(0, 1) = Now    
r.Offset(0, 1).NumberFormat = "mm/dd/yyyy hh:mm"

如何插入和格式化日期？

How to insert and format a date?

excel

vba

date-formatting