Ak ešte nie ste oboznámení s riešením chýb, dôrazne vám odporúčame, aby ste si najskôr prečítali tento príklad. Keď dôjde k chybe v Excel VBA dochádza, vlastnosti Chyba objektu sú naplnené informáciami.
Situácia:
Nasledujúci program vypočíta druhú odmocninu z čísel.
1. Na pracovný hárok umiestnite príkazové tlačidlo a pridajte nasledujúce riadky kódu:
Dim rng As Range, cell As Range
Nastaviť rng = výber
Pre každú bunku V rng
Pri chybe GoTo InvalidValue:
cell.Value = Sqr (cell.Value)
Ďalšia bunka
Ukončiť sub
Nesprávna hodnota:
MsgBox Err.Číslo & "" & Err.Popis & "v bunke" a bunke. Adresa
Pokračovať ďalej
Výsledok, keď vyberiete Rozsah („B2: B6“) a kliknete na príkazové tlačidlo na hárku:
Vysvetlenie: keď dôjde k chybe, vlastnosť number objektu Err sa vyplní jedinečným číslom chyby aktuálnej chyby a vlastnosť Description sa vyplní popisom chyby aktuálnej chyby.
2. Tieto popisy nemusia byť veľmi užitočné pre používateľov vášho programu. Chybové hlásenia môžete urobiť užívateľsky prívetivejšie tak, že poslednú časť makra upravíte takto:
Nesprávna hodnota:
Vyberte číslo prípadu Err.
Prípad je = 5
MsgBox „Nedá sa vypočítať druhá odmocnina zo záporného čísla v bunke“ a bunke. Adresa
Prípad je = 13
MsgBox „Nedá sa vypočítať druhá odmocnina textu v bunke“ a bunke. Adresa
Ukončiť výber
Pokračovať ďalej
Tip: V našom programe Select Case sa dozviete viac o štruktúre Select Case.
Výsledok:
