返回列表 上一主題 發帖

[發問] vba按鈕的問題

jerrystock

帖子
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巨集
謝謝
  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
複製代碼
收藏 分享

jerrystock

帖子
79 
主題
26 
精華
0 
積分
111 
點名
0  
作業系統
winxp 
軟體版本
office 2010 
閱讀權限
20 
註冊時間
2011-12-20 
最後登錄
2022-8-3 
2#
發表於 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

jerrystock

帖子
79 
主題
26 
精華
0 
積分
111 
點名
0  
作業系統
winxp 
軟體版本
office 2010 
閱讀權限
20 
註冊時間
2011-12-20 
最後登錄
2022-8-3 
3#
發表於 2012-5-29 00:34 | 顯示全部帖子
謝謝c_c_lai大大 問題已解決
我覺得還是手動好了  謝謝您

TOP

        靜思自在 : 對父母要知恩，感恩、報恩。
返回列表 上一主題