Báo lỗi

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

Bạn cũng có thể khởi chạy một vĩ lệnh bằng một thông điệp lỗi. Một vĩ lệnh mẫu được cung cấp ở kết thúc của trang này.

Để truy cập lệnh này...

Choose Data - Validity - Error Alert tab.


Hiện thông điệp lỗi khi giá trị sai được nhập.

Displays the error message that you enter in the Contents area when invalid data is entered in a cell. If enabled, the message is displayed to prevent an invalid entry.

Trong cả hai trường hợp, mục nhập sai bị xoá và giá trị trước được nhập lại vào ô. Cũng vậy nếu bạn đóng hộp thoại « Cảnh báo » và « Thông tin » bằng cách nhấn nút Thôi. Nếu bạn đóng hộp thoại bằng nút OK, mục nhập sai không bị xoá.

Nội dung

Hành vi

Hãy lựa chọn hành động bạn muốn xảy ra khi dữ liệu sai được nhập vào ô. Hành động « Dừng » từ chối mục nhập sai và hiển thị một hộp thoại sẽ chỉ đóng khi người dùng nhấn vào nút OK. Hai hộp thoại « Cảnh báo » và « Thông tin » hiển thị một hộp thoại có thể đóng khi bạn nhấn vào nút OK hay Thôi. Mục nhập sai chỉ bị từ chối khi bạn nhấn vào nút Thôi.

Duyệt

Mở hộp thoại Vĩ lệnh trong đó bạn có thể lựa chọn vĩ lệnh cần thực hiện khi dữ liệu sai được nhập vào ô. Vĩ lệnh được thực hiện một khi thông điệp lỗi được hiển thị.

Tựa đề

Hãy nhập tựa đề của vĩ lệnh hay thông điệp bạn muốn hiển thị khi dữ liệu sai được nhập vào ô.

Thông điệp lỗi

Hãy nhập thông điệp bạn muốn hiển thị khi dữ liệu sai được nhập vào ô.

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

Please support us!