/ / אובייקט יישום VBA של

אובייקט יישום של

גיליון עבודה | מסך | DisplayAlerts | חישוב

האם של כל האובייקטים היא Excel עצמה. אנחנו קוראים לזה אובייקט יישום. אובייקט היישום נותן גישה לאפשרויות רבות הקשורות ל- Excel.

גיליון עבודה

ניתן להשתמש במאפיין WorksheetFunction ב Excel VBA כדי לגשת לפונקציות Excel.

1. לדוגמה, הצב לחצן פקודה בגליון העבודה והוסף את שורת הקוד הבאה:

Range("A3").Value = Application.WorksheetFunction.Average(Range("A1:A2"))

בעת לחיצה על לחצן הפקודה בגליון העבודה, Excel VBA מחשב את הממוצע של הערכים בתא A1 ובתא A2 וממקם את התוצאה לתא A3.

עבודה ב - VBA של

הערה: במקום Application.WorksheetFunction.ממוצע, פשוט להשתמש. אם אתה מסתכל על סרגל הנוסחה, אתה יכול לראות את הנוסחה עצמה לא מוכנס לתוך התא A3. כדי להכניס את הנוסחה עצמה לתא A3, השתמש בשורת הקוד הבאה:

Range("A3").Value = "=AVERAGE(A1:A2)"

מסך

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

1. לדוגמה, הצב לחצן פקודה בגליון העבודה והוסף את שורות הקוד הבאות:

Dim i As Integer

For i = 1 To 10000
    Range("A1").Value = i
Next i

כאשר אתה לוחץ על לחצן הפקודה בגליון העבודה, Excel VBA מציג כל ערך חלק זעיר של שנייה וזה יכול לקחת קצת זמן.

מסך

2. כדי להאיץ את התהליך, לעדכן את הקוד כדלקמן.

Dim i As Integer

Application.ScreenUpdating = False

For i = 1 To 10000
    Range("A1").Value = i
Next i

Application.ScreenUpdating = True

כתוצאה מכך, הקוד שלך יפעל הרבה יותר מהר ואתה תראה רק את התוצאה הסופית (10000).

DisplayAlerts

אתה יכול להורות Excel VBA לא להציג התראות בעת ביצוע קוד.

1. לדוגמה, הצב לחצן פקודה בגליון העבודה והוסף את שורת הקוד הבאה:

ActiveWorkbook.Close

בעת לחיצה על לחצן הפקודה בגליון העבודה, Excel VBA סוגר את קובץ ה- Excel שלך ומבקש ממך לשמור את השינויים שביצעת.

DisplayAlerts

2. כדי להורות ל- Excel VBA לא להציג התראה זו בעת ביצוע קוד, עדכן את הקוד באופן הבא.

Application.DisplayAlerts = False

ActiveWorkbook.Close

Application.DisplayAlerts = True

כתוצאה מכך, Excel VBA סוגר את קובץ ה- Excel שלך, מבלי לבקש ממך לשמור את השינויים שביצעת. כל השינויים אבדו.

חישוב

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

1. לדוגמה, הצב לחצן פקודה בגליון העבודה והוסף את שורת הקוד הבאה:

Application.Calculation = xlCalculationManual

כאשר תלחץ על לחצן הפקודה בגליון העבודה, Excel VBA יגדיר את החישוב ידנית.

2. ניתן לאמת את זה על ידי לחיצה על קובץ, אפשרויות, נוסחאות.

אפשרויות חישוב

3. עכשיו כאשר אתה משנה את הערך של תא A1, הערך של התא B1 לא מחושב מחדש.

חישוב ידני

ניתן לחשב מחדש את חוברת העבודה ידנית על ידי הקשה על F9.

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

Application.Calculation = xlCalculationAutomatic
קרא גם: