איך עוזרים למשתמשים לעבוד עם קבצים ב-Excel בעזרת VBA?
קבלו את הטריק הבא!
1. החליפו את הפרמטרים הרצויים בקוד הבא:
Sheets(1).Range("A1") = InputBox("TEXT", "TITLE", "DEFAULT")
במקום הספרה 1, בחרו את הגיליון הרצוי שבו ימוקם המידע שיזין המשתמש.
במקום התא 1A, בחרו את התא הרצוי שבו ימוקם המידע שיזין המשתמש.
במקום Text, הזינו בין הגרשיים את ההודעה וההסבר למשתמש.
במקום Title, הזינו בין הגרשיים את כותרת החלונית שתיפתח למשתמש עם הודעת ההסבר.
במקום Default, הזינו בין הגרשיים את ערך ברירת המחדל בשדה ההזנה של המשתמש.
2. העתיקו את הקוד.
3. בקובץ האקסל הרצוי פתחו את עורך ה-VBA באמצעות צירוף המקשים Alt (שמאלי) + Enter.
4. תחת החלונית השמאלית VBAProject, לחצו לחיצה כפולה על האובייקט ThisWorkbook המסומן מתחת לשם הקובץ הרצוי.
5. בכותרת החלונית שתיפתח בחרו ב-Workbook, מתחת לתיבת הבחירה (General).
6. בתיבת הבחירה הסמוכה בחרו באירוע שיגרום להופעת ההודעה, למשל: Open – כדי שההודעה תופיע מיד עם הפתיחה, או BeforeClose – כדי שההודעה תופיע לפני הסגירה, וכו'.
7. הדביקו את הקוד בגוף החלונית, שורה לפני הביטוי End Sub. ושמרו את הקובץ.