返回列表 上一主題 發帖

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

morris_lth

帖子
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

要如何才能取得毫秒?
謝謝~
收藏 分享

jackyq

帖子
319 
主題
6 
精華
0 
積分
309 
點名
0  
作業系統
xp 
軟體版本
2k 
閱讀權限
20 
性別
男 
註冊時間
2015-6-24 
最後登錄
2024-4-17 
2#
發表於 2016-6-4 18:21 | 只看該作者
GetSystemTime

TOP

hcm19522

帖子
1363 
主題
4 
精華
0 
積分
1373 
點名
0  
作業系統
WIN 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2015-9-11 
最後登錄
2024-4-25 

熱烈參與勳章
3#
發表於 2016-6-4 20:48 | 只看該作者
http://blog.xuite.net/hcm19522/twblog/419610391
參考 ~

TOP

morris_lth

帖子
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

        靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。
返回列表 上一主題