Excel-VBA現在價值：拆分秒

Question

請有人幫忙。 我搜索過這個，但沒找到合適的東西。 我有一個VBA宏，當在一個單元格中輸入一個字符時，它會將當前計算機的時間放在單元格中。 我為比賽設計了一張計時表，並且需要讓賽車手完成比賽。 挑戰在於我正在使用

.Value =現在

命令，雖然我也用過

.NumberFormat =“dd / mm / yyyy hh：mm：ss.00”

命令，我沒有得到分秒。 它將返回值

2017/03/10 13：14：27：00

分秒始終為0。

如果我只是在Excel中使用NOW（）公式並將數字格式更改為包括分秒，計算機時間本身就包含分秒，並且它在那里顯示完美，但是當我使用宏時這不起作用。

任何人都可以協助我把時間縮短到第二級嗎？ 我的宏的完整代碼如下：

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim rCell As Range
Dim rChange As Range

On Error GoTo ErrHandler
Set rChange = Intersect(Target, Range("B2:B1000000"))
If Not rChange Is Nothing Then
    Application.EnableEvents = False
    For Each rCell In rChange
        If rCell > "" Then
            With rCell.Offset(0, 1)
                .Value = Now
                .NumberFormat = "dd/mm/yyyy hh:mm:ss.00"
            End With
        End If
    Next
End If
ExitHandler:
  Set rCell = Nothing
  Set rChange = Nothing
  Application.EnableEvents = True
  Exit Sub
ErrHandler:
  MsgBox Err.Description
  Resume ExitHandler
End Sub

Answer 1

您可以像這樣調用工作表函數

.Value = [Now()]