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次