Obslužné rutiny chyb pro makra Excelu

Obslužné rutiny chyb vám umožňují určit, co se stane, když dojde k chybě při spuštění kódu makra aplikace Excel. Obslužné rutiny chyb jsou řádky podobné následujícím:

On Error GoTo MyError

Bez obslužných programů chyb každá chyba, která se objeví ve vašem kódu, vyzve Excel k aktivaci méně užitečné chybové zprávy, která obvykle jasně nevyjadřuje, co se stalo. S pomocí obslužných rutin chyb se však můžete rozhodnout chybu ignorovat nebo kód elegantně ukončit se svou vlastní zprávou pro uživatele.

Existují tři typy příkazů On Error:

• On Error GoTo SomeLabel: Kód skočí na zadaný štítek.

• On Error Resume Next: Chyba je ignorována a kód pokračuje.

• On Error GoTo 0: VBA se resetuje na normální chování při kontrole chyb.

On Error GoTo SomeLabel

Někdy chyba ve vašem kódu znamená, že musíte postup elegantně ukončit a dát uživatelům jasnou zprávu. V těchto situacích můžete pomocí příkazu On Error GoTo sdělit aplikaci Excel, aby skočila na určitý řádek kódu.

Například v následujícím malém úryvku kódu řeknete Excelu, aby vydělil hodnotu v buňce A1 hodnotou v buňce A2, a poté umístil odpověď do buňky A3. Snadný. Co by se mohlo pokazit?

Dílčí makro1()
Rozsah("A3").Hodnota = Rozsah("A1").Hodnota / Rozsah("A2").Hodnota
End Sub

Dílčí makro1()
Při chybě GoTo MyExit
Rozsah("A3").Hodnota = Rozsah("A1").Hodnota / Rozsah("A2").Hodnota
Exit Sub
MyExit:
MsgBox "Použijte prosím platná nenulová čísla"
End Sub

Dílčí makro1()
Zabijte "C: TempGhostFile.exe"
MsgBox "Soubor byl smazán."
End Sub

Dílčí makro1()
Při chybě pokračovat dále
Zabijte "C: TempGhostFile.exe"
MsgBox "Soubor byl smazán."
End Sub

Dílčí makro1()
Při chybě pokračovat dále
Zabijte "C: TempGhostFile.exe"
Rozsah ("A3"). Hodnota = 100 / "Mike"
End Sub

Dílčí makro1()
Při chybě pokračovat dále
Zabijte "C: TempGhostFile.exe"
Při chybě GoTo 0
Rozsah ("A3"). Hodnota = 100 / "Mike"
End Sub