CVErr 函數

傳回子類型錯誤的 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

需要更多協助?

增進您的 Office 技巧
探索訓練
優先取得新功能
加入 Office 測試人員

這項資訊有幫助嗎?

感謝您的意見反應!

感謝您的意見反應! 我們將協助您與我們的其中一個 Office 支援專員連絡以深入了解您的意見。

×