LibreOfficeDev 24.2 Hjelp
Definerer feilmeldingen som vises nÄr ugyldige data legges inn i en celle.
Du kan ogsÄ starte en makro med en feilmelding. Et eksempel pÄ en slik makro er vist sist pÄ denne siden.
Viser feilmeldingen du skriver inn i Innhold-omrÄdet nÄr ugyldige data legges inn i en celle. Hvis aktivert, vises meldingen for Ä forhindre en ugyldig innskriving.
I begge tilfeller, hvis du velger «Stopp», blir det ugyldige elementet slettet og forrige verdi blir satt inn pÄ nytt i cellen. Det samme gjelder hvis du lukker dialogvinduene «Advarsel» og «Informasjon» ved Ä trykk pÄ Avbryt-knappen. Hvis du lukker dialogvinduene med knappen OK, blir ikke det ugyldige elementet slettet.
Velg handlingen du vil skal utfÞres nÄr ugyldige data legges inn i en celle. "Stopp"-handlingen avviser den ugyldige oppfÞringen og viser en dialogboks som du mÄ lukke ved Ä klikke OK. Handlingene "Advarsel" og "Informasjon" viser en dialogboks som kan lukkes ved Ä klikke OK eller Avbryt. Den ugyldige oppfÞringen blir bare avvist nÄr du klikker Avbryt.
à pner Makro-dialogen der du kan velge makroen som kjÞres nÄr ugyldige data legges inn i en celle. Makroen kjÞres etter at feilmeldingen vises.
Skriv inn tittelen pÄ makroen eller feilmeldinga som skal vises nÄr ugyldige data blir skrevet inn i en celle.
Skriv inn meldinga som skal vises nÄr det blir skrevet inn ugyldige verdier i en celle.
Nedenfor er en eksempelfunksjon som kan kalles nÄr en feil oppstÄr. Merk at makroen tar inn to parametere som sendes videre av LibreOfficeDev nÄr funksjonen anropes:
CellValue: Verdien angitt av brukeren, som en streng.
CellAddress : Adressen til cellen der verdien ble angitt, som en streng som prefikset med arkenavnet (f.eks. "Sheet1.A1").
Funksjonen mÄ returnere en boolsk verdi. Hvis den returnerer Sann, beholdes den angitte verdien. Hvis funksjonen returnerer Usann, slettes den angitte verdien og den forrige verdien gjenopprettes.
Function ExampleValidity(CellValue as String, CellAddress as String) as Boolean
Dim msg as String
Dim iAnswer as Integer
Dim MB_FLAGS as Integer
msg = "Ugyldig verdi: " & "'" & CellValue & "'"
msg = msg & " in cell: " & "'" & CellAddress & "'"
msg = msg & Chr(10) & "Godta likevel?"
MB_FLAGS = MB_YESNO + MB_ICONEXCLAMATION + MB_DEFBUTTON2
iAnswer = MsgBox (msg , MB_FLAGS, "Feilmelding")
ExampleValidity = (iAnswer = IDYES)
End Function