באמצעות Excel, תוכל להשתמש ב- Visual Basic כדי להוסיף מגוון תכונות שונות לגיליונות האלקטרוניים שלך, כולל "UserForms". באמצעות UserForms תוכלו להציג טופס קלט למשתמש הנפרד מגליון העבודה הראשי, שימושי לצילום נתונים מאנשים שאולי אינם מכירים את הגיליונות האלקטרוניים. עם מעט קוד Visual Basic, אתה יכול להוסיף את כל הנתונים האלה לגיליון האלקטרוני שלך בשורות חדשות.
הגדר את השדות שלך
הפעל את Excel. הזן את שמות כל השדות שברצונך ללכוד בשורה העליונה, החל מ- "A1" ועבוד ימינה. לחץ על "מפתח" ולאחר מכן לחץ על "Visual Basic". חלון Visual Basic יופיע. לחץ על הסמל "A" מארגז הכלים, ולחץ וגרור בתוך חלון "UserForm1" במיקום שאליו תרצה ששדה הטופס הראשון שלך יעבור. ערוך את התווית על ידי שינוי מאפיין "כיתוב" למשהו תיאורי יותר, כגון "שם פרטי", למשל. צור תווית לכל אחד מהשדות שהזנת בגליון העבודה שלך.
הוסף את תיבות הטקסט שלך
בחר בסמל "TextBox" מארגז הכלים, וגרור תיבת טקסט מימין לתווית הראשונה שלך. אם תשתמש רק בכמה שדות, מקובל להשאיר את המאפיין "(שם)" כברירת המחדל כ- "TextBox1". עם זאת, אם אתה זקוק למספר רב של שדות, הדבר עלול להיות מבלבל, לכן עליך לערוך אותם כך שיתאימו לתוויות שכבר יצרת. ודא שלכל תווית יש תיבת טקסט תואמת.
הוסף כפתור הגשה
לחץ על סמל "לחצן הפקודה" בארגז הכלים, שנראה כמו כפתור רגיל בסגנון Windows. לחץ וגרור אותו לגודל ולמיקום הדרוש לך ב- UserForm1. בדרך כלל, תרצה בכך מתחת לתיבת הטקסט הסופית בטופס שלך או בסמוך לה. שנה את מאפיין הכיתוב של הכפתור ל"הגיש נתונים "או משהו דומה, המציין בפני המשתמש שעליו ללחוץ על כפתור זה כדי להגיש את הנתונים שלהם.
הוסף קוד Visual Basic
לחץ פעמיים על הכפתור. הזן את הקוד הבא בין "משנה פרטית" ל"סיום משנה ":
eRow = Sheet1.Cells (Rows.Count, 1). End (xlUp). Offset (1,0). Row
ואז התחל שורה חדשה מתחת לשורה זו והזן את השורה הבאה:
תאים (erow, 1) = TextBox1.Text
אם שינית את שם תיבות הטקסט שלך, שנה את "TextBox1" לשם שנתת לתיבת הטקסט הראשונה. עשה זאת עבור כל תיבת קלט שיצרת, התחל שורה חדשה והזן את שמות תיבות הטקסט הנכונות לפי הצורך. כמו כן, עבור כל שורה חדשה, הגדל את הדמות בסוגריים אחת. לדוגמה, השורה הבאה עשויה להיראות כך:
תאים (erow, 2) = TextBox2.Text
לחץ על כפתור "הפעל" בראש החלון כדי להתחיל ללכוד נתונים.
