Compartir vía

Función CVErr

  • Artículo

Devuelve un valor Variant de subtipo Error que contiene un número de error especificado por el usuario.

Sintaxis

CVErr(errornumber)

El argumentoerrornumber necesario es cualquier número de error válido.

Comentarios

Use la función CVErrpara crear errores definidos por el usuario enprocedimientos creados por el usuario. Por ejemplo, si crea una función que acepta varios argumentos y normalmente devuelve una cadena, puede hacer que la función evalúe los argumentos de entrada para asegurarse de que se encuentran dentro de un intervalo aceptable. Si no es así, es probable que la función no devuelva lo esperado. En este caso, CVErr le permite devolver un número de error que le indica la acción que hay que tomar.

Tenga en cuenta que no se permite esa conversión implícita de Error. Por ejemplo, no puede asignar directamente el valor devuelto de CVErr a una variable que no es Variant. Sin embargo, puede realizar una conversión explícita (mediante CInt, CDbl, etc.) del valor devuelto por CVErr y asignarlo a una variable del tipo de datos adecuado.

Ejemplo

En este ejemplo se usa la función CVErr para devolver un valor Variant cuyo VarType es vbError (10). La función definida por el usuario CalculateDouble devuelve un error si el argumento que se ha pasado no es un número. Use CVErr para devolver errores definidos por el usuario de procedimientos definidos por el usuario o para aplazar el control de un error en tiempo de ejecución. Use la función IsError para probar si el valor representa un error.

' 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

Vea también

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.