VBA常用命令解析之001——On Error（將錯就錯）

誰都希望自己的程序能一順百順，但是錯誤卻一直是我們心中的痛。總是時不時地跳出來影響我們的情緒。雖然跳出來的錯誤提示會中斷我們程序的運行，但是它 就象我們的痛感覺神經(jīng)一樣，是一種保護。可以避免得到不正確的結果，甚至災難性的后果發(fā)生。我們可以通過進一步的程序設計和改進來避免錯誤中斷我們的程 序。
　　在日常生活中，我們知道手術前最重要的一項工作是麻醉止痛，在VBA 程序中也有麻醉止痛劑，它就是On Error Resume Next，使用這條語句后就不會有錯誤跳出來中斷程序的運行了。但是就象生物失去痛覺一樣是很危險的，一但程序一直處于麻醉狀態(tài)后果也是不可預料的。可見On Error Resume Next并不是一劑萬能藥。濫用會錯上加錯還可能付出慘重的代價。如果能很好的利用這一語句，不僅可以避免錯誤，還會達到意想不到效果。
　　常見的錯誤一般有兩類：代碼書寫錯誤和程序運行時的不期錯誤。第一類錯誤在程序的調(diào)試期間，就可以發(fā)現(xiàn)它們并加以解決。最麻煩的是第二類錯誤。
在處理第二類錯誤時，我們除了細心設計程序外，還應該認真考慮可能出現(xiàn)的錯誤。這就是程序的容錯性，使程序更加健壯。
　　例1：
　　在一個Excel 文件 中，刪除工作表時，如不事先判斷工作表是否存在時就會出錯。用常規(guī)判斷會浪費很多代碼。這里唯一能出現(xiàn)的錯誤就是目標不存（下標越界），而這也是我們想達到目的。不如將錯就錯。

代碼:

Sub Main()
? ? Call DelTable("臨時表")
End Sub
Sub DelTable(sName As String)
? ? On Error Resume Next
? ? Worksheet s(sName).Delete
? ? On Error GoTo 0
End Sub On Error GoTo 0是什么？它就是On Error Resume Next的解藥。是讓你的VBA程序蘇醒過來。請大家注意使用On Error Resume Next后一定要　　養(yǎng)成用On Error GoTo 0解開它的習慣，不然你的程序有錯誤，也很難發(fā)現(xiàn)了。
　　例2：
　　在一用戶窗體中，根據(jù)用戶輸入的工作表名新建一工作表，如不事先判斷是否有同名的工作表存在，就可能發(fā)生錯誤。可以用循環(huán)語句來實現(xiàn)判斷工作表是否存在，也可以利用On Error Resume Next語句進行將錯就錯地判斷。

代碼:

Sub main()
? ? If OkExcelExist("Sheet1", ThisWorkbook) Then
? ?? ???MsgBox "工作表已經(jīng)存在！！"
? ? End If
End Sub
Function OkExcelExist(sSheetName As String, w As Workbook) As Boolean
? ? Dim ws As Worksheet
? ? OkExcelExist = True
? ? On Error Resume Next
? ? Set ws = w.Worksheets(sSheetName)
? ? On Error GoTo 0
? ? If ws Is Nothing Then OkExcelExist = False
? ? Set ws = Nothing
End Function 在本例中，只有sSheetName表不存在時，才可能發(fā)生錯誤。因此可以加以利用。
　　例3：
　　如果說以上兩例通過其它方式也能很容易的實現(xiàn)判斷，那么本例如果用常規(guī)的代碼將會很難實現(xiàn)。看一下原貼。

引用:

[求助 ]怎么實現(xiàn)輸入的數(shù)據(jù) 代表excel單元 格 引用的合法性檢查？
　　我需要在vba的textbox中輸入數(shù)據(jù)，然后用這個數(shù)據(jù)去指定excel的單元格位置 ，如何使輸入的數(shù)據(jù)合法?
　　比如我在textbox中輸入數(shù)據(jù)：“a2”，我用range（textbox.text）.value＝“ok”給excel的a2單元格填寫數(shù)據(jù) “ok”，如何保證我輸入的“a2”一定表示了單元格的位置，而不是其他比如“kkkk”或者“1234”等不能表示單元格的字符？ 如果這個問題用常規(guī)方法解決，需要編寫大量的代碼，需要全面地考慮每一個細節(jié)。但是仍不能保證正確。那么看一下如何用

代碼:

Private Sub CommandButton1_Click()
? ? Dim str As String
? ? str = Trim(TextBox1.Text)? ?? ?? ???'取值
? ? If Not OkExcel(str) Then? ?? ?? ?? ?'非法則顯示提示信息
? ?? ???MsgBox str & "不是合法單元格地址", vbOKOnly + vbCritical, "智能Excel"
? ?? ???Exit Sub
? ?? ???'退出子過程
? ? End If
? ? '下面加其它語句
End Sub
'－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Function OkExcel(str As String) As Boolean
? ? Dim r As Range
? ? On Error Resume Next
? ? '發(fā)生錯誤則執(zhí)行下一條語句
? ? Set r = Range(str)
? ? '將r附值，如果發(fā)生錯誤則說明str中的數(shù)據(jù)，不是一個合法的單元格地址
? ? OkExcel = (err.Number = 0)
? ? '如果err.Number不是0，則說明發(fā)生過錯誤
? ? On Error GoTo 0
? ? '好習慣，恢復正常，雖然結束本過程后自動 會恢復
End Function 短短的幾行就解決了這一很雜問題！
　　學會這招吧！

___________________________________________________________________ 全文完, 原文URL: http://www.okexcel.com.cn/bbs/viewthread.php?tid=168

總結

以上是生活随笔為你收集整理的［转］VBA常用命令解析之001——On Error（将错就错）的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。