הפונקציה CVErr

הערה:  אנו מעוניינים לספק לך את תוכן העזרה העדכני ביותר במהירות האפשרית, בשפה שלך. דף זה תורגם באמצעות אוטומציה והוא עשוי לכלול שגיאות דקדוק או אי-דיוקים. מטרתנו היא כי תוכן זה יהיה שימושי עבורך. האם תוכל לספר לנו אם המידע הועיל לך, בחלק התחתון של דף זה? לנוחותך, הנה המאמר באנגלית .

החזרה של משתנה של סוג משנה שגיאה המכיל של מספר שגיאה שצוין על-ידי המשתמש.

תחביר

הפונקציה CVErr ( errornumber )

דרוש errornumberארגומנט הוא כל מספר שגיאה חוקי.

הערות

השתמש בפונקציה CVErr כדי ליצור שגיאות מוגדרות משתמש בהליכים שנוצרו על-ידי המשתמש. לדוגמה, אם אתה יוצר פונקציה מקבל מספר ארגומנטים ומחזירה בדרך כלל מחרוזת, יש לך שלך הפונקציה לחשב את ארגומנטי הקלט כדי לוודא שהם בטווח קביל. אם הם אינם כלולים, סביר להניח שהפונקציה שלך לא תחזיר למה לצפות. במקרה זה, הפונקציה CVErr תאפשר לך להחזיר מספר שגיאה המנחה אותך הפעולה שיש לבצע.

שים לב המרה משתמעת של שגיאה אינה מותרת. לדוגמה, אין באפשרותך להקצות באופן ישיר את הערך המוחזר של CVErr כדי משתנה שאינו משתנה. עם זאת, באפשרותך לבצע המרה מפורשת (באמצעות CInt, CDblוכן הלאה) של הערך המוחזר על-ידי CVErr ולהקצות זאת למשתנה של ה המתאים סוג נתונים.

דוגמה

הערה: הדוגמאות הבאות מדגימות את השימוש של פונקציה זו במודול Visual Basic for Applications‏ (VBA). לקבלת מידע נוסף אודות עבודה עם VBA, בחר הפניית מפתח ברשימה הנפתחת שליד חיפוש והזן מונח אחד או יותר בתיבת החיפוש.

דוגמה זו משתמשת בפונקציה CVErr כדי להחזיר Variant שאת 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
שפר את הכישורים שלך ב- Office
סייר בהדרכה
קבל תכונות חדשות לפני כולם
הצטרף למשתתפי Office Insider

האם מידע זה היה שימושי?

תודה על המשוב!

תודה על המשוב! נראה שכדאי לקשר אותך לאחד מנציגי התמיכה של Office.

×