Hvis du ikke er kjent med Feilhåndtering ennå, anbefaler vi deg å lese dette eksemplet først. Når en feil i Excel VBA forekommer, egenskapene til Err objekt er fylt med informasjon.
Situasjon:
Programmet nedenfor beregner kvadratroten av tall.
1. Plasser en kommandoknapp på regnearket og legg til følgende kodelinjer:
Dim rng As Range, cell As Range
Sett rng = Valg
For hver celle I rng
Ved feil GoTo InvalidValue:
cell.Value = Sqr (cell.Value)
Neste celle
Avslutt Sub
Ugyldig verdi:
MsgBox Err.Number & "" & Err.Description & "at cell" & cell.Adresse
Fortsett neste
Resultatet når du velger Område ("B2: B6") og klikker på kommandoknappen på arket:
Forklaring: Når det oppstår en feil, fylles egenskapen til Err -objektet med et unikt feilnummer for den gjeldende feilen, og egenskapen Beskrivelse fylles med feilbeskrivelsen for den gjeldende feilen.
2. Disse beskrivelsene er kanskje ikke veldig nyttige for brukerne av programmet ditt. Du kan gjøre feilmeldingene mer brukervennlige ved å endre den siste delen av makroen slik:
Ugyldig verdi:
Velg sak Err. -nummer
Sak er = 5
MsgBox "Kan ikke beregne kvadratroten av det negative tallet i cellen" og cell.Address
Sak er = 13
MsgBox "Kan ikke beregne kvadratroten av teksten i cellen" og cell.Address
Avslutt Velg
Fortsett neste
Tips: gå gjennom vårt Select Case -program for å lære mer om Select Case -strukturen.
Resultat:
