帖子: 60
主題: 12
精華: 0
積分: 93
點名: 0
作業系統: Windows7
軟體版本: excel
閱讀權限: 20
註冊時間: 2019-3-8
最後登錄: 2021-7-23

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2019-5-9 12:17 | 只看該作者

[發問] =NOW() 不會自動更新當下時間

請問各位大大：
我之前是用excel2003，只有在欄位中輸入「=NOW()」，欄位就會自動帶出時間日期，且會一直更新。
但現在改用excel2010，在欄位中輸入「=NOW()」卻只會顯示當下的時間日期，都要手動點一下欄位，欄位的時間才會更新...
請問要如何才能讓2010自動一直更新當下時間呢？

請各位大大指導！謝謝各位大大！！

樓主熱帖

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 561
主題: 160
精華: 0
積分: 725
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2024-8-7

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

2^#

發表於 2019-5-10 11:20 | 只看該作者

DEAR SIR
  於 Private Sub Workbook_Open() 加註如下

Private Sub Workbook_Open()
  Sheet1.Range("C4") = Now
  Application.OnTime Now + TimeValue("00:00:01"), "AA"
End Sub

羅

TOP

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 561
主題: 160
精華: 0
積分: 725
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2024-8-7

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

3^#

發表於 2019-5-10 13:32 | 只看該作者

Private Sub Workbook_Open()
  AA
End Sub

Sub AA()
  Sheet1.Range("C4") = Now
  Application.OnTime Now + TimeValue("00:00:01"), "AA"
End Sub

羅

TOP

cslu37

中學生 Rank: 2

帖子: 60
主題: 12
精華: 0
積分: 93
點名: 0
作業系統: Windows7
軟體版本: excel
閱讀權限: 20
註冊時間: 2019-3-8
最後登錄: 2021-7-23

4^#

發表於 2019-5-10 15:59 | 只看該作者

回復 3# rouber590324

感謝 rouber590324 指導，現在會一直跳動了^^~

只是游標一直跳來跳去...請問這樣正常嗎@@?

游標.jpg (157.36 KB)

TOP

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 561
主題: 160
精華: 0
積分: 725
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2024-8-7

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

5^#

發表於 2019-5-10 16:28 | 只看該作者

正常
把01秒執行一次改30秒執行一次.就不會如此刺眼拉

Sub AA()
Sheet1.Range("C4") = Now
Application.OnTime Now + TimeValue("00:00:30"), "AA"
End Sub

羅

TOP

cslu37

中學生 Rank: 2

帖子: 60
主題: 12
精華: 0
積分: 93
點名: 0
作業系統: Windows7
軟體版本: excel
閱讀權限: 20
註冊時間: 2019-3-8
最後登錄: 2021-7-23

6^#

發表於 2019-5-10 19:39 | 只看該作者

回復 5# rouber590324

對ㄝ~這樣就不會一直轉了~不然看得我眼都花花@@ 哈哈
謝謝rouber590324大大的指導^^~

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2843
主題: 10
精華: 0
積分: 2899
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2025-6-9

7^#

發表於 2019-5-11 11:33 | 只看該作者

本帖最後由准提部林於 2019-5-11 11:36 編輯

一般模組區:
Public xTime

Sub AA()
Range("C4").Calculate
xTime = Now + TimeValue("00:00:01")
Application.OnTime xTime, "AA"
End Sub

Sub STOP_AA()
On Error Resume Next
Application.OnTime xTime, "AA", Schedule:=False
On Error GoTo 0
End Sub
'================================
活頁簿事件區:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call STOP_AA
End Sub

Private Sub Workbook_Open()
With Sheet1.Range("C4")
.Formula = "=NOW()"
.NumberFormatLocal = "hh:mm:ss"
End With
Call AA
End Sub

時間改變, 但不影響在其它儲存格操作後, 而無法使用[復原/複製/貼上]的功能,
不過, 若公式太多, 可能會讓整個檔案卡死~~
===================

TOP

cslu37