Si aún no está familiarizado con el manejo de errores, le recomendamos encarecidamente que lea este ejemplo primero. Cuando se produce un error en Excel VBA , las propiedades del objeto Err se rellenan con información.
Situación:
El programa de abajo calcula la raíz cuadrada de los números.
1. Ponga un botón de comando en su hoja de trabajo y añada las siguientes líneas de código:
Dim rng As Range, cell As Range Set rng = Selección Para cada célula en el rng En Error Ir a Valor Inválido: celda.Valor = Sqr(celda.Valor) La siguiente celda Salida Sub InvalidValue: MsgBox Err.Number & » » & Err.Description & » at cell » & cell.Address Reanudar siguiente
Resultado cuando seleccionas Rango («B2:B6») y haces clic en el botón de comando de la hoja:
Explicación: cuando se produce un error, la propiedad numérica del objeto Err se rellena con un número de error único del error actual y la propiedad Description se rellena con la descripción del error actual.
2. Estas descripciones pueden no ser 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:
InvalidValue: Seleccione el número de error del caso El caso es = 5 MsgBox «No se puede calcular la raíz cuadrada del número negativo en la celda» & celda.Dirección El caso es = 13 MsgBox «No se puede calcular la raíz cuadrada del texto en la celda» & celda.Dirección Finalizar Seleccionar Reanudar siguiente
Sugerencia: consulte nuestro programa de Selección de Casos para aprender más sobre la estructura de Selección de Casos.
Resultado:
