300 דוגמאות

אוסף בקרות

Controls Collection

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



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

אוסף שליטה ב- Excel VBA





כדי ליצור טופס משתמש זה, בצע את השלבים הבאים:

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



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

כיצד להשלים את הטבלה באקסל

הגדרת מסך של Userform ב- Excel VBA

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

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

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

פְּרָטִי תַתCommandButton1_Click ()

UserForm1. הצג vbModeless

סוֹף תַת

הסבר: על ידי הוספת vbModeless, תוכל להשתמש בפורמט User ולעבוד בדף העבודה שלך בו זמנית.

בחר כל תא אחר ב- Excel

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

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

להצטיין כיצד לחלץ שנה מהתאריך

7. ב- Explorer Explorer, לחץ פעמיים על UserForm1.

8. לחץ פעמיים על כפתור הפקודה.

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

פְּרָטִי תַתCommandButton1_Click ()

אף אחדאניכפי ש מספר שלם

לi = 1ל10
פקדים ('TextBox' & i). ערך = תאים (i + 1, 1). ערך
הַבָּאאני

סוֹף תַת

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

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

שולט בתוצאות האיסוף

9/11 הושלם! למידע נוסף על צורות משתמש>
עבור לפרק הבא: טווח



^