Restituisce un valore Variant of subtype Error contenente un numero errore specificato dall'utente.
Sintassi
CVErr ( numeroerrore )
Il numero errore obbligatorioargomento è qualsiasi numero di errore valido.
Osservazioni
Utilizzare la funzione CVErr per creare errori definiti dall'utente nelle procedure create dall'utente. Ad esempio, se si crea una funzione che accetta diversi argomenti e in genere restituisce una stringa, è possibile fare in modo che la funzione valuti gli argomenti di input per assicurarsi che siano compresi nell'intervallo accettabile. In caso contrario, è probabile che la funzione non restituisca quello che ti aspetti. In questo caso , CVErr consente di restituire un numero di errore che indica l'azione da intraprendere.
Si noti che la conversione implicita di un errore non è consentita. Ad esempio, non è possibile assegnare direttamente il valore restituito da CVErr a un variabile che non è un valore Variant. Tuttavia, è possibile eseguire una conversione esplicita (usando CInt, CDbl e così via) del valore restituito da CVErr e assegnarla a una variabile del tipo di dati appropriato.
Esempio
Nota: Gli esempi seguenti illustrano l'uso di questa funzione in un modulo di Visual Basic, Applications Edition (VBA). Per altre informazioni sull'uso di VBA, selezionare Riferimenti per sviluppatori nell'elenco a discesa accanto a Cerca e immettere uno o più termini nella casella di ricerca.
Questo esempio usa la funzione CVErr per restituire un valore Variant il cui tipo di var è vbError (10). La funzione definita dall'utente CalculateDouble restituisce un errore se l'argomento passato non è un numero. È possibile usare CVErr per restituire gli errori definiti dall'utente dalle procedure definite dall'utente o rinviare la gestione di un errore di runtime. Usare la funzione IsError per verificare se il valore rappresenta un errore.
' Call CalculateDouble with an error-producing argument.Sub Test() Debug.Print CalculateDouble("345.45robert")End Sub' Define CalculateDouble Function procedure.Function CalculateDouble(Number) If IsNumeric(Number) Then CalculateDouble = Number * 2 ' Return result. Else CalculateDouble = CVErr(2001) ' Return a user-defined error End If ' number.End Function
