/ / Excel VBA פקדים אוסף

בקרות של

בעת יצירת Userforms ב Excel VBA, אתה יכול להשתמש אוסף פקדים כדי לולאה בקלות באמצעות פקדים ולהגדיר רכוש של כל שליטה לערך מסוים.

Userform שאנחנו הולכים ליצור נראה כדלקמן:

אוסף פקדים ב - Excel

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

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

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

הגדרת מסך ב - Excel

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

4. כדי לשנות את הכיתוב של לחצן Userform, תווית פקודה, לחץ על תצוגה, חלון מאפיינים ולחץ על כל פקד.

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

Private Sub CommandButton1_Click()

UserForm1.Show vbModeless

End Sub

הסבר: על ידי הוספת vbMless, אתה יכול להשתמש Userform ולעבוד בגליון העבודה שלך בו זמנית.

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

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

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

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

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

Private Sub CommandButton1_Click()

Dim i As Integer

For i = 1 To 10
    Controls("TextBox" & i).Value = Cells(i + 1, 1).Value
Next i

End Sub

הסבר: עם רק כמה שורות של קוד, אנחנו יכולים למלא את תיבות טקסט עם מספרי הטלפון מן הסדין. השתמשנו במפעיל כדי לשרשר (להצטרף) אלמנטים. שורות קוד אלה פועלות משום שלא שינינו את שמות פקדי תיבת הטקסט (TextBox1, TextBox2, TextBox3 וכו ') כדי לשנות את השמות של הפקדים, לחץ על תצוגה, חלון מאפיינים ולחץ על כל פקד.

תוצאה בעת לחיצה על לחצן הפקודה בגיליון:

תוצאות אוסף שולט

קרא גם: