HSP程式交易論壇 >> 程式交易 >> 論壇主區 >> 程式交易討論區 >> 請幫忙修正下列迴圈錯誤...
請幫忙修正下列迴圈錯誤...
wintanfa,2016-09-18 10:21:06
敬啟者您好:
請幫忙修正下列迴圈錯誤...
啟動EXCEL的VBA巨集...就持續將300列複製填滿才停...
沒有按照設定每分鐘執行一次...請幫忙指導...感恩!
Sub workbook_open()If Format(Time, "hh:mm:ss") >= "08:45:00" And Format(Time, "hh:mm:ss") <= "13:45:00" Then '判斷是否為盤中 Call Copy_paste '執行程序b Else Application.OnTime TimeValue("08:45:00"), "Copy_paste" '如果不是在盤中則等待明天開盤 End IfEnd SubPrivate Sub Timer() Counting = Now + TimeValue("00:01:00") Application.OnTime Counting, "Copy_paste"End SubPrivate Sub Copy_paste() '宣告一個程序b For i = 2 To 301 Worksheets("Sheet2").Rows(2).Copy Worksheets("Sheet1").Rows(i).PasteSpecial xlPasteValues Call Timer ActiveWorkbook.Save Next i End Sub
Hunta,2016-09-21 19:00:45
你的
Counting = Now + TimeValue("00:01:00")
不應該放在Timer()裡面
應該一開始算一次目標時間,之後當時間到的時候,再更新一次新的目標時間。
wintanfa,2016-10-09 20:17:01
敬啟者您好:
VBA巨集的設定...
假設i=1...每分鐘自動加1變成2...一直累計到300才停...
請問函數要如何編寫?...感恩!..
97 1 8: 此主題共有3帖 此頁3帖 每頁12帖
[查看完整模式] LeadBBS 5.0 耗時93.8毫秒 請求2次
|