自動更新紀錄issue(5個程式,會執行2-3個後就跳出class range的select錯誤
自動更新紀錄issue(5個程式,會執行2-3個後就跳出class range的select錯誤可以請教各位大大這個程式碼到底卡在哪裡,我實在解不出來,謝謝各位大大
這段程式碼寫在 ThisWorkbook
Sub UPDATA()
Application.OnTime TimeValue("23:49:00"), "期貨合約"
Application.OnTime TimeValue("23:49:00"), "外資"
Application.OnTime TimeValue("23:49:00"), "自營"
Application.OnTime TimeValue("23:49:00"), "法人"
Application.OnTime TimeValue("23:49:00"), "OP統計"
Application.OnTime TimeValue("23:49:00"), "小台"
End Sub
這段程式碼寫在Module1
Sub 小台()<====期貨合約/外資/自營/法人/OP統計/小台程式碼幾乎雷同
'
' 小台 Macro
'
'
end_small = Sheet3.Range("a2").End(xlDown).Row
[b][color=Red][size=7]Sheet3.Cells(end_small, 1).Select <=======出現class range的select方法失敗[/size][/color][/b]
WORKSHEET3.ActiveCell.Range("A1:Q1").Select
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
Sheet3.Cells(end_small + 1, 1) = Sheet1.Range("CE6")
Sheet3.Cells(end_small + 1, 2) = Sheet1.Range("C4")
Sheet3.Cells(end_small + 1, 3) = Sheet1.Range("D4")
Sheet3.Cells(end_small + 1, 4) = Sheet1.Range("E4")
Sheet3.Cells(end_small + 1, 5) = Sheet1.Range("F4")
Sheet3.Cells(end_small + 1, 6) = Sheet1.Range("AB14")
Sheet3.Cells(end_small + 1, 7) = Sheet1.Range("AB15")
Sheet3.Cells(end_small + 1, 8) = Sheet1.Range("AB16")
Sheet3.Cells(end_small + 1, 11) = Sheet1.Range("AD14")
Sheet3.Cells(end_small + 1, 12) = Sheet1.Range("AD15")
Sheet3.Cells(end_small + 1, 13) = Sheet1.Range("AD16")
'Sheet3.Cells(end_small + 1, 2) = Sheet1.Range("AF14") + Sheet1.Range("AF15") + Sheet1.Range("AF16")
MsgBox "資料已成功寫入"
End Sub
頁:
[1]