/ / VBA משולבת תיבת VBA

משולבת תיבת VBA

תיבה משולבת היא רשימה נפתחת שבה המשתמש יכול לבחור פריט או למלא את הבחירה שלו. ליצור תיבת משולבת in Excel VBA, בצע את השלבים הבאים.

1. בכרטיסייה מפתח, לחץ על הוספה.

2. בקבוצה ActiveX Controls, לחץ על Combo Box.

יצירת תיבת משולבת ב- Excel VBA

3. גרור תיבה משולבת בגליון העבודה שלך.

גרור תיבת משולבת

הערה: אתה יכול לשנות את השם של שליטה על ידי לחיצה ימנית על שליטה (ודא מצב עיצוב נבחר) ולאחר מכן לחיצה על מאפיינים. לעת עתה, נצא ComboBox1 כמו שם של תיבת משולבת.

צור אירוע פתוח. הקוד שנוסף לאירוע הפתוח של חוברת העבודה יבוצע על-ידי Excel VBA בעת פתיחת חוברת העבודה.

4. פתח את עורך Visual Basic.

5. לחיצה כפולה על חוברת עבודה זו בסייר הפרויקט.

6. בחר 'חוברת עבודה' מהרשימה הנפתחת שמאלה ובחר 'פתח' מהרשימה הנפתחת.

אירוע פתוח ב - Excel

7. כדי להוסיף פריטים לתיבה המשולבת, הוסף את שורות הקוד הבאות לאירוע פתח החוברת:

With Sheet1.ComboBox1
    .AddItem "Paris"
    .AddItem "New York"
    .AddItem "London"
End With

הערה: השתמש ב- Sheet2 אם התיבה המשולבת נמצאת בגליון העבודה השני, Sheet3 אם התיבה המשולבת ממוקמת בגליון העבודה השלישי וכו '. אם אתה משתמש בקווי קוד אלה מחוץ לאירוע Workbook Open, מומלץ להוסיף את שורות הקוד להלן לפני קוד. קוד הקוד הראשון מנקה את תיבת משולבת. בדרך זו הפריטים שלך זכה "לא יתווסף מספר פעמים אם אתה מבצע את הקוד שלך יותר מפעם אחת.שורה קוד השני מנקה את הבחירה שלך.

ComboBox1.Clear
ComboBox1.Value = ""

8. כדי לקשר את תיבת משולבת לתא, לחץ לחיצה ימנית על תיבת משולבת (ודא מצב עיצוב נבחר) ולחץ על מאפיינים. מלאו את D2 עבור LinkedCell.

LinkedCell

הערה: ראה גם את המאפיין ListFillRange כדי למלא תיבת משולבת עם טווח של תאים.

9. שמור, סגור ופתח מחדש את קובץ ה- Excel.

תוצאה:

תיבת משולבת

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

קרא גם: