LibreOffice 7.6 Hjelp
Lagar feilmeldinga som skal visast nÄr det vert skrive inn ugyldige data i ei celle.
Du kan ogsÄ byrja ein makro med ei feilmelding. Eit eksempel pÄ ein slik makro er vist sist pÄ denne sida.
Viser feilmeldinga du skreiv inn i Innhald nÄr ugyldige data vert skrive inn i ei celle. Om du ikkje har merkt av, vert meldinga vist for Ä hindra ei ugyldig oppfÞring.
I begge tilfelle gjeld det at viss du vel «Stopp», vert det ugyldige elementet sletta og den fÞrre verdien vert sett inn pÄ nytt i cella. Det same gjeld viss du lukker dialogvindauga «à tvaring» og «Informasjon» ved Ä trykkja pÄ Avbryt-knappen. Viss du lukker dialogvindauga med knappen OK, vert ikkje det ugyldige elementet sletta.
Marker handlinga som du Þnskjer skal utfÞrast nÄr ugyldige data vert skrivne inn i ei celle. «Stopp»-handlinga avviser det ugyldige elementet og viser eit dialogvindauge som du er nÞydd til Ä lukka ved Ä klikka OK. «à tvaring» og «Informasjon»-handlingane viser eit dialogvindauge som kan lukkast ved Ä klikka pÄ OK eller Avbryt. Det ugyldige elementet vert avvist berre nÄr du trykkjer Avbryt.
Opnar dialogvindauget for makroar, der du kan velja ein makro som skal kÞyrast nÄr ugyldige verdiar vert skrive inn i ei celle. Makroen skal kÞyrast etter at feilmeldinga er vist.
Skriv inn tittelen pÄ makroen eller feilmeldinga som skal visast nÄr ugyldige data vert skrive inn i ei celle.
Skriv inn meldinga som skal visast nÄr ugyldige verdiar vert skrivne inn i ei celle.
Nedanfor er det eit eksempel pÄ ein funksjon som kan kallast opp nÄr det skjer ein feil. Merk at makroen tek inn to parameter som vert sende vidare av LibreOffice nÄr funksjonen vert kalla opp:
Celleverdi: Den verdien brukaren skriv inn, som ein streng.
Celleadresse: Adressa til cella der verdien vart skriven inn som ein streng med arknamnet som prefiks (f.eks. «Ark1.A1»).
Funksjonen mÄ returnera ein Boolsk verdi. Viss han returnerer Sann, vert den innskrivne verdien ikkje endra. Viss funksjonen returnerer Usann, vert den innskrivne verdien sletta og den fÞrre verdien brukt.
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: " & "'" & Celleverdi & "'"
msg = msg & " i cella: " & "'" & Celleadresse & "'"
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