LibreOffice 7.3 Hjælp
Defines the error message that is displayed when invalid data is entered in a cell.
Du kan også starte en makro med en fejlmeddelelse. Et eksempel på en sådan makro er vist sidst på denne side.
Viser den fejlmeddelelser du indtaster i Indholds området når ugyldige data indtastes i en celle. Hvis den er aktiveret, vil meddelelsen vises for at forhindre ugyldig indtastning.
I begge tilfælde, hvis du vælger "Stop", bliver det ugyldige element slettet og foregående værdi bliver genindsat i cellen. Det samme gælder, hvis du lukker dialogerne "Advarsel" og "Information" ved at klikke knappen Annuller. Hvis du lukker dialogerne med knappen OK, bliver det ugyldige element ikke slettet.
Marker handlingen som du vil have til at forekommer når ugyldige data bliver indtastet i en celle. "Stop" handlingen afviser det ugyldige element og viser en dialog som du er nødt til lukke ved at klikke OK. "Advarsel" og "Information" handlingerne viser en dialog som kan lukkes ved at klikke OK eller Annuller. Det ugyldige element er kun afvist når du klikker Annuller.
Åbner dialogen Makro, hvor du kan vælge makroen, der udføres, når ugyldige data bliver indtastet i en celle. Makroen bliver udført efter at fejlmeddelelsen er vist.
Indtast titlen på makroen eller den fejlmeddelelse, som du ønsker at vise, når ugyldige data bliver indtastet i en celle.
Indtast meddelelsen som du vil vise, når ugyldige data bliver indtastet i en celle.
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 = "Invalid value: " & "'" & CellValue & "'"
msg = msg & " in cell: " & "'" & CellAddress & "'"
msg = msg & Chr(10) & "Accept anyway?"
MB_FLAGS = MB_YESNO + MB_ICONEXCLAMATION + MB_DEFBUTTON2
iAnswer = MsgBox (msg , MB_FLAGS, "Error message")
ExampleValidity = (iAnswer = IDYES)
End Function