Jos et vielä tunne virheiden käsittelyä, suosittelemme, että luet tämän esimerkin ensin. Kun tulee virhe Excel VBA tapahtuu, ominaisuudet Vika objekti ovat täynnä tietoa.
Tilanne:
Alla oleva ohjelma laskee numeroiden neliöjuuren.
1. Aseta komentopainike laskentataulukkoosi ja lisää seuraavat koodirivit:
Dim rng as Range, solu As Range
Aseta rng = Valinta
Jokaista solua kohti
Virhe GoTo InvalidValue:
cell.Value = Sqr (cell.Value)
Seuraava solu
Lopeta Sub
Arvo ei ole sopiva:
MsgBox Err.Number & "" & Err.Kuvaus & "at cell" & cell.Address
Jatka seuraavaksi
Tulos, kun valitset Alue ("B2: B6") ja napsautat taulukon komentopainiketta:
Selitys: kun tapahtuu virhe, Err -objektin numero -ominaisuus täytetään nykyisen virheen yksilöllisellä virhenumerolla ja Kuvaus -ominaisuus täytetään nykyisen virheen virhekuvauksella.
2. Nämä kuvaukset eivät välttämättä ole kovin hyödyllisiä ohjelmasi käyttäjille. Voit tehdä virheilmoituksista käyttäjäystävällisempiä muuttamalla makron viimeistä osaa seuraavasti:
Arvo ei ole sopiva:
Valitse Tapauksen virhenumero
Tapaus = 5
MsgBox "Negatiivisen luvun neliöjuuria ei voi laskea solussa" & solu.osoite
Tapaus = 13
MsgBox "Tekstin neliöjuuria ei voi laskea solussa" & solu.osoite
Lopeta Valitse
Jatka seuraavaksi
Vinkki: käy läpi Select Case -ohjelmamme saadaksesi lisätietoja Select Case -rakenteesta.
Tulos:
