Ja vēl neesat iepazinies ar kļūdu apstrādi, iesakām vispirms izlasīt šo piemēru. Kad rodas kļūda Excel VBA notiek, īpašības Kļūdains objekts ir piepildīta ar informāciju.
Situācija:
Tālāk esošā programma aprēķina skaitļu kvadrātsakni.
1. Ievietojiet komandas pogu savā darblapā un pievienojiet šādas koda rindiņas:
Dim rng As Range, šūna As Range
Set rng = Atlase
Katrai šūnai In rng
Kļūda GoTo InvalidValue:
cell.Value = Sqr (cell.Value)
Nākamā šūna
Iziet no apakšnodaļas
InvalidValue:
MsgBox Err.Number & "" & Err.Description & "at cell" & cell.Address
Atsākt
Rezultāts, atlasot diapazonu ("B2: B6") un noklikšķinot uz komandas pogas lapā:
Paskaidrojums: ja rodas kļūda, objekta Err rekvizīta numurs tiek aizpildīts ar unikālu pašreizējās kļūdas kļūdas numuru, un rekvizīts Apraksts tiek aizpildīts ar pašreizējās kļūdas kļūdas aprakstu.
2. Šie apraksti var nebūt ļoti noderīgi jūsu programmas lietotājiem. Kļūdu ziņojumus varat padarīt lietotājam draudzīgākus, modificējot makro pēdējo daļu šādi:
InvalidValue:
Atlasiet Lietu Err.Number
Lieta ir = 5
MsgBox "Nevar aprēķināt negatīvā skaitļa kvadrātsakni šūnā" & cell.Address
Lieta ir = 13
MsgBox "Nevar aprēķināt teksta kvadrātsakni šūnā" & cell.Address
Beigas Atlasīt
Atsākt
Padoms. Izlasiet programmu Select Case, lai uzzinātu vairāk par Select Case struktūru.
Rezultāts:
