Ayuda de LibreOffice 7.3
Permite definir el mensaje de error que se debe mostrar cuando se introducen datos incorrectos en una celda.
También se puede ejecutar una macro con un mensaje de error. Al final de esta página se muestra una macro de ejemplo.
Muestra el mensaje de error que se introduce en la sección Contenido al ingresar datos inválidos en una celda. El mensaje se muestra para prevenir el ingreso de datos inválidos cuando está habilitada esta opción.
En ambos casos, si selecciona la opción "Detener" la entrada incorrecta se borra y se restablece en la celda el valor anterior. Lo mismo sucede si cierra los diálogos "Advertencia" e "Información" pulsando el botón Cancelar. Si cierra los diálogos con el botón Aceptar, la entrada incorrecta no se borra.
Seleccione la acción que deberá producirse al introducir datos no válidos en una celda. La acción «Detener» rechazará la entrada incorrecta y mostrará un cuadro de diálogo que el usuario deberá cerrar pulsando en Aceptar. Las acciones «Aviso» e «Información» mostrarán un cuadro de diálogo con los botones Aceptar y Cancelar, y la entrada incorrecta se rechazará solo si el usuario pulsa en Cancelar.
Abre el diálogo Macro, donde puede seleccionar la macro que se ejecutará al introducir datos incorrectos en una celda. La macro se ejecuta después de mostrar el mensaje de error.
Escriba el título de la macro o el mensaje de error que desea que se muestre al introducir datos incorrectos en una celda.
Escriba el mensaje que desea que se muestre al introducir datos incorrectos en una celda.
Below is a sample function that can be called when an error occurs. Note that the macro takes in two parameters that are passed on by LibreOffice when the function is called:
CellValue: The value entered by the user, as a String.
CellAddress: The address of the cell where the value was entered, as a String prefixed with the sheet name (e.g: "Sheet1.A1").
The function must return a Boolean value. If it returns True, the entered value is kept. If the function returns False, the entered value is erased and the previous value is restored.
Function ExampleValidity(CellValue as String, CellAddress as String) as Boolean
Dim msg as String
Dim iAnswer as Integer
Dim MB_FLAGS as Integer
msg = "Valor no válido: " & "'" & CellValue & "'"
msg = msg & " en la celda: " & "'" & CellAddress & "'"
msg = msg & Chr(10) & "¿Quiere aceptarlo de todos modos?"
MB_FLAGS = MB_YESNO + MB_ICONEXCLAMATION + MB_DEFBUTTON2
iAnswer = MsgBox (msg , MB_FLAGS, "Mensaje de error")
ExampleValidity = (iAnswer = IDYES)
End Function