CVErr 函數

重要:  本文係由機器翻譯而成,請參閱免責聲明。本文的英文版本請見這裡,以供參考。

傳回的變化子類型包含錯誤編號使用者指定的錯誤

語法

CVErr ( 錯誤號碼 )

必要的錯誤號碼引數是有效的錯誤的數字。

備註

您可以使用CVErr函數,使用者建立程序中建立使用者定義的錯誤。例如,如果您建立接受多個引數,並以正常方式傳回字串的函數,您可以有函數評估輸入引數,以確保這些可接受的範圍內。如果不是,可能是您函數不會傳回您預期的事情。在此情況下,cverr 會傳回錯誤的數字,告訴您要採取什麼動作。

請注意,不允許隱含轉換的錯誤。例如,您無法為不是Variant變數直接指定CVErr的傳回值。不過,您可以執行明確轉換 (使用CIntCDbl等等) 的CVErr所傳回的值,並指定的適當資料類型的變數。

範例

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

此範例使用CVErr函數,傳回一個VariantVarTypevbError (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

附註: 機器翻譯免責聲明︰本文係以電腦系統翻譯而成,未經人為介入。Microsoft 提供此等機器翻譯旨在協助非英語系使用者輕鬆閱讀 Microsoft 產品、服務及技術相關內容。基於本文乃由機器翻譯而成,因此文中可能出現詞辭、語法、文法上之錯誤。

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

這項資訊有幫助嗎?

感謝您的意見反應!

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

×