Помощ за LibreOffice 7.3
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:
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