Erarpepo

Defines the error message that is displayed when invalid data is entered in a cell.

Vi ankaŭ povas startigi makroon kun prierara mesaĝo. Specimena makroo troviĝas ĉe la fino de ĉi tiu paĝo.

Por atingi ĉi tiun komandon...

Choose Data - Validity - Error Alert tab.

Vidigi prieraran mesaĝon kiam oni enigas nevalidajn valorojn.

Vidigas prieraran mesaĝon kiun vi enigas en la kadro Enhavo kiam oni enigas nevalidajn datumojn en ĉelo. Se ne markita, vidigas la mesaĝon por malebligi nevalidan enigaĵon.

Ambaŭkaze, se vi elektas je "Halti", la nevalida enigaĵo foriĝos kaj la antaŭa valoro enmetiĝas en la ĉelo. Same okazas se vi elektas la dialogojn "Averto" kaj "Informo" alklakante la butonon Nuligi. Se vi fermas la dialogojn per la butono Akcepti, la nevalida enigaĵo ne foriĝos.

Enhavo

Ago

Elektu la agon okazontan kiam oni enmetas nevalidan datumon en ĉelo. La ago "Halti" forigas la nevalidan datumon kaj vidigas dialogon fermotan per alklako al Akcepti. La agoj "Averto" kaj "Informo" vidigas dialogon fermotan per alklako al Akcepti aŭ Nuligi. Forigas la nevalidan enigaĵon nur kiam vi alklakas al Nuligi.

Foliumi

Malfermas la dialogon Makroo kie vi povas elekti makroon rulotan kiam oni enigas nevalidan datumon en ĉelo. La makroo ruliĝas post vidigo de la prierara mesaĝo.

Titolo

Enigu la titolon aŭ prieraran mesaĝon vidigotan kiam oni enigas nevalidan datumon en la ĉelon.

Erarmesaĝo

Enigu la mesaĝon vidigotan kiam oni enmetas nevalidan datumon en ĉelo.

Sample macro:

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 Collabora Office 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