Om du inte är bekant med felhantering ännu rekommenderar vi starkt att du läser detta exempel först. När ett fel i Excel VBA förekommer, egenskaperna hos Err objekt är fyllda med information.
Situation:
Programmet nedan beräknar kvadratroten av siffror.
1. Lägg en kommandoknapp på ditt kalkylblad och lägg till följande kodrader:
Dim rng As Range, cell As Range
Ställ in rng = Selection
För varje cell I rng
Vid fel GoTo InvalidValue:
cell.Value = Sqr (cell.Value)
Nästa cell
Avsluta Sub
Ogiltigt värde:
MsgBox Err.Number & "" & Err.Description & "at cell" & cell.Address
Återuppta nästa
Resultat när du väljer intervall ("B2: B6") och klickar på kommandoknappen på arket:
Förklaring: när ett fel uppstår fylls nummeregenskapen för objektet Err med ett unikt felnummer för det aktuella felet och egenskapen Beskrivning fylls med felbeskrivningen för det aktuella felet.
2. Dessa beskrivningar kanske inte är särskilt användbara för användarna av ditt program. Du kan göra felmeddelandena mer användarvänliga genom att ändra den sista delen av makrot enligt följande:
Ogiltigt värde:
Välj ärendenummer
Fall är = 5
MsgBox "Kan inte beräkna kvadratroten av negativt tal vid cell" & cell.Address
Fall är = 13
MsgBox "Kan inte beräkna kvadratroten av text i cellen" och cell.Address
Avsluta Välj
Återuppta nästa
Tips: gå igenom vårt Select Case -program för att lära dig mer om Select Case -strukturen.
Resultat:
