פורום שאלות ותשובות

ברוכים הבאים לפורום שאלות ותשובות באופיס

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

מ' שואל:

שלום רב,

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

 

תשובה:

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

מצ"ב דוגמה להגדרת מודול שמנקה את עיצוב התאים נבחרים (מסומנים).

 

יש לבצע את הפעולות הבאות -

1. בקובץ אקסל חדש יש לבחור בתפריט Developer ו-Visula Basic.

 

2. נגדיר שיגרה בשם ClearFormats.

 

3. נסגור את עורך VBA, נבחר בתפריט  Developer -> Macros -> ClearFormats -> Options בתא הגדרת קיצור הדרך נלחץ על Shift + C ואז על OK.

   המשמעות היא שניתן יהיה להפעיל את השיגרה ClearFormats על ידי לחיצה על CTRL + Shift + C

 

4. בתפריט View יש ללחוץ על Hide על מנת שקובץ האקסל ייפתח מוסתר בכל פעם שנפתח קובץ אקסל במחשב.

 

5. יש לשמור את הקובץ בשם PERSONAL.xlsb בנתיב - C -> Users -> UserName -> AppData -> Roaming -> Microsoft -> Excel -> XLSTART

    קבצים הנשמרים בנתיב זה נפתחים באופן אוטומטי בפתיחת של תוכנת אקסל ולכן הדבר יאפשר שימוש בקוד VBA בכל קבצי האקסל.

   במידה ונדרש לבצע להפעיל את הקוד גם במחשב אחר אז יש להעביר אליו את הקובץ PERSONAL.xlsb.

 

6. דוגמה לשימוש - בקובץ אקסל חדש נגדיר את המספרים 1-9 בתארים A1 עד A9 ונשנה את צבע התאים לצהוב.

 

7. בלחיצה על CTRL + Shift + C תופעל השגיאה ClearFormats בקובץ PERSONAL.xlsb ותנקה את עיצוב התאים.

 

8. ניתן לקרוא למודול ClearFormats  מקובץ אחר על ידי VBA באופן הבא-

 

Public Sub test()
Application.Run "'PERSONAL.xlsb'!ClearFormats"
End Sub
 
 

 

בברכה,
צוות אניפיט