[發問] vba按鈕的問題

jerrystock

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

1. Private Sub CommandButton1_Click()
   
2. 
   
3.     j = 2
   
4.     cumVol = 0
   
5.     O = Sheet1.Range("E2")
   
6.     H = -99999
   
7.     l = 99999
   
8. 
   
9.     dTime = TimeValue("13:45:00") '
   
10. Application.OnTime dTime, "ExeSelf"
    
11. Sheet4.CommandButton1.Enabled = False
    
12. Sheet4.CommandButton2.Enabled = True
    
13. End Sub
    
14. 
    
15. Private Sub CommandButton2_Click()
    
16. Sheet4.CommandButton1.Enabled = True
    
17. Sheet4.CommandButton2.Enabled = False
    
18. Call EndExeSelf
    
19. End Sub

複製代碼

c_c_lai

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

jerrystock

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

c_c_lai

回復 3# jerrystock
你可以去參考
如何改成K棒顯示?
Page 2 最後的 #15 程式說明
或者是
請問高手要將以下DDE 每分鐘記錄改為30秒

jerrystock

謝謝c_c_lai大大 問題已解決
我覺得還是手動好了  謝謝您