החזרת משתנה מסוג משנה שגיאה המכילה מספר שגיאה שצוין על-ידי המשתמש.
תחביר
CVErr(errornumber)
הארגומנט הנדרש של 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