Dacă nu sunteți încă familiarizat cu gestionarea erorilor, vă recomandăm să citiți mai întâi acest exemplu. Când apare o eroare în Excel VBA apare, proprietățile Obiect Err sunt umplute cu informații.
Situatie:
Programul de mai jos calculează rădăcina pătrată a numerelor.
1. Plasați un buton de comandă pe foaia de lucru și adăugați următoarele linii de cod:
Dim rng As Range, celulă As Range
Set rng = Selection
Pentru fiecare celulă din rng
On Error GoTo InvalidValue:
cell.Value = Sqr (cell.Value)
Următoarea celulă
Ieșiți din Sub
Valoare invalida:
MsgBox Err.Number & "" & Err.Description & "at cell" & cell.Address
Reluați în continuare
Rezultă când selectați Range („B2: B6”) și faceți clic pe butonul de comandă de pe foaie:
Explicație: atunci când apare o eroare, proprietatea număr a obiectului Err este completată cu un număr unic de eroare al erorii curente, iar proprietatea Descriere este completată cu descrierea erorii curentei.
2. Este posibil ca aceste descrieri să nu fie foarte utile pentru utilizatorii programului dvs. Puteți face mesajele de eroare mai ușor de utilizat modificând ultima parte a macro-ului după cum urmează:
Valoare invalida:
Selectați Case Err.Number
Cazul este = 5
MsgBox „Nu se poate calcula rădăcina pătrată a numărului negativ la celulă” & cell.Address
Cazul este = 13
MsgBox „Nu se poate calcula rădăcina pătrată a textului în celulă” & cell.Address
Selectare sfârșit
Reluați în continuare
Sfat: parcurgeți programul Select Case pentru a afla mai multe despre structura Select Case.
Rezultat:
