返回列表下一主題上一主題發帖

如何取得EXCEL 時間,單位到毫秒

morris_lth

中學生 Rank: 2

帖子: 27
主題: 11
精華: 0
積分: 56
點名: 0
作業系統: WINXP
軟體版本: OFFICE2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-15
最後登錄: 2023-10-27

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2016-6-4 16:31 | 只看該作者

如何取得EXCEL 時間,單位到毫秒

下述片段功能是A列只要輸入資料,B列會自動帶出系統時間

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
   Select Case Target.Row
      Case 60000: Target(-59998, 2).Select
   End Select
If Target.Column = 1 Then
   Target.Offset(0, 1) = Now
End If
End Sub

儲存格格式設成 yyyy/m/d hh:mm:ss.000 ,得到的日期時間是這樣　
2016/6/4 14:42:10.000
2016/6/4 14:42:11.000
2016/6/4 14:42:12.000

要如何才能取得毫秒?
謝謝~

樓主熱帖

morris_lth

中學生 Rank: 2

帖子: 27
主題: 11
精華: 0
積分: 56
點名: 0
作業系統: WINXP
軟體版本: OFFICE2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-15
最後登錄: 2023-10-27

4^#

發表於 2016-6-6 08:21 | 只看該作者

謝謝協助,我用以下的程式解決此問題,給有需要的人參考參考~
Public Function TimeInMS() As String
TimeInMS = Strings.Format(Now, "dd-MMM-yyyy HH:nn:ss") & "." & Strings.Right(Strings.Format(Timer, "#0.00"), 2)
End Function

TOP

hcm19522