返回列表 上一主題 發帖

TimeValue(Now) = TimeValue 無法發事件??

t8899

帖子
764 
主題
254 
精華
0 
積分
1031 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2025-4-18 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-6-28 19:05 | 顯示全部帖子

TimeValue(Now) = TimeValue 無法發事件??

工作表的calculate事件 TEST.rar (4.5 KB)
Private Sub Worksheet_Calculate()
If TimeValue(Now) = TimeValue("18:25:00 ") Then
[A2] = 1
End If
End Sub

我把時間改為目前時間(控制台的時間)加一分鐘, 等了一分鐘也沒反應?時間到了沒辦法觸發事件???
收藏 分享

t8899

帖子
764 
主題
254 
精華
0 
積分
1031 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2025-4-18 
2#
發表於 2013-6-29 06:23 | 顯示全部帖子
Sub Start_Timer()
    Application.OnTime Now + TimeValue("00:01:00"), "Sonny"
End Sub

Sub Sonny ...
sunnyso 發表於 2013-6-28 23:01

抱歉
測試過了, 一開檔還是沒辦法觸發，要執行Start_Timer(),才會觸發
觸發條件=>目前時間加1分鐘 等於執行Start_Timer後加1分鐘
1. 在Calculate 裡無法啟動Start_Timer ???
2. 我是要在固定的時間去做某事,所以"目前時間加1分鐘" ，不適合我用

TOP

t8899

帖子
764 
主題
254 
精華
0 
積分
1031 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2025-4-18 
3#
發表於 2013-6-29 10:18 | 顯示全部帖子
本帖最後由 t8899 於 2013-6-29 10:29 編輯
1#寫法的意思是當工作表的公式有重新計算時，才會去執行Worksheet_Calculate裡面的程式
他不 ...
stillfish00 發表於 2013-6-29 09:21


我懂了
因為我的工作表，有抓股票行情, 儲存格會一直變動
我在測試時，已經收盤了.............
所以 If TimeValue(Now) = TimeValue("18:25:00 ") Then
應該也是沒問題的!
我下周一在測試看看, 謝謝
另外請教一下
If Format(Now, "hh:mm:ss") = "14:54:00" Then
[R31] = 1
及 SHEET1的R31=1  ===>此段的語法??
End If

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題