Če še niste seznanjeni z ravnanjem z napakami, vam toplo priporočamo, da najprej preberete ta primer. Ko pride do napake v Excel VBA pojavijo lastnosti Err objekt so napolnjene z informacijami.
Situacija:
Spodnji program izračuna kvadratni koren števil.
1. Na svoj delovni list postavite ukazni gumb in dodajte naslednje kodne vrstice:
Dim rng As Range, celica As Range
Nastavi rng = Izbor
Za vsako celico V rng
Pri napaki Pojdi na InvalidValue:
cell.Value = Sqr (cell.Value)
Naslednja celica
Zapri pod
Neveljavna vrednost:
MsgBox Err.Številka & "" & Err.Opis & "na celici" & celica. Naslov
Nadaljuj naprej
Rezultat, ko izberete Razpon ("B2: B6") in kliknete ukazni gumb na listu:
Pojasnilo: ko pride do napake, se lastnost števila predmeta Err napolni z edinstveno številko napake trenutne napake, lastnost Description pa z opisom napake trenutne napake.
2. Ti opisi morda niso v veliko pomoč uporabnikom vašega programa. Sporočila o napakah lahko naredite bolj prijazna do uporabnika, tako da zadnji del makra spremenite na naslednji način:
Neveljavna vrednost:
Izberite Error Number
Primer je = 5
MsgBox "Ne morem izračunati kvadratnega korena negativnega števila v celici" & cell.Address
Primer je = 13
MsgBox "Ne morem izračunati kvadratnega korena besedila v celici" & cell.Address
Konec Izberite
Nadaljuj naprej
Namig: poiščite naš program Select Case, če želite izvedeti več o strukturi Select Case.
Rezultat: