判斷執行出現錯誤的語法 ?

判斷執行出現錯誤的語法
Selection.QueryTable.Refresh BackgroundQuery:=False
上行執行出現錯誤的語法?? if ?????????????? then goto............................
錯誤視窗

樓主熱帖

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2014-8-6 14:04 | 只看該作者

小弟不才,只知道幾個基本方法

On Error GoTo F1(此行寫在有可能發生錯誤的地方之前即可),F1為自己預設的位置

On Error Resume Next 表示當一個執行階段錯誤產生時，程式控制立刻到發生錯誤陳述式接下去的陳述式，而繼續執行下去。當使用一個物件的時候，請使用這個陳述式，而不要使用 On Error GoTo。

On Error GoTo 0 停止現在程序裏任何已啟動的錯誤處理程式。

PKKO

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2014-8-6 14:22 | 只看該作者

也可透過錯誤代碼,來選擇執行
Sub test()
'
On Error Resume Next '忽略錯誤

Range("F2:k102").Copy '錯誤示範
Range(a1).PasteSpecial '錯誤示範

MsgBox "錯誤代碼為:" & Err.Number '錯誤訊息代碼

Select Case Err.Number '選擇錯誤代碼

Case 1004
MsgBox Err.Number & "抓到你了"
Case 1005
MsgBox ("怪怪的")

End Select

End Sub

PKKO

TOP

t8899