/ / תיבת רשימה של VBA של Excel

תיבת רשימה של Excel VBA

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

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

2. בקבוצה פקדי ActiveX, לחץ על תיבת רשימה.

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

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

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

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

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

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

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

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

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

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

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

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

ListBox1.Clear

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

LinkedCell

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

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

תוצאה:

קופסת רשימה

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

קרא גם: