בעת יצירת צורות משתמש ב- Excel VBA, אתה יכול להשתמש ב שולט באוסף כדי לעבור בקלות בין פקדים ולהגדיר מאפיין של כל פקד לערך ספציפי.
צורת המשתמש שאנו הולכים ליצור נראית כדלקמן:
כדי ליצור טופס משתמש זה, בצע את השלבים הבאים:
1. פתח את עורך Visual Basic. אם סייר הפרויקט אינו גלוי, לחץ על תצוגה, סייר הפרויקט.
2. לחץ על הוספה, צורת משתמש. אם ארגז הכלים אינו מופיע אוטומטית, לחץ על תצוגה, ארגז כלים. המסך שלך צריך להיות מוגדר להלן.
3. הוסף את התווית, תיבות הטקסט (לראשונה למעלה, השנייה מתחת לראשונה וכן הלאה) ולחצן הפקודה. לאחר שהושלם, התוצאה צריכה להיות עקבית עם התמונה של טופס המשתמש המוצג קודם לכן. לדוגמה, צור פקד תיבת טקסט על ידי לחיצה על תיבת טקסט מתוך ארגז הכלים. לאחר מכן, תוכל לגרור תיבת טקסט על טופס המשתמש.
4. כדי לשנות את הכיתוב של לחצן טופס המשתמש, התווית והפקודה, לחץ על תצוגה, חלון מאפיינים ולחץ על כל פקד.
5. להצגת טופס המשתמש, מקם כפתור פקודה בגליון העבודה שלך והוסף את שורת הקוד הבאה:
Command Private SubButton1_Click ()
UserForm1. הצג vbModeless
סיום תת
הסבר: על ידי הוספת vbModeless, תוכל להשתמש בפורמט User ולעבוד בדף העבודה שלך בו זמנית.
יצרנו כעת את החלק הראשון של Userform. למרות שזה כבר נראה מסודר, עדיין לא יקרה כלום כאשר נלחץ על כפתור הפקודה בטופס המשתמש.
6. פתח את עורך Visual Basic.
7. ב- Explorer Explorer, לחץ פעמיים על UserForm1.
8. לחץ פעמיים על כפתור הפקודה.
9. הוסף את שורות הקוד הבאות:
Command Private SubButton1_Click ()
Dim i כמספר שלם
עבור i = 1 עד 10
פקדים ("טקסטבוקס" & i). ערך = תאים (i + 1, 1). ערך
הבא i
סיום תת
הסבר: בעזרת מספר שורות קוד בלבד, אנו יכולים למלא את תיבות הטקסט עם מספרי הטלפון מהגיליון. השתמשנו באופרטור & כדי לחבר (לחבר) את האלמנטים. שורות קוד אלה פועלות מכיוון שלא שינינו את שמות פקדי תיבת הטקסט (TextBox1, TextBox2, TextBox3 וכו '). כדי לשנות את שמות הפקדים, לחץ על תצוגה, חלון מאפיינים ולחץ על כל פקד.
התוצאה כאשר אתה לוחץ על כפתור הפקודה בגיליון:
