כיצד ליצור טפסים עם

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

לחץ על "כלים" בתפריט, בחר "מאקרו" ולחץ על "Visual Basic Editor".

לחץ על "הוסף" ולאחר מכן בחר "UserForm".

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

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

שם את לחצן הפקודה כי יקראו "אישור" על ידי לחיצה על הגדרות שם בחלון מאפיינים הקלדת "cmdOK". לחץ על ההגדרה "מקרא" בחלון מאפיינים והקלד "אישור".

לחץ על לחצן פקודה אחר. לשים את השם של "cmdCancel" ולהגדיר את הכותרת כדי לקרוא "ביטול" בחלון מאפיינים.

לחץ על כפתור הפקודה השלישית בשם "cmdClearForm" ולשנות את הגדרות הכותרת כדי לקרוא "מחק טופס"

לחץ על המקש "F7" במקלדת כדי להציג את חלון הקוד.

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

הסר את הפרוטוקול המשנה הנ"ל שקורא: UserForm_Click ().

כתוב את הקוד הבא בחלון הקוד (אל תכתוב על הטקסט הכחול, רק הוסף את הטקסט בשחור): פרטי Sub UserForm_Initialize () txtName.Value = "" txtPhone.Value = "" עם cboDepartment .AddItem "עובדים "מנהלים" מסתיימים ב- YourCourse.Value = "" optIntroduction = true chkWork = צ'אק שוואקציה = False txtName.SetFocus End Sub

הזן את הקוד בלחצן ביטול. לחץ פעמיים על הלחצן ביטול כדי לפתוח את חלון הקוד. הזן את הקוד שלך כך שחלון הקוד יהיה: פרטי Sub cmdCancel_Click () Unload Me End Sub

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

הזן את הקוד שלך בחלון הקוד כדי לקרוא: פרטי Sub cmdClearForm_Click () Call UserForm_Initialize End Sub

לחץ פעמיים על כפתור "קבל" כדי להוסיף את הקוד הבא בחלון הקוד: פרטי Sub. (0, 1) = txtPhone.Value ActiveCell.Offset (0, 2) = cboDepartment (0, 2) = cboDepartment (0, 4) .Value = "Enter" אלזיף optIntermediate = True אז ActiveCell.Offset (0, 4) .Value = " (0, 5) .Value = "כן" אחר ActiveCell.Offset (0, 5) .Value = "Adv" (0, 6) .Value = "Yes" אחר אם chkVacation = False אז ActiveCell.Offset (0, 6) .Value = "" אחר ActiveCell.Offset (0, 6) .Value = "No" אם סוף אם טווח ("A1") בחר סוף תת