עם כמה שורות קוד, אנחנו יכולים בקלות לולאה באמצעות פקדים על טופס משתמש ב- Excel VBA. צורת המשתמש שאנו הולכים ליצור נראית כדלקמן:
כדי ליצור טופס משתמש זה, בצע את השלבים הבאים.
1. פתח את עורך Visual Basic. אם סייר הפרויקט אינו גלוי, לחץ על תצוגה, סייר הפרויקט.
2. לחץ על הוספה, צורת משתמש. אם ארגז הכלים אינו מופיע אוטומטית, לחץ על תצוגה, ארגז כלים. המסך שלך צריך להיות מוגדר להלן.
3. הוסף את התווית, סמן את התיבות (ראשית למעלה, השני מתחת לראשון וכן הלאה) ולחץ על כפתור הפקודה. לאחר שהושלם, התוצאה צריכה להיות עקבית עם התמונה של טופס המשתמש המוצג קודם לכן. לדוגמה, צור פקד תיבת סימון על ידי לחיצה על תיבת צ'ק מתיבת הכלים. לאחר מכן, תוכל לגרור תיבת סימון בטופס המשתמש.
4. אתה יכול לשנות את השמות ואת הכיתובים של הפקדים. שמות משמשים בקוד VBA של Excel. כיתובים הם אלה המופיעים על המסך שלך. זה נוהג טוב לשנות את שמות הפקדים, אבל זה לא הכרחי כאן כי יש לנו רק כמה פקדים בדוגמה זו. כדי לשנות את הכיתוב של טופס המשתמש, התווית, תיבות הסימון ולחצן הפקודה, לחץ על תצוגה, חלון מאפיינים ולחץ על כל פקד.
5. להצגת טופס המשתמש, מקם כפתור פקודה בגליון העבודה שלך והוסף את שורת הקוד הבאה:
Command Private SubButton1_Click ()
UserForm 1. הצג
סיום תת
יצרנו כעת את החלק הראשון של Userform. למרות שזה כבר נראה מסודר, עדיין לא יקרה כלום כאשר נלחץ על הלחצן נקה.
6. פתח את עורך Visual Basic.
7. ב- Explorer Explorer, לחץ פעמיים על UserForm1.
8. לחץ פעמיים על הלחצן Clear.
9. הוסף את שורות הקוד הבאות:
Command Private SubButton1_Click ()
Dim contr כשליטה
עבור כל בקרה ב- UserForm1.Controls
אם TypeName (contr) = "CheckBox" אז
contr.Value = שקר
סוף אם
הַבָּא
סיום תת
הסבר: Excel VBA עובר את כל הפקדים בטופס User. הפונקציה TypeName משמשת לסינון פקדי תיבת הסימון. אם פקד תיבת סימון, Excel VBA מבטל את סימון תיבת הסימון. contr נבחר כאן באופן אקראי, אתה יכול להשתמש בכל שם. זכור להתייחס לשם זה בשאר הקוד שלך.
התוצאה בלחיצה על הלחצן נקה:
