Chybové hlášení
Definuje chybové hlášení, které je zobrazeno při zadání chybných dat do buňky.
Na začátek makra je také možné umístit chybové hlášení. Příklad takového makra si můžete prohlédnout na konci této stránky.
Zobrazit chybové hlášení, pokud jsou zadány neplatné hodnoty
Zobrazí chybové hlášení zadané v části Obsah, pokud jsou do buňky vložena neplatná data. Je-li povoleno, hlášení se zobrazí, aby zamezilo výskytu neplatného záznamu.
V obou případech platí, že pokud vyberete "Zastavit", bude neplatný vstup nahrazen původním obsahem buňky. Stejné chování platí pro případ, kdy dialogová okna "Upozornění" a "Informace" ukončíte tlačítkem Zrušit . Ukončíte-li okna tlačítkem OK, bude neplatný vstup v buňce ponechán jako její nový obsah.
Obsah
Akce
Vyberte činnost, která bude provedena, když je do buňky zadán neplatný vstup. Činnost "Zastavit" odmítne neplatný vstup a zobrazí dialog, který ukončíte tlačítkem OK. Činnosti "Upozornění" a "Informace" zobrazí dialog, který může být ukončen poklepáním na OK nebo Zrušit. Neplatný vstup je odmítnut pouze tehdy, pokud klepnete na Zrušit.
-
The Stop action rejects the invalid entry and displays a dialog that you have to close by clicking OK.
-
The Warning and Information actions display a dialog that can be closed by clicking OK or Cancel. The invalid entry is only rejected when you click Cancel.
-
The Reject Silently action keeps the current cell value and does not display a dialog.
Procházet
Otevře dialogové okno Makro, ve kterém je možné vybrat makro, které je provedeno, je-li do buňky zadán neplatný vstup. Makro se spustí až po zobrazení chybového hlášení.
Nadpis
Zadejte nadpis makra či chybového hlášení, který bude zobrazen, je-li zadán do buňky neplatný vstup.
Chybové hlášení
Zadejte zprávu, kterou si přejete zobrazit, je-li do buňky zadán neplatný vstup.
Ukázkové makro:
Následuje ukázka funkce, která může být volána, pokud nastane chyba. Vstupem do tohoto makra jsou dva parametry, které předá Collabora Office při volání funkce:
-
CellValue: Hodnota zadaná uživatelem jako String.
-
CellAddress: Adresa buňky, do níž byla hodnota zadána, jako String uvozený názvem listu (např. "List1.A1").
Funkce musí vrátit booleovskou hodnotu. Pokud vrátí True, zadaná hodnota se zachová. Pokud vrátí False, zadaná hodnota se vymaže a obnoví se předchozí hodnota.
Function ExampleValidity(CellValue as String, CellAddress as String) as Boolean
Dim msg as String
Dim iAnswer as Integer
Dim MB_FLAGS as Integer
msg = "Neplatná hodnota: " & "'" & CellValue & "'"
msg = msg & " v buňce: " & "'" & CellAddress & "'"
msg = msg & Chr(10) & "Přesto přijmout?"
MB_FLAGS = MB_YESNO + MB_ICONEXCLAMATION + MB_DEFBUTTON2
iAnswer = MsgBox (msg , MB_FLAGS, "Chybová zpráva")
ExampleValidity = (iAnswer = IDYES)
End Function