Si aún no está familiarizado con el manejo de errores, le recomendamos que lea este ejemplo primero. Cuando un error en Excel VBA ocurre, las propiedades del Err objeto están llenos de información.
Situación:
El programa siguiente calcula la raíz cuadrada de números.
1. Coloque un botón de comando en su hoja de trabajo y agregue las siguientes líneas de código:
Atenuar como rango, celda como rango
Establecer rng = Selección
Para cada celda en rng
En caso de error, vaya a InvalidValue:
cell.Value = Sqr (cell.Value)
Siguiente celda
Salir de Sub
Valor no válido:
MsgBox Err.Number & "" & Err.Description & "en la celda" & celda.Address
Reanudar Siguiente
Resultado cuando selecciona Rango ("B2: B6") y hace clic en el botón de comando en la hoja:
Explicación: cuando se produce un error, la propiedad de número del objeto Err se rellena con un número de error exclusivo del error actual y la propiedad Descripción se rellena con la descripción del error actual.
2. Es posible que estas descripciones no sean muy útiles para los usuarios de su programa. Puede hacer que los mensajes de error sean más fáciles de usar modificando la última parte de la macro de la siguiente manera:
Valor no válido:
Seleccione Número de error de caso
Caso es = 5
MsgBox "No se puede calcular la raíz cuadrada del número negativo en la celda" y la celda.
Caso es = 13
MsgBox "No se puede calcular la raíz cuadrada del texto en la celda" y la celda.
Finalizar Seleccionar
Reanudar Siguiente
Consejo: consulte nuestro programa Select Case para obtener más información sobre la estructura de Select Case.
Resultado:
