Funktionen CVErr

Vigtigt: Denne artikel er maskinoversat. Se ansvarsfraskrivelsen. Du kan finde den engelske version af denne artikel her til din orientering.

Returnerer en Variant af undertype fejl , der indeholder en fejlnummer angives af brugeren.

Syntaks

CVErr ( fejlnummer )

Påkrævet fejlnummerargument er et gyldigt fejlnummer.

Bemærkninger

Bruge funktionen CVErr til at oprette brugerdefinerede fejl i brugeroprettede procedurer. Hvis du opretter en funktion, der accepterer flere argumenter og normalt returnerer en streng, kan du have din funktionen evaluere input argumenterne for at sikre, at de er i acceptable område. Hvis det er tilfældet, er det sandsynligvis din funktionen ikke returnerer som forventet. I så fald CVErr giver dig mulighed at returnere et fejlnummer, der fortæller, hvad der skal ske.

Bemærk, at implicit konvertering af en fejl ikke er tilladt. Du kan ikke eksempelvis direkte tildele returværdien for CVErr til variabel, der ikke er en Variant. Du kan udføre en eksplicit konvertering (ved hjælp af CInt, CDblog osv.) for den værdi, der returneres af CVErr og tildele, til en variabel af den relevante datatype.

Eksempel

Bemærk: Følgende eksempler demonstrerer brugen af denne funktion i et VBA-modul (Visual Basic for Applications). Hvis du vil have mere at vide om at arbejde med VBA, skal du vælge Udviklerreference på rullelisten ud for Søg og skrive ét eller flere ord i søgefeltet.

Dette eksempel bruges funktionen CVErr til at returnere en Variant Hvis VarType er vbError (10). Brugerdefineret funktion CalculateDouble returnerer en fejl, hvis argumentet overføres til den ikke er et tal. Du kan bruge CVErr til at returnere brugerdefinerede fejl fra brugerdefinerede procedurer eller til at udskyde håndtering af en kørselsfejl. Bruge funktionen IsError for at afprøve, om værdien, der repræsenterer en fejl.

' 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

Bemærk: Ansvarsfraskrivelse for maskinoversættelse: Denne artikel er blevet oversat af et computersystem uden menneskelig indgriben. Microsoft tilbyder disse maskinoversættelse for at hjælpe ikke-engelsktalende brugere til at kunne nyde indhold om Microsofts produkter, tjenester og teknologier. Da artiklen er maskinoversat, kan den indeholde forkerte ord eller syntaks- eller grammatikfejl.

Udvid dine færdigheder
Gå på opdagelse i kurser
Få nye funktioner først
Bliv Office Insider

Var disse oplysninger nyttige?

Tak for din feedback!

Tak for din feedback! Det lyder, som om det vil kunne hjælpe, hvis du bliver sat i forbindelse med en af vores Office-supportteknikere.

×