Zwraca wariant podtypu "Błąd " zawierającego numer błędu określony przez użytkownika.
Składnia
CVErr(numer_błędu)
Wymagany argument errornumberto dowolny prawidłowy numer błędu.
Uwagi
Użyj funkcji CVErr, aby utworzyć zdefiniowane przez użytkownika błędy w procedurach utworzonych przez użytkownika. Na przykład jeśli utworzysz funkcję akceptującą kilka argumentów i normalnie zwracającą ciąg, funkcja może oszacować argumenty wejściowe, aby upewnić się, że mieszczą się w dopuszczalnym zakresie. Jeśli tak nie jest, prawdopodobnie funkcja nie zwróci oczekiwanej wartości. W tym zdarzeniu funkcja CVErr umożliwia zwrócenie numeru błędu, który informuje, jaką akcję należy podjąć.
Należy pamiętać, że niejawna konwersja błędu nie jest dozwolona. Na przykład nie można bezpośrednio przypisać wartości zwracanej przez CVErr do zmiennej, która nie jest wariantem. Można jednak wykonać jawną konwersję (za pomocą CInt, CDbl itd.) wartości zwróconej przez CVErr i przypisać ją do zmiennej o odpowiednim typie danych.
Przykład
Uwaga
Poniższe przykłady przedstawiają sposób użycia tej funkcji w module języka Visual Basic for Applications (VBA). Aby uzyskać dodatkowe informacje na temat pracy w języku VBA, wybierz pozycję Dokumentacja dewelopera z listy rozwijanej obok przycisku Wyszukaj i wprowadź odpowiednie terminy w polu wyszukiwania.
W tym przykładzie użyto funkcji CVErr do zwrócenia wariantu , którego typem zmiennej jest vbError (10). Funkcja CalculateDouble zdefiniowana przez użytkownika zwraca błąd, jeśli przekazany do niej argument nie jest liczbą. Funkcji CVErr można użyć do zwracania błędów zdefiniowanych przez użytkownika z procedur zdefiniowanych przez użytkownika lub do odroczenia obsługi błędów wykonywania. Użyj funkcji Czy.Błąd , aby sprawdzić, czy dana wartość oznacza błąd.
' 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