CVErr (función)

Importante:  Este artículo se ha traducido con traducción automática; vea la declinación de responsabilidades. Para su referencia, puede encontrar la versión en inglés de este artículo aquí.

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

Sintaxis

CVErr ( errornumber )

El requiere errornumberargumento es un número de error válido.

Observaciones

Use la función CVErr para crear errores definidos por el usuario en procedimientos 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 evaluar los argumentos de entrada para asegurarse de que están dentro de un rango aceptable. Si no es así, es probable que la función no devolverá qué esperar. En este caso, CVErr le permite devolver un número de error que le indica qué acción debe realizar.

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

Ejemplo

Nota: Los ejemplos siguientes muestran el uso de esta función en un Visual Basic para aplicaciones (VBA). Para obtener más información sobre cómo trabajar con VBA, seleccione la Referencia del programador en la lista desplegable situada junto a Buscar y escriba uno o varios términos en el cuadro de búsqueda.

Este ejemplo 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 pasado no es un número. Puede utilizar CVErr para devolver errores definidos por el usuario desde procedimientos definidos por el usuario o para aplazar el control de un error de tiempo de ejecución. Use la función ESERROR para comprobar 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

Nota: Declinación de responsabilidades de traducción automática: Este artículo se ha traducido con un sistema informático sin intervención humana. Microsoft ofrece estas traducciones automáticas para que los hablantes de otros idiomas distintos del inglés puedan disfrutar del contenido sobre los productos, los servicios y las tecnologías de Microsoft. Puesto que este artículo se ha traducido con traducción automática, es posible que contenga errores de vocabulario, sintaxis o gramática.

Ampliar sus conocimientos
Explorar los cursos
Obtener nuevas características primero
Únase a los participantes de Office Insider

¿Le ha sido útil esta información?

¡Gracias por sus comentarios!

Gracias por sus comentarios. Quizá le interese ponerse en contacto con uno de nuestros agentes de soporte de Office.

×