Hvis du ikke kender fejlhåndtering endnu, anbefaler vi stærkt, at du først læser dette eksempel. Når en fejl i Excel VBA forekommer, egenskaberne af Fejl objekt er fyldt med oplysninger.
Situation:
Nedenstående program beregner kvadratroden af tal.
1. Placer en kommandoknap på dit regneark, og tilføj følgende kodelinjer:
Dim rng As Range, cell As Range
Indstil rng = Valg
For hver celle I rng
Ved fejl GoTo InvalidValue:
cell.Value = Sqr (cell.Value)
Næste celle
Afslut Sub
Ugyldig værdi:
MsgBox Err.Nummer & "" & Err.Description & "at cell" & cell.Address
Genoptag næste
Resultat, når du vælger Område ("B2: B6") og klikker på kommandoknappen på arket:
Forklaring: Når der opstår en fejl, udfyldes egenskabens nummer for Err -objektet med et unikt fejlnummer for den aktuelle fejl, og egenskaben Beskrivelse udfyldes med fejlbeskrivelsen af den aktuelle fejl.
2. Disse beskrivelser er muligvis ikke særlig nyttige for brugerne af dit program. Du kan gøre fejlmeddelelserne mere brugervenlige ved at ændre den sidste del af makroen som følger:
Ugyldig værdi:
Vælg sag err.nr
Sag er = 5
MsgBox "Kan ikke beregne kvadratrod af negativt tal ved celle" & cell.Address
Sag er = 13
MsgBox "Kan ikke beregne kvadratrod af tekst på celle" & cell.Address
Afslut Vælg
Genoptag næste
Tip: gå gennem vores Select Case -program for at lære mere om Select Case -strukturen.
Resultat:
