Jei dar nesate susipažinę su klaidų tvarkymu, labai rekomenduojame pirmiausia perskaityti šį pavyzdį. Kai įvyksta klaida Excel VBA atsiranda, savybės Klaida objektas yra užpildyti informacija.
Situacija:
Žemiau esanti programa apskaičiuoja skaičių kvadratinę šaknį.
1. Įdėkite komandų mygtuką į savo darbalapį ir pridėkite šias kodo eilutes:
Dim rng As Range, langelis As Range
Nustatyti rng = Pasirinkimas
Kiekvienai langeliui In rng
Dėl klaidos „GoTo InvalidValue“:
cell.Value = Sqr (cell.Value)
Kitas langelis
Išeiti iš Sub
Neteisinga vertė:
MsgBox Err.Number & "" & Err.Description & "at cell" & cell.Address
Tęsti toliau
Rezultatas, kai pasirinksite diapazoną („B2: B6“) ir spustelėsite komandų mygtuką lape:
Paaiškinimas: kai įvyksta klaida, objekto „Err“ ypatybė „numeris“ užpildoma unikaliu dabartinės klaidos klaidos numeriu, o „Description“ ypatybė užpildoma esamos klaidos aprašymu.
2. Šie aprašymai gali būti nelabai naudingi jūsų programos vartotojams. Galite padaryti klaidų pranešimus patogesnius vartotojui, pakeisdami paskutinę makrokomandos dalį taip:
Neteisinga vertė:
Pasirinkite atvejo klaidos numerį
Byla = 5
„MsgBox“ Negalima apskaičiuoti neigiamo skaičiaus kvadratinės šaknies ląstelėje “& cell.Address
Byla yra = 13
„MsgBox“ „Negalima apskaičiuoti teksto kvadratinės šaknies ląstelėje“ ir ląstelė. Adresas
Pabaiga Pasirinkite
Tęsti toliau
Patarimas: peržiūrėkite mūsų pasirinkto atvejo programą ir sužinokite daugiau apie pasirinkto atvejo struktūrą.
Rezultatas: