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