返回列表 上一主題 發帖

[原創] Excel VBA 錯誤處理流程(全圖解)

iamaraymond
　暱稱: Raymond Chien

中學生Rank: 2

帖子
109 
主題
12 
精華
0 
積分
177 
點名
0  
作業系統
win10 
軟體版本
office2013 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2017-11-19 
最後登錄
2023-7-5 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2018-5-22 20:48 | 顯示全部帖子

[原創] Excel VBA 錯誤處理流程(全圖解)

VBA
本帖最後由 iamaraymond 於 2018-5-22 20:49 編輯

一般來說，當我們的程式執行起來沒有錯誤時，可以直接執行到底


但如果不小心有個錯誤時，就會啟動「錯誤處理機制」


那這時候，我們有3個方式來處理錯誤
1.on error resume next
2.on error goto [line]
3.on error goto 0

1.on error resume next


若使用on error resume next的話，當出現錯誤時，雖然錯誤處理機制會啟動，但會馬上關閉
就像甚麼事都沒發生一樣繼續執行下一行，完全不會跳出錯誤訊息框

2.on error goto [line]


當使用這個語法時，若遇到錯誤就會跳到指定的位置，但要注意的是，此時錯誤機制並未關閉!!
也就是說，雖然程式可以繼續執行，但錯誤機制仍然是啟動中，所以萬一不小心又出錯。。。



這個時候，他就會直接跳出錯誤訊息框，並暫停程式，這也是許多人會很困惑的地方
比如很多人常把on error goto [line] 的語法寫進迴圈中:
  1. Sub test11()

  3. For I = 1 To 3
  4. continue:
  5.     On Error GoTo myErr
  6.     k = 0 / 0
  7. Next
  8. myErr:
  9. k = 1
  10. GoTo continue
  11. End Sub
複製代碼
第一次執行時，可以成功跳轉到myErr，但第二次就不行了
原因就是此時錯誤機制已經啟動，在錯誤機制已經啟動時
即使你加了on error resume next 也一樣會跳出錯誤訊息框
  1. Sub test12()

  3. For I = 1 To 3
  4.     On Error GoTo myErr
  5.     k = 0 / 0
  6. Next

  8. myErr:
  9. On Error Resume Next
  10. I = 0 / 0

  12. End Sub
複製代碼
那要如何把錯誤機制關閉呢?
這時有3個方法
(1)resume:關閉錯誤機制並回到出錯的那一行



(2)resume next:關閉錯誤機制並回到出錯的下一行



(3)on error goto -1:關閉錯誤機制並繼續執行下一行



所以當錯誤機制被關掉時，若再次遇到錯誤就可以繼續用前面所說的3個方式來處理錯誤

3.on error goto 0



on error goto 0會關閉錯誤機制，但跳出錯誤訊息框

那這時大家可能就會很疑惑:
Q:既然on error goto 0會直接跳出錯誤訊息框，為什麼還要使用這個語法呢?
A:因為有時候必須用這個語法來取消on error resume next 的功能

EX:曾有人問過如果我想要前十行可以跳過錯誤，但過了這十行要能跳出錯誤訊息框，要怎麼做呢?

Sub Test()

On error resume next
.
.
.
On error goto 0

End Sub

因此這時候就需要這個語法來取消on error resume next


補充篇:如何處理錯誤?




文章來源:
https://raymondchiendtrt.blogspot.tw/2018/05/vba_14.html#more

參考資料:
http://club.excelhome.net/thread-503926-1-1.html
http://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=99895&pid=4506304
http://club.excelhome.net/thread-255631-1-1.html
http://yes.nctu.edu.tw/vb/9_Misc/%E5%8F%AF%E8%99%95%E7%90%86%E7%9A%84%E9%8C%AF%E8%AA%A4.htm
1

評分人數

收藏 分享
Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

iamaraymond
　暱稱: Raymond Chien

中學生Rank: 2

帖子
109 
主題
12 
精華
0 
積分
177 
點名
0  
作業系統
win10 
軟體版本
office2013 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2017-11-19 
最後登錄
2023-7-5 
2#
發表於 2018-5-24 00:12 | 顯示全部帖子
回復 2# nolookyou

感謝nolookyou大提供的經驗
其實小弟原本很擔心PO這種錯誤處理的文會不會太枯燥乏味XD
所以您的意思是說比較好的方式是
直接用on error resume next
接著下面就直接用if或select case語句
搭配err.number直接把錯誤處理掉嗎?
Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

TOP

        靜思自在 : 【時間成就一切】時間可以造就人格，可以成就事業，也可以儲積功德。
返回列表 上一主題