Kui te pole veakäsitlusega veel tuttav, soovitame teil see näide kõigepealt läbi lugeda. Kui viga tekkis Exceli VBA esineb, omadused Viga objekt on täis teavet.
Olukord:
Allpool olev programm arvutab numbrite ruutjuure.
1. Asetage oma töölehele käsunupp ja lisage järgmised koodiridad:
Dim rng As Range, lahter As Range
Set rng = Valik
Iga lahtri jaoks rng
Viga GoTo InvalidValue:
cell.Value = Sqr (cell.Value)
Järgmine lahter
Välju sub
Vigane väärtus:
MsgBox Err.Number & "" & Err.Kirjeldus & "at cell" & cell.Address
Jätka edasi
Tulemus, kui valite vahemiku ("B2: B6") ja klõpsate lehel käsunuppu:
Selgitus: vea ilmnemisel täidetakse objekti Err number atribuut praeguse vea kordumatu veanumbriga ja kirjelduse atribuut täidetakse praeguse vea veakirjeldusega.
2. Need kirjeldused ei pruugi teie programmi kasutajatele eriti kasulikud olla. Veateateid saab muuta kasutajasõbralikumaks, muutes makro viimast osa järgmiselt.
Vigane väärtus:
Valige juhtumi viga
Juhtum on = 5
MsgBox "Lahtri negatiivse arvu ruutjuurt ei saa arvutada" & cell.Address
Juhtum on = 13
MsgBox "Lahtri teksti ruutjuurt ei saa arvutada" & cell.Address
Lõpp Vali
Jätka edasi
Näpunäide: vaadake läbi meie Select Case programm, et saada lisateavet Select Case struktuuri kohta.
Tulemus:
