CVErr 函数

重要:  本文是由机器翻译的,请参阅免责声明。请在 此处 中查找本文的英文版本以便参考。

返回一个 Variant 类型的子类型包含错误号由用户指定的错误

语法

CVErr 错误号

需要的错误号参数是任何有效的错误号。

备注

使用CVErr函数在用户创建的过程中创建用户定义的错误。例如,如果您创建的函数接受多个参数,通常返回一个字符串,您可以函数计算输入的参数,以确保它们是可接受的范围内。如果未显示,则很可能您函数不会返回您看到的内容。在这种情况,可使用CVErr返回一个错误号,告诉您要执行的操作。

请注意,不允许隐式转换的错误。例如,不能直接将CVErr的返回值分配给变量不。但是,您可以执行CVErr返回的值显式转换 (使用CIntCDbl,等),并分配给相应数据类型的变量的。

示例

注意: 下面的示例说明使用此函数在 Visual Basic for Applications (VBA) 模块。有关处理 VBA 的详细信息,搜索旁边的下拉列表中选择开发人员参考,然后在搜索框中输入一个或多个条款。

此示例使用CVErr函数返回一个VariantVarTypevbError (10)。如果参数传递给它不是数字,则用户定义函数CalculateDouble返回错误。若要从用户定义的过程返回用户定义的错误或推迟的运行时错误处理,可使用CVErrIsError函数用于测试的值表示错误。

' 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 支持专员。

×