返回列表 上一主題 發帖

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

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

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

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 »
發表於 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: 3Rank: 3

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

論壇榮譽勳章論壇贊助勳章
2#
發表於 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

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

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

論壇榮譽勳章論壇贊助勳章
3#
發表於 2014-8-6 15:32 | 顯示全部帖子
MsgBox "錯誤代碼為:" & Err.Number '錯誤訊息代碼

Err.Number 就是錯誤代碼
PKKO

TOP

        靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。
返回列表 上一主題