תוכן העניינים
אם עדיין אינך מכיר את הטיפול בשגיאות, אנו ממליצים לך לקרוא תחילה דוגמה זו. כאשר שגיאה ב Excel VBA מתרחשת, המאפיינים של אובייקט שגיאה מלאים במידע.
מַצָב:
התוכנית שלהלן מחשבת את השורש הריבועי של המספרים.
1. הצב כפתור פקודה בגליון העבודה שלך והוסף את שורות הקוד הבאות:
Dim rng As Range, cell As Range
הגדר rng = בחירה
עבור כל תא ב rng
על שגיאה GoTo InvalidValue:
cell.Value = Sqr (cell.Value)
התא הבא
יציאה משנה
ערך לא תקין:
מס.
המשך הבא
התוצאה כאשר אתה בוחר טווח ("B2: B6") ולחץ על לחצן הפקודה בגיליון:
הסבר: כאשר מתרחשת שגיאה, מאפיין המספר של האובייקט Err מתמלא במספר שגיאה ייחודי של השגיאה הנוכחית ומאפיין התיאור מלא בתיאור השגיאה של השגיאה הנוכחית.
2. ייתכן שתיאורים אלה אינם מועילים במיוחד למשתמשי התוכנית שלך. אתה יכול להפוך את הודעות השגיאה לידידותיות יותר למשתמש על ידי שינוי החלק האחרון של המאקרו כדלקמן:
ערך לא תקין:
בחר מספר שגיאה
מקרה הוא = 5
MsgBox "לא יכול לחשב שורש ריבועי של מספר שלילי בתא" & cell.Address
מקרה הוא = 13
MsgBox "לא יכול לחשב שורש מרובע של טקסט בתא" & cell.Address
סיום בחר
המשך הבא
טיפ: עיין בתוכנית Select Case שלנו למידע נוסף על מבנה Select Case.
תוֹצָאָה:
