版主您好:
請幫忙修正下列迴圈錯誤…
啟動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 If
End Sub
Private Sub Timer()
Counting = Now + TimeValue("00:01:00")
Application.OnTime Counting, "Copy_paste"
End Sub
Private 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
板主您好，
最近也想入門excel VBA，用來收集一些資料，並研究。但因為屬於剛入門，甚麼都不懂，正好找到您的blog，收集了這麼多有用得資訊，謝謝您。
想請問您，在您「如何將以連接EXCEL的DDE數據每分鐘紀錄呢」這個連結中，討論串中有許多的附檔，因為我剛剛才在論壇註冊，沒有權限下載，請問您這裡是否有其附檔的備份？是否可請您分享？
感謝您
不好意思，我只參考討論資料，沒有下載附檔耶^^”
請教版大，我是新手，因此關於所謂的dde與vba可請後一點概念都沒有，因此在書單上，版大能否提供一下，我想學的目的是能在盤中同步看出台指期貨的委買委委賣口數與成交筆差，謝謝！
版主您好:
請幫忙修正下列迴圈錯誤…
啟動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 If
End Sub
Private Sub Timer()
Counting = Now + TimeValue("00:01:00")
Application.OnTime Counting, "Copy_paste"
End Sub
Private 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