להלן נבחן תוכנית ב Excel VBA אשר יוצר Userform המכיל a קופסת משולבת מרובת עמודים.
צורת המשתמש שאנו הולכים ליצור נראית כדלקמן:
כדי ליצור טופס משתמש זה, בצע את השלבים הבאים.
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.ColumnCount = 2
סרטים עמומים (1 עד 5, 1 עד 2) כמחרוזת
Dim i As Integer, j As Integer
סרטים (1, 1) = "שר הטבעות"
סרטים (2, 1) = "מהירות"
סרטים (3, 1) = "מלחמת הכוכבים"
סרטים (4, 1) = "הסנדק"
סרטים (5, 1) = "ספרות עיסה"
סרטים (1, 2) = "הרפתקה"
סרטים (2, 2) = "פעולה"
סרטים (3, 2) = "מדע בדיוני"
סרטים (4, 2) = "פשע"
סרטים (5, 2) = "דרמה"
ComboBox1.List = סרטים
סיום תת
הסבר: שורת הקוד הראשונה קובעת את מספר העמודות של התיבה המשולבת ל- 2. במקום להגדיר את מספר העמודות בזמן ריצה, ניתן גם להגדיר הגדרה זו בזמן העיצוב. כדי להשיג זאת, לחץ באמצעות לחצן העכבר הימני על פקד התיבה המשולבת, לחץ על מאפיינים והגדר את המאפיין ColumnCount ל 2. לאחר מכן, אנו מכריזים ומתחילים מערך דו ממדי. שורת הקוד האחרונה מקצה את המערך לתיבה המשולבת.
יצרנו כעת את החלק הראשון של Userform. למרות שזה כבר נראה מסודר, עדיין לא יקרה כלום כאשר נלחץ על כפתורי הפקודה בטופס המשתמש.
10. ב- Explorer Explorer, לחץ פעמיים על UserForm1.
11. לחץ פעמיים על הלחצן אישור.
12. הוסף את שורות הקוד הבאות:
Command Private SubButton1_Click ()
תוריד אותי
MsgBox "בחרת" ו- ComboBox1.Value
על שגיאה המשך הבא
MsgBox "אתה אוהב" וקומבוקס 1. טור (1) וסרטים "
סיום תת
הערה: שורות קוד אלה סוגרות את טופס המשתמש VBA של Excel ומציגות את הפריט והז'אנר שנבחר. המשפט 'On Error Resume Next' מתעלם מהשגיאה כאשר המשתמש ממלא את הסרט שלו (במקרה זה אין ז'אנר זמין).
13. לחץ פעמיים על כפתור הביטול.
14. הוסף את שורת הקוד הבאה:
פקודת משנה פרטית Button2_Click ()
תוריד אותי
סיום תת
התוצאה כאשר אתה בוחר מהירות ולחץ על אישור.
