Sign in with Microsoft
Sign in or create an account.

傳回子類型錯誤的 Variant, 其中包含 錯誤編號 指定之專案。

語法

CVErr ( 錯誤編號)

必要的 錯誤編號引數 為任何有效的錯誤編號。

註解

使用 CVErr 函數 在使用者建立的程式建立使用者定義錯誤。 例如,如果您建立一個接受多個引數的函數,而且通常會回一個字串,您可以讓函數評估輸入引數,以確保這些引數在可接受的範圍內。 如果不是,您的函數很可能不會回到您預期的結果。 在此活動中 ,CVErr 可讓您返回錯誤編號,告知您該採取什麼動作。

請注意,不允許對錯誤 進行 隱含轉換。 例如,您無法直接將 CVErr 的退貨值指派給 變數 變數 的值。 不過,您可以使用 CInt (CInt、CDbl等等來執行明確轉換) CVErr 所返回的值,並將它指派給適當的值變數 資料類型。

範例

附註: 下列範例示範如何在 Visual Basic for Applications (VBA) 模組中使用此函數。 如需使用 VBA 的詳細資訊,請在 [搜尋] 旁的下拉式清單中選取 [開發人員參考],並在 [搜尋] 方塊中輸入一個或多個字詞。

此範例使用 CVErr 函數傳回 Variant,其VarTypevbError (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

Need more help?

Expand your skills
Explore Training
Get new features first
Join Microsoft Office Insiders

Was this information helpful?

How satisfied are you with the translation quality?
What affected your experience?

Thank you for your feedback!

×