VBA TextBox | כיצד להכניס ולהשתמש ב- TextBox בטופס משתמש VBA?

Excel VBA TextBox

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

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

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

כיצד להכניס את TextBox ל- VBA UserForm?

ניתן להוריד תבנית תיבת טקסט מסוג VBA כאן - תבנית תיבת טקסט של VBA

על מנת להוסיף תחילה תיבת טקסט, עלינו להוסיף טופס משתמש. כדי להוסיף טופס משתמש עבור אל הוספה> טופס משתמש.

ברגע שתלחץ על טופס משתמש אנו נעשה טופס משתמש ממש כמו מודול אחר.

לחץ על טופס משתמש כדי לראות את הפקדים על טופס המשתמש.

מארגז הכלים של בקרות בחר "TextBox" וגרור לטופס המשתמש.

עם זאת, אנו יכולים לראות מאפיינים רבים המשויכים לתיבת טקסט זו.

מאפייני TextBox

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

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

דוגמה לשימוש ב- TextBox בצורת משתמש

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

שלב 1: בטופס המשתמש צייר תווית.

שלב 2: שנה את טקסט ברירת המחדל של התווית ל"שם עובד ".

שלב 3: לפני התווית צייר תיבת טקסט.

שלב 4: תן שם מתאים לתיבת הטקסט בשם "EmpNameTextBox".

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

שלב 6: מול התווית השנייה צייר תיבת טקסט נוספת ושמה "EmpIDTextBox".

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

שלב 8: צייר תיבת טקסט נוספת לפני תווית "משכורת" ושמה "SalaryTextBox".

שלב 9: כעת הכנס את "לחצן הפקודה" מארגז הכלים.

שלב 10: שנה את הטקסט של לחצן הפקודה כ"הגש ".

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

שלב 11: שנה את הכיתוב של טופס המשתמש בחלון המאפיינים.

שלב 12: כעת לחץ פעמיים על כפתור שלח פקודה. ברגע שתלחץ פעמיים תראה הליך משנה אוטומטי זה כמו להלן.

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

לשם כך ראשית צור תבנית כזו בגליון העבודה בשם "גיליון עובדים".

שלב 13: כעת חזור לעורך הבסיס החזותי. בתוך לחצן לחץ על תת-תוכנית ב- VBA, תחילה קבע את השורה האחרונה בשימוש באמצעות הקוד שלהלן.

קוד:

 Private Sub CommandButton1_Click() Dim LR As Long LR = Worksheets("Employee Sheet").cell(Rows.Count, 1).End(xlUp).Row + 1 End Sub 

Step 14: First thing is in the first column we will store Employee Name. So for this, we need to access the text box named as “EmpNameTextBox”.

Code:

 Private Sub CommandButton1_Click() Dim LR As Long LR = Worksheets("Employee Sheet").cell(Rows.Count, 1).End(xlUp).Row + 1 Ramge("A" & LR).Value = EmpNameTextBox.Value End Sub 

Step 15: In the second column we need to store Employee ID. So this will be obtained by accessing the text box named “EmpIDTextBox”.

Code:

 Private Sub CommandButton1_Click() Dim LR As Long LR = Worksheets("Employee Sheet").cell(Rows.Count, 1).End(xlUp).Row + 1 Ramge("A" & LR).Value = EmpNameTextBox.Value Ramge("B" & LR).Value = EmpIDTextBox.Value End Sub 

Step 16: At last we need to store the salary part, for this, we need to access to text box named “SalaryTextBox”.

Code:

 Private Sub CommandButton1_Click() Dim LR As Long LR = Worksheets("Employee Sheet").cell(Rows.Count, 1).End(xlUp).Row + 1 Ramge("A" & LR).Value = EmpNameTextBox.Value Ramge("B" & LR).Value = EmpIDTextBox.Value Range("C" & LR).Value = SalaryTextBox.Value End Sub 

Ok, we are done with the coding part as well. Now run the code using the F5 key we should see a User Form like the below.

As of now, all the boxes are empty.

Fill the details first.

Now click on the “Submit” button, it will store the data to the worksheet.

Like this, you can keep entering the data and hit and submit button. This is the simple data entry user form with a text box.