Als u nog niet bekend bent met Error Handling, raden we u ten zeerste aan dit voorbeeld eerst te lezen. Wanneer een fout in Excel VBA optreedt, de eigenschappen van de Err object staan vol met informatie.
Situatie:
Het onderstaande programma berekent de vierkantswortel van getallen.
1. Plaats een opdrachtknop op uw werkblad en voeg de volgende coderegels toe:
Dim rng As Range, cel As Range
Stel rng = Selectie in
Voor elke cel In rng
Bij fout Ga naar ongeldige waarde:
cel.Waarde = Sqr(cel.Waarde)
Volgende cel
Sluit sub
Ongeldige waarde:
MsgBox Err.Number & " " & Err.Beschrijving & " bij cel " & cel.Adres
Volgende hervatten
Resultaat wanneer u Range ("B2:B6") selecteert en op de opdrachtknop op het blad klikt:
Toelichting: wanneer er een fout optreedt, wordt de eigenschap number van het Err-object gevuld met een uniek foutnummer van de huidige fout en wordt de eigenschap Description gevuld met de foutbeschrijving van de huidige fout.
2. Deze beschrijvingen zijn misschien niet erg nuttig voor de gebruikers van uw programma. U kunt de foutmeldingen gebruiksvriendelijker maken door het laatste deel van de macro als volgt aan te passen:
Ongeldige waarde:
Selecteer Case Err.Number
Geval Is = 5
MsgBox "Kan vierkantswortel van negatief getal in cel niet berekenen " & cel.Adres
Kast is = 13
MsgBox "Kan vierkantswortel van tekst in cel niet berekenen " & cel.Adres
Einde selecteren
Volgende hervatten
Tip: doorloop ons Select Case-programma om meer te weten te komen over de Select Case-structuur.
Resultaat:
