Se non hai ancora familiarità con la gestione degli errori, ti consigliamo vivamente di leggere prima questo esempio. Quando un errore in Excel VBA si verifica, le proprietà di Err oggetto sono pieni di informazioni.
Situazione:
Il programma seguente calcola la radice quadrata dei numeri.
1. Posiziona un pulsante di comando sul foglio di lavoro e aggiungi le seguenti righe di codice:
Dim rng As Range, cella As Range
Imposta rng = Selezione
Per ogni cella In rng
In caso di errore GoTo InvalidValue:
cella.Valore = Sqr(cella.Valore)
Cella successiva
Esci Sotto
Valore non valido:
MsgBox Err.Number & " " & Err.Description & " at cell " & cell.Address
Riprendi Avanti
Risultato quando selezioni Intervallo ("B2: B6") e fai clic sul pulsante di comando sul foglio:
Spiegazione: quando si verifica un errore, la proprietà number dell'oggetto Err viene riempita con un numero di errore univoco dell'errore corrente e la proprietà Description viene riempita con la descrizione dell'errore corrente.
2. Queste descrizioni potrebbero non essere molto utili per gli utenti del tuo programma. Puoi rendere i messaggi di errore più intuitivi modificando l'ultima parte della macro come segue:
Valore non valido:
Seleziona numero errore caso
Il caso è = 5
MsgBox "Impossibile calcolare la radice quadrata del numero negativo nella cella " & cell.Address
Il caso è = 13
MsgBox "Impossibile calcolare la radice quadrata del testo nella cella " & cell.Address
Fine selezione
Riprendi Avanti
Suggerimento: consulta il nostro programma Select Case per saperne di più sulla struttura Select Case.
Risultato:
