Огоҳии хато

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

Шумо метавонед макросро бо хабари хато оғоз намоед. Макроси намунавӣ дар охири ин саҳифа оварда шудааст.

Хабари хаторо ҳангоми дохилкунии арзиши номувофиқ нишон медиҳад.

Хабари хаторо, ки шангоми дохилкунии арзиши номувофиқ нишон дода мешавад, дар майдони Таркиб дохил кунед.

Дар ҳарду сурат, агар шумо "Ист"ро интихоб кунед, навишти номувофиқ кӯр шуда ва арзиши пешина бозгузошта мешавад. Ин ҳолат бо пӯшонидани муколамаҳои "Огоҳӣ" ва "Маълумот" бо пахшкунии Бекркунӣ низ рух медиҳад. Агар муколамаро бо пахшкунии тугмачаи OK пӯшонед, онгоҳ арзиши номувофиқ кӯр карда намешавад.

Таркиб

Амал

Амалеро интихоб кунед, ки баробари дохилкунии арзиши номувофиқ иҷро мешавад. Амали "Stop" арзиши номувофиқро рад карда муколамаеро мекушояд, ки бо пахшкунии OK пӯшонед. Амалҳои "Warning" ва "Information" мекушоянд, ки бо пахшкунии OK ё Бекоркунӣ пӯшонида мешаванд. Арзиши номувофиқ рад карда мешавад агар шумо Бекоркуниро пахш кунед.

Намоиш

Муколамаи Макросро мекушояд, ки дар он макроси дар ҳолати дохилкунии арзиши номувофиқ иҷро карда мешавад, интихоб кунед.

Сарлавҳа

Номи макро ё хабари хаторо дохил кунед.

Хабари хато

Хабари хаторо дохил кунед.

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:

• 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