如何插入和格式化日期？

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) = Now    
r.Offset(0, 1).NumberFormat = "mm/dd/yyyy hh:mm"

Answer 2

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