החזרת משתנה של שגיאת סוג משנה המכילה מספר שגיאה שצוין על-ידי המשתמש.
תחביר
CVErr(errornumber)
ארגומנט מספר השגיאההנדרש הוא מספר שגיאה חוקי כלשהו.
הערות
השתמש בפונקציה CVErr כדי ליצור שגיאות המוגדרות על-ידי המשתמש בהליכים שנוצרו על-ידי המשתמש. לדוגמה, אם אתה יוצר פונקציה המקבלת כמה ארגומנטים ומחזירה בדרך כלל מחרוזת, באפשרותך לקבוע שהפונקציה תעריך את ארגומנטי הקלט כדי לוודא שהם נמצאים בטווח המקובל. אם לא, ייתכן שהפונקציה לא תחזיר את מה שאתה מצפה. במקרה זה, CVErr מאפשר לך להחזיר מספר שגיאה שמסביר לך איזו פעולה עליך לבצע.
שים לב כי המרה משתמעת של שגיאה אינה מותרת. לדוגמה, לא ניתן להקצות ישירות את הערך המוחזר של CVErr למשתנה שאינו משתנה. עם זאת, באפשרותך לבצע המרה מפורשת (באמצעות CInt, CDbl וכן הלאה) של הערך המוחזר על-ידי CVErr ולהקצות אותו למשתנה מסוג הנתונים המתאים.
דוגמה
הערה
הדוגמאות הבאות מדגימות את השימוש של פונקציה זו במודול Visual Basic for Applications (VBA). לקבלת מידע נוסף אודות עבודה עם VBA, בחר הפניית מפתח ברשימה הנפתחת שליד חיפוש והזן מונח אחד או יותר בתיבת החיפוש.
דוגמה זו משתמשת בפונקציה CVErr כדי להחזיר משתנה ש- VarType שלוהוא vbError (10). הפונקציה המוגדרת על-ידי CalculateDouble המשתמש מחזירה שגיאה אם הארגומנט שהועבר אליה אינו מספר. באפשרותך להשתמש ב - CVErr כדי להחזיר שגיאות המוגדרות על-ידי המשתמש מהליכים המוגדרים על-ידי המשתמש או כדי לדחות את הטיפול של שגיאת זמן ריצה. השתמש בפונקציה IsError כדי לבדוק אם הערך מייצג שגיאה.
' 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