返回列表 上一主題 發帖

自動更新紀錄issue(5個程式,會執行2-3個後就跳出class range的select錯誤

jk910107

帖子
2 
主題
1 
精華
0 
積分
2 
點名
0  
作業系統
window 
軟體版本
7 
閱讀權限
10 
註冊時間
2019-5-16 
最後登錄
2019-5-22 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2019-5-21 23:54 | 只看該作者

自動更新紀錄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

Sheet3.Cells(end_small, 1).Select     <=======出現class range的select方法失敗
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
收藏 分享

        靜思自在 : 忘功不忘過，忘怨不忘恩。
返回列表 上一主題