Предупреждение за грешка

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

Можете да стартирате и макрос със съобщение за грешка. В края на тази страница е даден примерен макрос.

За достъп до тази команда...

Изберете раздела Данни - Валидност - Предупреждение за грешка.


Съобщение за грешка при въведена невалидна стойност

Показва съобщението за грешка, въведено в областта Съдържание, при въвеждане на невалидни данни в клетка. Ако няма отметка, съобщението се показва за предотвратяване на невалиден вход.

И в двата случая, ако изберете „Спиране“, невалидните данни се изтриват и в клетката се връща предишното й съдържание. Същото важи и ако затворите диалоговите прозорци „Предупреждение“ и „Информация“ чрез бутона Отказ. Ако използвате бутона OK, невалидната стойност не се изтрива.

Съдържание

Действие

Изберете действието, което да бъде извършвано при въвеждане на невалидни данни в клетка. Действието „Спиране“ отхвърля невалидните данни и показва диалогов прозорец, който трябва да затворите с бутона OK. Действията „Предупреждение“ и „Информация“ показват диалогов прозорец, който може да бъде затворен с бутон OK или Отказ. Невалидните данни се отхвърлят само ако щракнете върху Отказ.

Преглед

Отваря диалоговия прозорец Макрос, в който можете да изберете макроса, който да се изпълни при въвеждане на невалидни данни в клетка. Макросът се изпълнява след показването на съобщението за грешка.

Заглавие

Въведете заглавието на макроса или съобщението за грешка, което да се показва при въвеждане на невалидни данни в клетка.

Съобщение за грешка

Въведете съобщението, което желаете да се показва при въвеждане на невалидни данни в клетка.

Примерен макрос:

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 LibreOffice when the function is called:

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