CVErr 函式

傳回子類型Error的Variant，其中包含使用者指定的錯誤號碼。

語法

CVErr (errornumber)

必要的 errornumber 引數是任何 有效的錯誤號碼。

註解

使用 CVErr 函 式，在使用者建立的 程式中建立使用者定義的錯誤。 例如，如果您建立接受數個引數且通常會傳回字串的函式，您可以讓函式評估輸入引數，以確保它們在可接受的範圍內。 如果不是，您的函式可能不會傳回您預期的內容。 在此事件中， CVErr 可讓您傳回錯誤號碼，告知您要採取的動作。

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

範例

此範例會使用CVErr函式傳回VarType為vbError (10) 的Variant。 如果傳遞給它的引數不是數位，則使用者定義 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

另請參閱

• 函式 (Visual Basic for Applications)

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。