返回列表 上一主題 發帖

[發問] 時間函數now 自動更新問題

wvsx

帖子
5 
主題
2 
精華
0 
積分
57 
點名
0  
作業系統
WIN7 
軟體版本
SP2 
閱讀權限
20 
註冊時間
2021-1-29 
最後登錄
2024-3-12 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2021-5-22 09:21 | 顯示全部帖子

[發問] 時間函數now 自動更新問題

請問各位大大，使用時間函數NOW()，輸入後以當下秒數為紀錄
使用VBA語法使NOW()自動更新，
想請問如何讓更新時間為每分鐘的第一秒
  1. Private Sub Workbook_Open()
  2.   AA
  3. End Sub

  5. Sub AA()
  6.   Sheets("DATA").Range("A1").Value = Now
  7.   Application.OnTime Now + TimeValue("00:00:30"), "AA"
  8. End Sub
複製代碼

1621645773296.jpg (10.94 KB)

1621645773296.jpg

收藏 分享

wvsx

帖子
5 
主題
2 
精華
0 
積分
57 
點名
0  
作業系統
WIN7 
軟體版本
SP2 
閱讀權限
20 
註冊時間
2021-1-29 
最後登錄
2024-3-12 
2#
發表於 2021-5-22 10:14 | 顯示全部帖子
本帖最後由 wvsx 於 2021-5-22 10:17 編輯

回復 2# samwang


當輸入NOW()函數，會以當下輸入NOW()的時間為紀錄，如圖上的秒數
以VBA設定為30秒自動更新
如圖上輸入當下時間為０９點０９分２５秒，３０秒後自動更新為０９點０９分５５秒
想讓它下次自動更新時間為０９點１０分００秒
以此類推，後續更新都是在整分００秒
請問該如何設定

TOP

        靜思自在 : 改變自己是自救，影響別人是救人。
返回列表 上一主題