Ako još niste upoznati s rukovanjem pogreškama, toplo vam preporučujemo da prvo pročitate ovaj primjer. Kada dođe do pogreške u Excel VBA javlja, svojstva Err objekt su ispunjeni informacijama.
Situacija:
Program u nastavku izračunava kvadratni korijen brojeva.
1. Postavite naredbeni gumb na radni list i dodajte sljedeće retke koda:
Dim rng As Range, cell As Range
Postavite rng = Odabir
Za svaku ćeliju U rng
O grešci Idi na InvalidValue:
cell.Value = Sqr (cell.Value)
Sljedeća ćelija
Izlaz iz podv
Nevažeća vrijednost:
MsgBox Err.Broj & "" & Err.Opis & "na ćeliji" & ćelija. Adresa
Nastavi dalje
Rezultat je odabirom raspona ("B2: B6") i klikom na naredbeni gumb na listu:
Objašnjenje: kada dođe do pogreške, svojstvo number objekta Err ispunjeno je jedinstvenim brojem pogreške trenutne pogreške, a svojstvo Description ispunjeno je opisom pogreške trenutne pogreške.
2. Ovi opisi možda neće biti od velike pomoći korisnicima vašeg programa. Poruke o pogreškama možete učiniti prilagođenijima korisnicima tako da zadnji dio makronaredbe izmijenite na sljedeći način:
Nevažeća vrijednost:
Odaberite Error Number
Slučaj Is = 5
MsgBox "Ne može se izračunati kvadratni korijen negativnog broja u ćeliji" & cell.Address
Slučaj Is = 13
MsgBox "Ne može se izračunati kvadratni korijen teksta u ćeliji" & cell.Address
Kraj Odaberite
Nastavi dalje
Savjet: prođite kroz naš program Select Case da biste saznali više o strukturi Select Case.
Proizlaziti:
