להלן נבחן תוכנית ב- Excel VBA היוצרת טופס User המכיל מספר דפים. טופס משתמש זה מכיל גם תמונות.
הפקד מרובי הדפים מכיל שני עמודים. בעמוד 1, המשתמש יכול למלא את המידע האישי שלו. בעמוד 2, המשתמש יכול לציין איזה ציור הוא הכי אוהב.
כדי ליצור טופס משתמש זה, בצע את השלבים הבאים.
1. פתח את עורך Visual Basic. אם סייר הפרויקט אינו גלוי, לחץ על תצוגה, סייר הפרויקט.
2. לחץ על הוספה, צורת משתמש. אם ארגז הכלים אינו מופיע אוטומטית, לחץ על תצוגה, ארגז כלים. המסך שלך צריך להיות מוגדר להלן.
3. הוסף את הפקד מרובה דפים, תוויות, תיבות טקסט (ראשון למעלה, השני מתחת לראשון), מסגרת, לחצני אופציות (ראשון משמאל, השני מימין), תיבת רשימה, בקרת תמונה ולחצן פקודה. לאחר השלמת פעולה זו, התוצאה צריכה להיות עקבית עם הגרסה הריקה של טופס המשתמש המוצג קודם לכן. לדוגמה, צור פקד רב דפים על ידי לחיצה על ריבוי דפים מארגז הכלים. לאחר מכן, תוכל לגרור פקד מרובה דפים על Userform. כאשר אתה מגיע למסגרת המגדר, זכור לצייר מסגרת זו תחילה לפני שתניח בה את שני לחצני האפשרויות.
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 ()
עם ListBox1
.AddItem "הרים"
.AddItem "שקיעה"
.AddItem "חוף"
.AddItem "חורף"
סיים עם
סיום תת
הסבר: תיבת הרשימה בעמוד 2 תתמלא.
יצרנו כעת את החלק הראשון של Userform. למרות שזה כבר נראה מסודר, עדיין לא יקרה כלום כאשר נבחר פריט מתיבת הרשימה או כאשר נלחץ על כפתור אישור.
10. הורד את התמונות (צד ימין של דף זה) והוסף אותן ל- "C: \ test \"
11. ב- Explorer Explorer, לחץ פעמיים על UserForm1.
12. לחץ פעמיים על תיבת הרשימה.
13. הוסף את שורות הקוד הבאות:
רשימת משנה פרטית Box1_Click ()
אם ListBox1.ListIndex = 0 אז
Image1.Picture = LoadPicture ("C: \ test \ Mountains.jpg")
סוף אם
אם ListBox1.ListIndex = 1 לאחר מכן
Image1.Picture = LoadPicture ("C: \ test \ Sunset.jpg")
סוף אם
אם ListBox1.ListIndex = 2 לאחר מכן
Image1.Picture = LoadPicture ("C: \ test \ Beach.jpg")
סוף אם
אם ListBox1.ListIndex = 3 אז
Image1.Picture = LoadPicture ("C: \ test \ Winter.jpg")
סוף אם
סיום תת
הסבר: שורות קוד אלה טוענות תמונה בהתאם לפריט שנבחר בתיבת הרשימה.
14. לחץ פעמיים על הלחצן אישור.
15. הוסף את שורות הקוד הבאות:
Command Private SubButton1_Click ()
עמום ריק שורה ארוכה
'הפוך את גיליון 1 לפעיל
גיליון 1. הפעל
'קבע ריק שורה
emptyRow = גליון עבודה.קונטא (טווח ("A: A")) + 1
'העבר מידע
תאים (emptyRow, 1) .Value = TextBox1.Value
תאים (emptyRow, 2) .Value = TextBox2.Value
אם OptionButton1.Value = True אז
תאים (emptyRow, 3) .Value = "זכר"
אַחֵר
תאים (emptyRow, 3) .Value = "נקבה"
סוף אם
תאים (emptyRow, 4) .Value = ListBox1.Value
'סגור טופס משתמש
תוריד אותי
סיום תת
הסבר: ראשית, אנו מפעילים את גיליון 1. לאחר מכן, אנו קובעים emptyRow. המשתנה emptyRow הוא השורה הריקה הראשונה והוא גדל בכל פעם שמתווספת רשומה. לאחר מכן, אנו מעבירים את המידע מטופס המשתמש לעמודות הספציפיות של emptyRow. לבסוף, אנו סוגרים את טופס המשתמש.
16. צא מעורך Visual Basic, הזן את התוויות המוצגות להלן בשורה 1 ובדוק את צורת המשתמש.
תוֹצָאָה:
