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

[發問] vba按鈕的問題

jerrystock

中學生 Rank: 2

帖子: 79
主題: 26
精華: 0
積分: 111
點名: 0
作業系統: winxp
軟體版本: office 2010
閱讀權限: 20
註冊時間: 2011-12-20
最後登錄: 2022-8-3

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-5-25 19:11 | 只看該作者

[發問] vba按鈕的問題

本帖最後由 jerrystock 於 2012-5-30 11:39 編輯

請問如何在8:45:00自動按下 CommandButton1_Click
在13:45:00自動按下 CommandButton2_Click
若按下按鈕CommandButton1_Click ExeSelf巨集為什麼不會執行都必須另外手動去執行 ExeSelf巨集
謝謝

Private Sub CommandButton1_Click()
j = 2
cumVol = 0
O = Sheet1.Range("E2")
H = -99999
l = 99999
dTime = TimeValue("13:45:00") '
Application.OnTime dTime, "ExeSelf"
Sheet4.CommandButton1.Enabled = False
Sheet4.CommandButton2.Enabled = True
End Sub
Private Sub CommandButton2_Click()
Sheet4.CommandButton1.Enabled = True
Sheet4.CommandButton2.Enabled = False
Call EndExeSelf
End Sub

複製代碼

樓主熱帖

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

2^#

發表於 2012-5-25 20:59 | 只看該作者

本帖最後由 c_c_lai 於 2012-5-25 21:04 編輯

回復 1# jerrystock
dTime = TimeValue("13:45:00") ' 13:45:00 是下午一點四十五分，你在這時段之前怎麼按都無效啊！
Application.OnTime dTime, "ExeSelf" ' 表示從你按鈕後開始起算 13小時又45分後才執行 ExeSelf，
你直接去執行 ExeSelf，當然它會去執行 (因為你並不透過 Application.OnTime dTime, "ExeSelf" 執行)

TOP

jerrystock

中學生 Rank: 2

帖子: 79
主題: 26
精華: 0
積分: 111
點名: 0
作業系統: winxp
軟體版本: office 2010
閱讀權限: 20
註冊時間: 2011-12-20
最後登錄: 2022-8-3

3^#

發表於 2012-5-25 22:05 | 只看該作者

謝謝c_c_lai大大指導
原來是這樣我以為是巨集結束時間
如果要按鈕按下去馬上執行就設 dTime = TimeValue("00:00:00") 這樣對嗎?
今天盤中8:45分啟動巨集 dTime = TimeValue("10:00:00") 設定10點結果10點後就不再紀錄了
所以我以為是結束時間的設定不過為什麼會在10點停止紀錄呢 ?
還有可以不用按按鈕開啟excel就直接紀錄時間到後就自己停止呢?

TOP

c_c_lai