/ /

פורמט

הוסף את הפקדים | הצג את Userform | הקצה את פקודות המאקרו | בדוק את תבנית המשתמש

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

פורמט

הוסף את הפקדים

כדי להוסיף את הפקדים ל- Userform, בצע את השלבים הבאים.

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

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

הגדרת מסך ב - Excel

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

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

שליטה שם הכיתוב
צורה DinnerPlannerUserForm מתכנן ארוחת ערב
תיבת טקסט שם
תיבת טקסט PhoneTextBox
קופסת רשימה עיר
תיבת משולבת DinnerComboBox
תיבת סימון DateCheckBox1 13 ביוני
תיבת סימון DateCheckBox2 20 ביוני
תיבת סימון DateCheckBox3 27 ביוני
מסגרת CarFrame אוטו
לחצן אפשרות CarOptionButton1 כן
לחצן אפשרות CarOptionButton2 לא
תיבת טקסט MoneyTextBox
לחצן ספין / כסף
לחצן פקודה OKButton בסדר
לחצן פקודה ClearButton ברור
לחצן פקודה ביטול בוטון בטל
7 תוויות אין צורך לשנות שם: מספר טלפון:

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

הצג את Userform

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

Private Sub CommandButton1_Click()

DinnerPlannerUserForm.Show

End Sub

עכשיו אנחנו הולכים ליצור את תת משתמשForm_Initialize. כאשר אתה משתמש בשיטת הצג עבור Userform, תת תתבצע באופן אוטומטי.

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

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

.3 בחר באפשרות Userform מהרשימה הנפתחת. בחר 'אתחול' מהרשימה הנפתחת.

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

Private Sub UserForm_Initialize()

"Empty NameTextBox
NameTextBox.Value = ""

"Empty PhoneTextBox
PhoneTextBox.Value = ""

"Empty CityListBox
CityListBox.Clear

"Fill CityListBox
With CityListBox
    .AddItem "San Francisco"
    .AddItem "Oakland"
    .AddItem "Richmond"
End With

"Empty DinnerComboBox
DinnerComboBox.Clear

"Fill DinnerComboBox
With DinnerComboBox
    .AddItem "Italian"
    .AddItem "Chinese"
    .AddItem "Frites and Meat"
End With

"Uncheck DataCheckBoxes

DateCheckBox1.Value = False
DateCheckBox2.Value = False
DateCheckBox3.Value = False

"Set no car as default
CarOptionButton2.Value = True

"Empty MoneyTextBox
MoneyTextBox.Value = ""

"Set Focus on NameTextBox
NameTextBox.SetFocus

End Sub

הסבר: תיבות טקסט מרוקנות, תיבות רשימה ותיבות משולבות מתמלאות, תיבות סימון אינן מסומנות וכו '.

הקצה את פקודות המאקרו

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

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

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

3. לחץ פעמיים על כפתור ספין כסף.

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

Private Sub MoneySpinButton_Change()

MoneyTextBox.Text = MoneySpinButton.Value

End Sub

הסבר: קוד זה מעדכן את תיבת הטקסט בעת שימוש בלחצן הספין.

5. לחץ פעמיים על כפתור אישור.

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

Private Sub OKButton_Click()

Dim emptyRow As Long

"Make Sheet1 active
Sheet1.Activate

"Determine emptyRow
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1

"Transfer information
Cells(emptyRow, 1).Value = NameTextBox.Value
Cells(emptyRow, 2).Value = PhoneTextBox.Value
Cells(emptyRow, 3).Value = CityListBox.Value
Cells(emptyRow, 4).Value = DinnerComboBox.Value

If DateCheckBox1.Value = True Then Cells(emptyRow, 5).Value = DateCheckBox1.Caption

If DateCheckBox2.Value = True Then Cells(emptyRow, 5).Value = Cells(emptyRow, 5).Value & " " & DateCheckBox2.Caption

If DateCheckBox3.Value = True Then Cells(emptyRow, 5).Value = Cells(emptyRow, 5).Value & " " & DateCheckBox3.Caption

If CarOptionButton1.Value = True Then
    Cells(emptyRow, 6).Value = "Yes"
Else
    Cells(emptyRow, 6).Value = "No"
End If

Cells(emptyRow, 7).Value = MoneyTextBox.Value

End Sub

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

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

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

Private Sub ClearButton_Click()

Call UserForm_Initialize

End Sub

הסבר: קוד זה קורא את תת משתמש UserForm_Initialize כאשר אתה לוחץ על כפתור נקה.

9. לחץ לחיצה כפולה על לחצן ביטול.

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

Private Sub CancelButton_Click()

Unload Me

End Sub

הסבר: קוד זה סוגר את Userform בעת לחיצה על הלחצן ביטול.

בדוק את תבנית המשתמש

צא מעורך Visual Basic, הזן את התוויות המוצגות להלן בשורה 1 ובדוק את Userform.

תוצאה:

בדוק את תבנית המשתמש

קרא גם: