תיבת רשימה היא רשימה ממנה משתמש יכול לבחור פריט. ליצור קופסת רשימה ב Excel VBA, בצע את השלבים הבאים.
1. בכרטיסייה מפתחים, לחץ על הוספה.
2. בקבוצה פקדי ActiveX, לחץ על תיבת רשימה.
3. גרור תיבת רשימה בגליון העבודה שלך.
הערה: אתה יכול לשנות את שם הפקד על ידי לחיצה ימנית על הפקד (ודא שנבחר מצב עיצוב) ולאחר מכן לחץ על מאפיינים. לעת עתה, נשאיר את ListBox1 כשם תיבת הרשימה.
צור אירוע פתוח של חוברת עבודה. הקוד שנוסף לאירוע הפתוח של חוברת העבודה יבוצע על ידי Excel VBA בעת פתיחת חוברת העבודה.
4. פתח את עורך Visual Basic.
5. לחץ פעמיים על חוברת עבודה זו בסייר הפרויקטים.
6. בחר בחוברת העבודה מהרשימה הנפתחת השמאלית ובחר פתח מהרשימה הנפתחת הימנית.
7. כדי להוסיף פריטים לתיבת הרשימה, הוסף את שורות הקוד הבאות לאירוע הפתיחה של חוברת העבודה:
עם Sheet1.ListBox1
.AddItem "פריז"
.AddItem "ניו יורק"
.AddItem "לונדון"
סיים עם
הערה: השתמש בגיליון 2 אם תיבת הרשימה שלך ממוקמת בגליון העבודה השני, גיליון 3 אם תיבת הרשימה שלך ממוקמת בגליון העבודה השלישי וכו '. אם אתה משתמש בשורות קוד אלה מחוץ לאירוע פתיחת חוברת העבודה, ייתכן שתרצה להוסיף את שורת הקוד הבאה לפני שורות קוד אלה. שורת קוד זו מנקה את תיבת הרשימה. כך הפריטים שלך לא יתווספו מספר פעמים אם תבצע את הקוד יותר מפעם אחת.
1. תיבה
8. לקישור תיבת רשימה זו לתא, לחץ באמצעות לחצן העכבר הימני על תיבת הרשימה (ודא שנבחר מצב עיצוב) ולחץ על מאפיינים. מלא D3 עבור LinkedCell.
הערה: עיין גם במאפיין ListFillRange כדי למלא תיבת רשימה עם טווח תאים.
9. שמור, סגור ופתח מחדש את קובץ האקסל.
תוֹצָאָה:
למרות שבמצבים מסוימים יכול להיות שימושי למקם תיבת רשימה ישירות בגליון העבודה שלך, אך תיבת רשימה שימושית במיוחד כאשר היא ממוקמת בטופס User.
