Справка LibreOffice 24.8
Defines the error message that is displayed when invalid data is entered in a cell.
Также можно определить макрос, работающий с сообщением об ошибке. Пример такого макроса приведён в конце этой страницы.
Отображает сообщение об ошибке, выводимое в области Содержание при вводе недействительных данных. Если эта функция включена, то сообщение позволяет предотвратить ввод недействительной информации.
В обоих случаях, если выбрано «Остановить», введённые недопустимые данные удаляются и в ячейку вводится ранее содержавшееся в ней значение. То же самое происходит, если закрыть диалоговое окно предупреждения или уведомления кнопкой Отмена. При закрытии диалогового окна кнопкой ОК неправильные данные не удаляются.
Выберите действие, которое должно выполняться при вводе неверных данных в ячейку. Действие "Остановить" приводит к отбрасыванию неверных данных и выводу диалогового окна, которое нужно закрыть кнопкой ОК. Действия "Предупреждение" и "Информация" приводят к выводу диалогового окна, которое можно закрыть кнопкой ОК или Отмена. Неверные данные отбрасываются только при нажатии кнопки Отмена.
Будет открыто диалоговое окно Макрос, где можно выбрать макрос, который будет выполняться при вводе неверных данных в ячейку. Макрос выполняется после вывода сообщения об ошибке.
Введите заголовок макроса или сообщения об ошибке, которое будет выдаваться при вводе неверных данных в ячейку.
Выберите сообщение, которое должно отображаться при вводе неверных данных в ячейку.
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