No.1
編程過程中，程序出現錯誤不可避免，遇到問題及時返回錯誤提示，然後按照相關問題進行相應的處理，這就是編程過程，並不像行雲流水般敲鍵盤，大多時候是看著屏幕發獃，大腦不停地旋轉，思考問題出在什麼地方。
但是如果有一個合理的錯誤提示，過程就簡單多了。
本節就主要介紹一下VBA編程中如何獲取返回錯誤號，並且附錯誤號說明。
No.2
Err對象方法
Err對象有兩個方法，一個是Clear，一個是Raise。
可在處理錯誤後使用 Clear 顯式清除 Err 對象。 只要執行以下任意語句，就會自動調用 Clear 方法：
任何類型的 Resume 語句
Exit Sub 、 Exit Function 、 Exit Property
任何 On Error 語句
Raise用於生成運行時錯誤, 可用於替代"Error" 語句。
Raise 對於在編寫類模塊時生成錯誤很有用，因為相比於通過 Error 語句生成錯誤， Err 對象可以提供更豐富的信息。 例如，通過 Raise 方法，可在 Source 屬性中指定生成錯誤的源，可以引用有關錯誤的聯機幫助，等等。
Err錯誤號以及說明
Err對象屬性
Description 返回或設置包含與對象關聯的描述性字符串的字符串表達式
HelpContext 返回或設置包含幫助文件中的主題的上下文 ID 的字符串表達式
HelpFile 返回或設置一個包含幫助文件的完全限定路徑的字符串表達式
Number 返回或設置指定錯誤的數值
Source 指定表示生成錯誤的對象的字符串表達式
No.3
Err示例
本例中，可實現模擬錯誤號發生，下拉框中列出所有錯誤號代碼，選擇任意錯誤號，單擊錯誤代碼按鈕即可彈出錯誤號提示。
代碼
Private Sub CommandButton1_Click()
On Error Resume Next '
Dim Msg, x
x = Me.ComboBox1.Value'選擇錯誤號
Err.Clear
Err.Raise x
If Err.Number <> 0 Then
Msg = "Error # " & Str(Err.Number) & " was generated by " _
& Err.Source & Chr(13) & Err.Description
MsgBox Msg, , "Error", Err.HelpFile, Err.HelpContext
End If
End Sub
Err對象學習編程中是一個漸進的過程，可以在遇到某些問題的時候進行錯誤處理，由於其錯誤號太多，錯誤類型也難以全部記住，所以沒必要全部掌握。
同時在編程中有一個通用方法，防止錯誤發生，那就是要在代碼中寫入如下一行代碼。
On Error Resume Next
此行代碼可理解為，當錯誤發生的時候跳過錯誤行繼續下一行執行程序。
可避免較多的錯誤發生。
No.1
編程過程中，程序出現錯誤不可避免，遇到問題及時返回錯誤提示，然後按照相關問題進行相應的處理，這就是編程過程，並不像行雲流水般敲鍵盤，大多時候是看著屏幕發獃，大腦不停地旋轉，思考問題出在什麼地方。
但是如果有一個合理的錯誤提示，過程就簡單多了。
本節就主要介紹一下VBA編程中如何獲取返回錯誤號，並且附錯誤號說明。
No.2
Err對象方法
Err對象有兩個方法，一個是Clear，一個是Raise。
可在處理錯誤後使用 Clear 顯式清除 Err 對象。 只要執行以下任意語句，就會自動調用 Clear 方法：
任何類型的 Resume 語句
Exit Sub 、 Exit Function 、 Exit Property
任何 On Error 語句
Raise用於生成運行時錯誤, 可用於替代"Error" 語句。
Raise 對於在編寫類模塊時生成錯誤很有用，因為相比於通過 Error 語句生成錯誤， Err 對象可以提供更豐富的信息。 例如，通過 Raise 方法，可在 Source 屬性中指定生成錯誤的源，可以引用有關錯誤的聯機幫助，等等。
Err錯誤號以及說明
Err對象屬性
Description 返回或設置包含與對象關聯的描述性字符串的字符串表達式
HelpContext 返回或設置包含幫助文件中的主題的上下文 ID 的字符串表達式
HelpFile 返回或設置一個包含幫助文件的完全限定路徑的字符串表達式
Number 返回或設置指定錯誤的數值
Source 指定表示生成錯誤的對象的字符串表達式
No.3
Err示例
本例中，可實現模擬錯誤號發生，下拉框中列出所有錯誤號代碼，選擇任意錯誤號，單擊錯誤代碼按鈕即可彈出錯誤號提示。
代碼
Private Sub CommandButton1_Click()
On Error Resume Next '
Dim Msg, x
x = Me.ComboBox1.Value'選擇錯誤號
Err.Clear
Err.Raise x
If Err.Number <> 0 Then
Msg = "Error # " & Str(Err.Number) & " was generated by " _
& Err.Source & Chr(13) & Err.Description
MsgBox Msg, , "Error", Err.HelpFile, Err.HelpContext
End If
End Sub
Err對象學習編程中是一個漸進的過程，可以在遇到某些問題的時候進行錯誤處理，由於其錯誤號太多，錯誤類型也難以全部記住，所以沒必要全部掌握。
同時在編程中有一個通用方法，防止錯誤發生，那就是要在代碼中寫入如下一行代碼。
On Error Resume Next
此行代碼可理解為，當錯誤發生的時候跳過錯誤行繼續下一行執行程序。
可避免較多的錯誤發生。