/ / לולאה באמצעות פקדים ב - VBA של

לולאה באמצעות פקדים ב - VBA של

עם רק כמה שורות של קוד, אנחנו יכולים בקלות לולאה דרך פקדים ב פורמט. Userform שאנחנו הולכים ליצור נראה כדלקמן:

לולאה באמצעות פקדים ב - VBA של

כדי ליצור Userform זה, בצע את השלבים הבאים.

1. פתח את עורך Visual Basic. אם סייר הפרויקטים אינו גלוי, לחץ על תצוגה, סייר פרויקט.

.2 לחץ על הוספה, Userform. אם תיבת הכלים אינה מופיעה באופן אוטומטי, לחץ על תצוגה, תיבת כלים. המסך שלך צריך להיות מוגדר כמו להלן.

הגדרת מסך ב - Excel

3. הוסף את התווית, תיבות הסימון (תחילה בראש, השני מתחת הראשון, וכן הלאה) ואת הפקודה כפתור. לאחר השלמת פעולה זו, התוצאה צריכה להיות עקבית עם התמונה של Userform שמוצג קודם לכן. לדוגמה, צור בקרת תיבת סימון על ידי לחיצה על תיבת הסימון מתיבת הכלים. לאחר מכן, ניתן לגרור תיבת סימון ב Userform.

4. באפשרותך לשנות את השמות ואת הכיתובים של הפקדים. השמות משמשים בקוד ה- VBA של Excel. כיתובים הם אלה שמופיעים על המסך. זה נוהג טוב לשנות את השמות של הפקדים, אבל זה לא הכרחי כאן כי יש לנו רק כמה שולט בדוגמה זו. כדי לשנות את הכיתוב של Userform, תווית, תיבות סימון וכפתור פקודה, לחץ על תצוגה, חלון מאפיינים ולחץ על כל פקד.

5. כדי להציג את Userform, הצב לחצן פקודה בגליון העבודה והוסף את שורת הקוד הבאה:

Private Sub CommandButton1_Click()

UserForm1.Show

End Sub

עכשיו יצרנו את החלק הראשון של Userform. למרות שזה נראה מסודר כבר, שום דבר לא יקרה עדיין כאשר אנו לוחצים על כפתור נקה.

6. פתח את עורך Visual Basic.

7. בסייר הפרויקט, לחץ לחיצה כפולה על UserForm1.

8. לחץ לחיצה כפולה על לחצן נקה.

9. הוסף את שורות הקוד הבאות:

Private Sub CommandButton1_Click()

Dim contr As control

For Each contr In UserForm1.Controls
    If TypeName(contr) = "CheckBox" Then
        contr.Value = False
    End If
Next

End Sub

הסבר: Excel VBA לולאות דרך כל הפקדים על Userform. הפונקציה TypeName משמשת לסינון פקדי תיבת הסימון. אם בקרת תיבת הסימון, Excel VBA מסיר את תיבת הסימון. contr נבחר באופן אקראי כאן, אתה יכול להשתמש בכל שם. זכור להתייחס לשם זה בשאר הקוד.

תוצאה בעת לחיצה על הלחצן 'נקה':

לולאה דרך תוצאות הבקרה

קרא גם: