Objekt chyby aplikace Excel VBA

Pokud ještě nejste obeznámeni s manipulací s chybami, doporučujeme Vám nejprve tento příklad přečíst. Při chybě v Excel VBA dochází k vlastnostem Objekt Err jsou vyplněny informacemi.

Situace:

Níže uvedený program vypočítává druhou odmocninu čísel.

1. Vložte příkazové tlačítko do listu a přidejte následující řádky kódu:

Dim rng As Range, cell As Range
Set rng = Selection

For Each cell In rng
On Error GoTo InvalidValue:
cell.Value = Sqr(cell.Value)
Next cell

Exit Sub

InvalidValue:

MsgBox Err.Number & " " & Err.Description & " at cell " & cell.Address

Resume Next

Výsledek, když zvolíte Rozsah ("B2: B6") a klepněte na příkazové tlačítko na listu:

Vysvětlení: pokud dojde k chybě, je vlastnost číslo objektu Err vyplněna jedinečným číslem chyby aktuální chyby a vlastnost Popis je vyplněna popisem chyby aktuální chyby.

2. Tyto popisy nemusí být pro uživatele vašeho programu velmi užitečné. Chybové zprávy můžete lépe uživatelsky přizpůsobit úpravě poslední části makra takto:

InvalidValue:

Select Case Err.Number
    Case Is = 5
        MsgBox "Can"t calculate square root of negative number at cell " & cell.Address
    Case Is = 13
        MsgBox "Can"t calculate square root of text at cell " & cell.Address
End Select

Resume Next

Tip: Projděte si náš program Select Case a dozvíte se více o struktuře Select Case.

Výsledek: