להלן נבחן תוכנית ב Excel VBA אשר יוצר Userform המכיל קופסאות משולבות תלויות. צורת המשתמש שאנו הולכים ליצור נראית כדלקמן:
המשתמש בוחר בעלי חיים מתוך רשימה נפתחת. כתוצאה מכך, המשתמש יכול לבחור בעל חיים מהרשימה הנפתחת השנייה.
המשתמש בוחר ספורט מהרשימה הנפתחת. כתוצאה מכך, המשתמש יכול לבחור ספורט מתוך הרשימה הנפתחת השנייה.
כדי ליצור טופס משתמש זה, בצע את השלבים הבאים.
1. פתח את עורך Visual Basic. אם סייר הפרויקט אינו גלוי, לחץ על תצוגה, סייר הפרויקט.
2. לחץ על הוספה, צורת משתמש. אם ארגז הכלים אינו מופיע אוטומטית, לחץ על תצוגה, ארגז כלים. המסך שלך צריך להיות מוגדר להלן.
3. הוסיפו את הקופסאות המשולבות (הראשונה משמאל, השנייה מימין) ולחצן הפקודה. לאחר שהושלם, התוצאה צריכה להיות עקבית עם התמונה של טופס המשתמש המוצג קודם לכן. לדוגמה, צור פקד תיבה משולבת על ידי לחיצה על ComboBox מתוך ארגז הכלים. לאחר מכן, תוכל לגרור תיבה משולבת על טופס המשתמש.
4. אתה יכול לשנות את השמות ואת הכיתובים של הפקדים. שמות משמשים בקוד VBA של Excel. כיתובים הם אלה המופיעים על המסך שלך. זה נוהג טוב לשנות את שמות הפקדים, אבל זה לא הכרחי כאן כי יש לנו רק כמה פקדים בדוגמה זו. כדי לשנות את הכיתוב של לחצן טופס המשתמש והפקודה, לחץ על תצוגה, חלון מאפיינים ולחץ על כל פקד.
5. להצגת טופס המשתמש, מקם כפתור פקודה בגליון העבודה שלך והוסף את שורת הקוד הבאה:
Command Private SubButton1_Click ()
UserForm 1. הצג
סיום תת
כעת אנו הולכים ליצור את Sub UserForm_Initialize. כאשר אתה משתמש בשיטת הצג עבור טופס המשתמש, תת זה יבוצע אוטומטית.
6. פתח את עורך Visual Basic.
7. ב- Explorer Explorer, לחץ באמצעות לחצן העכבר הימני על UserForm1 ולאחר מכן לחץ על הצג קוד.
8. בחר Userform מתוך הרשימה הנפתחת השמאלית. בחר באתחול מהרשימה הנפתחת הימנית.
9. הוסף את שורות הקוד הבאות:
תת משתמש פרטי Form_Initialize ()
עם ComboBox1
.AddItem "בעלי חיים"
.AddItem "ספורט"
.AddItem "מזון"
סיים עם
סיום תת
הסבר: שורות קוד אלה ממלאות את התיבה המשולבת הראשונה.
יצרנו כעת את החלק הראשון של Userform. למרות שזה כבר נראה מסודר, עדיין לא יקרה כלום כאשר נבחר פריט מהקופסה המשולבת הראשונה.
10. ב- Explorer Explorer, לחץ פעמיים על UserForm1.
11. לחץ פעמיים על התיבה המשולבת הראשונה.
12. הוסף את שורות הקוד הבאות:
תת שילוב פרטי Box1_Change ()
אינדקס עמום כמכלול שלם
index = ComboBox1.ListIndex
ComboBox 2. ברור
בחר אינדקס מקרה
מקרה הוא = 0
עם ComboBox2
.AddItem "כלב"
.AddItem "חתול"
.AddItem "סוס"
סיים עם
מקרה הוא = 1
עם ComboBox2
.AddItem "טניס"
.AddItem "שחייה"
.AddItem "כדורסל"
סיים עם
מקרה הוא = 2
עם ComboBox2
.AddItem "פנקייק"
.AddItem "פיצה"
.AddItem "סיני"
סיים עם
סיום בחר
סיום תת
הסבר: Excel VBA משתמש בערך האינדקס המשתנה כדי לבדוק כל משפט מקרה אחר כדי לראות באילו פריטים יש למלא את התיבה המשולבת השנייה. עיין בתוכנית Select Case שלנו למידע נוסף על מבנה Select Case.
13. לחץ פעמיים על כפתור הייבוא.
14. הוסף את שורת הקוד הבאה:
Command Private SubButton1_Click ()
טווח ("A1"). Value = ComboBox2.Value
סיום תת
תוֹצָאָה:
