wintanfa   |
級別 精靈
積分 574
經驗 4577
文章 455
註冊 10-04-18 11:11
|
|
 |
 發表: 2016-09-18 10:21:06 人氣:34585  | 樓主 |
請幫忙修正下列迴圈錯誤...
敬啟者您好:
請幫忙修正下列迴圈錯誤...
啟動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 |
|
|
