回傳一個包含使用者指定錯誤編號的子型別 Error 。
語法
CVErr (錯誤編號)
所需的錯誤編號參數是任何有效的錯誤編號。
註解
使用 CVErr 函式在使用者建立的程序中產生使用者定義錯誤。 舉例來說，如果你建立一個接受多個參數且通常回傳字串的函式，你可以讓函式評估輸入參數，確保它們在可接受範圍內。 如果不是，你的函數很可能不會回報你預期的效果。 在這種情況下， CVErr 允許你回傳一個錯誤編號，告訴你應該採取什麼行動。
請注意，不允許對 錯誤 進行隱性轉換。 例如，你無法直接將 CVErr 的回傳值指派給非 變體變數。 不過，你可以用 CInt、 CDbl 等工具，) CVErr 回傳的值執行明確的轉換 (，並將它指派到適當資料型態的變數上。
範例
注意
下列範例示範如何在 Visual Basic for Applications (VBA) 模組中使用此函數。 如需使用 VBA 的詳細資訊，請在 [搜尋] 旁的下拉式清單中選取 [開發人員參考]，並在 [搜尋] 方塊中輸入一個或多個字詞。
此範例使用 CVErr 函式回傳一個變 體 ，其 VarType 為 vbError (10) 。 如果傳遞給它的參數不是數字，使用者自訂函式 CalculateDouble 會回傳錯誤。 你可以使用 CVErr 從使用者定義程序回傳使用者定義的錯誤，或延後執行時錯誤的處理。 使用 IsError 函式來測試該值是否代表錯誤。
' Call CalculateDouble with an error-producing argument.
Sub Test()
Debug.Print CalculateDouble("345.45robert")
End Sub
' Define CalculateDouble Function procedure.
Function CalculateDouble(Number)
If IsNumeric(Number) Then
CalculateDouble = Number * 2 ' Return result.
Else
CalculateDouble = CVErr(2001) ' Return a user-defined error
End If ' number.
End Function