Pokud ještě nejste obeznámeni s zpracováním chyb, důrazně vám doporučujeme přečíst si nejprve tento příklad. Když dojde k chybě v Excel VBA dochází, vlastnosti Chyba objektu jsou plné informací.
Situace:
Níže uvedený program vypočítá druhou odmocninu z čísel.
1. Umístěte příkazové tlačítko na list a přidejte následující řádky kódu:
Dim rng As Range, cell As Range
Nastavit rng = výběr
Pro každou buňku v rng
Při chybě GoTo InvalidValue:
cell.Value = Sqr (cell.Value)
Další buňka
Ukončit dílčí
Neplatná hodnota:
MsgBox Err.Number & "" & Err.Popis & "at cell" & cell.Address
Pokračovat dále
Výsledek, když vyberete Rozsah („B2: B6“) a kliknete na příkazové tlačítko na listu:
Vysvětlení: když dojde k chybě, vlastnost number objektu Err se vyplní jedinečným číslem chyby aktuální chyby a vlastnost Description se vyplní popisem chyby aktuální chyby.
2. Tyto popisy nemusí být uživatelům vašeho programu příliš užitečné. Chybové zprávy můžete učinit uživatelsky přívětivější úpravou poslední části makra následujícím způsobem:
Neplatná hodnota:
Vyberte Case Err.Number
Případ je = 5
MsgBox "Nelze vypočítat druhou odmocninu záporného čísla v buňce" & cell.Address
Případ je = 13
MsgBox "Nelze vypočítat druhou odmocninu textu na buňce" & cell.Address
Konec Vybrat
Pokračovat dále
Tip: projděte si náš program Select Case a dozvíte se více o struktuře Select Case.
Výsledek:
