LibreOffice 7.3 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.
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