להלן נבחן תוכנית ב Excel VBA היוצר טופס User המכיל א קופסת משולבת מרובת עמודים .
צורת המשתמש שאנו הולכים ליצור נראית כדלקמן:
כדי ליצור טופס משתמש זה, בצע את השלבים הבאים.
כיצד למיין לפי צבע התא ב- Excel
1. פתח את עורך Visual Basic . אם סייר הפרויקט אינו גלוי, לחץ על תצוגה, סייר הפרויקט.
2. לחץ על הוספה, צורת משתמש. אם ארגז הכלים אינו מופיע אוטומטית, לחץ על תצוגה, ארגז כלים. המסך שלך צריך להיות מוגדר להלן.
3. הוסף את התווית, התיבה המשולבת ולחצני הפקודה. לאחר שהושלם, התוצאה צריכה להיות עקבית עם התמונה של טופס המשתמש המוצג קודם לכן. לדוגמה, צור פקד תיבה משולבת על ידי לחיצה על ComboBox מתוך ארגז הכלים. לאחר מכן, תוכל לגרור תיבה משולבת על טופס המשתמש.
4. אתה יכול לשנות את השמות ואת הכיתובים של הפקדים. שמות משמשים בקוד VBA של Excel. כיתובים הם אלה המופיעים על המסך שלך. זה נוהג טוב לשנות את שמות הפקדים, אבל זה לא הכרחי כאן כי יש לנו רק כמה פקדים בדוגמה זו. כדי לשנות את הכיתוב של לחצני טופס המשתמש, התווית והפקודה, לחץ על תצוגה, חלון מאפיינים ולחץ על כל פקד.
5. להצגת טופס המשתמש, הצב א כפתור הפקודה בגליון העבודה שלך והוסף את שורת הקוד הבאה:
כיצד להכניס נוסחת סכום באקסלפְּרָטִי תַתCommandButton1_Click ()
UserForm 1. הצג
סוֹף תַת
כעת אנו הולכים ליצור את Sub UserForm_Initialize. כאשר אתה משתמש בשיטת הצג עבור טופס המשתמש, תת משנה זה יבוצע באופן אוטומטי.
6. פתח את עורך Visual Basic .
7. ב- Explorer Explorer, לחץ באמצעות לחצן העכבר הימני על UserForm1 ולאחר מכן לחץ על הצג קוד.
8. בחר Userform מתוך הרשימה הנפתחת השמאלית. בחר באתחול מהרשימה הנפתחת הימנית.
9. הוסף את שורות הקוד הבאות:
פְּרָטִי תַתUserForm_Initialize ()ComboBox1.ColumnCount = 2
אף אחדסרטים (1ל5, 1ל2)כפי ש חוּט
אף אחדאניכפי ש מספר שלם, יכפי ש מספר שלם
סרטים (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. הוסף את שורות הקוד הבאות:
פְּרָטִי תַתCommandButton1_Click ()תוריד אותי
מס 'תיבת' שבחרת '& קומבוקס 1. ערך
עַל שְׁגִיאָה קורות חיים הַבָּא
MsgBox 'אתה אוהב' & קומבובוקס 1. טור (1) & 'סרטים'
סוֹף תַת
הערה: שורות קוד אלה סוגרות את טופס המשתמש VBA של Excel ומציגות את הפריט והז'אנר שנבחר. המשפט 'On Error Resume Next' מתעלם מהשגיאה כאשר המשתמש ממלא את הסרט שלו (במקרה זה אין ז'אנר זמין).
13. לחץ פעמיים על כפתור הביטול.
14. הוסף את שורת הקוד הבאה:
פְּרָטִי תַתCommandButton2_Click ()תוריד אותי
סוֹף תַת
התוצאה כאשר אתה בוחר מהירות ולחץ על אישור.
כיצד להכין טבלת רגרסיה
עבור לפרק הבא: טווח