Board logo

標題: [發問] vba按鈕的問題 [打印本頁]
作者: jerrystock    時間: 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巨集
謝謝
  1. Private Sub CommandButton1_Click()

  3.     j = 2
  4.     cumVol = 0
  5.     O = Sheet1.Range("E2")
  6.     H = -99999
  7.     l = 99999

  9.     dTime = TimeValue("13:45:00") '
  10. Application.OnTime dTime, "ExeSelf"
  11. Sheet4.CommandButton1.Enabled = False
  12. Sheet4.CommandButton2.Enabled = True
  13. End Sub

  15. Private Sub CommandButton2_Click()
  16. Sheet4.CommandButton1.Enabled = True
  17. Sheet4.CommandButton2.Enabled = False
  18. Call EndExeSelf
  19. End Sub
複製代碼
作者: c_c_lai    時間: 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" 執行)
作者: jerrystock    時間: 2012-5-25 22:05

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

本帖最後由 c_c_lai 於 2012-5-27 14:43 編輯

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

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)