Feilmelding

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.

For Ă„ bruke denne funksjonen 


Velg Data → Gyldighet → Feilmelding


Vis feilmelding nÄr ugyldige verdier skrives inn.

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.

Innhold

Handling

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.

Bla gjennom

Å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.

Tittel

Skriv inn tittelen pÄ makroen eller feilmeldinga som skal vises nÄr ugyldige data blir skrevet inn i en celle.

Feilmelding

Skriv inn meldinga som skal vises nÄr det blir skrevet inn ugyldige verdier i en celle.

Eksempelmakro:

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:

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