VBA TextBox | Як вставити та використовувати TextBox у форму користувача VBA?

Excel VBA TextBox

Текстове поле - це просто поле, яке використовується для отримання вхідних даних від користувача, текстові поля є частиною користувацьких форм і на вкладці розробника в будь-якому аркуші Excel, якщо ми хочемо зробити текстові поля в користувацькій формі, ми можемо вибрати параметр текстового поля з елементів керування формою користувача у VBA або на аркуші ми можемо вибрати його на вкладці проектування.

VBA TextBox - це один із елементів керування багатьох елементів користувацької форми. Показуючи текстове поле на бланку користувача, ми можемо попросити їх ввести дані в текстове поле, і дані, введені користувачем, можуть зберігатися на аркуші з простими кодами.

Користувацькі форми дуже привабливі в кодуванні VBA. Це нам надзвичайно допомагає, особливо коли нам потрібно отримати вказівки від користувачів. Що стосується форм користувача, ми маємо багато елементів керування, і отримати вхідне значення від користувачів “Текстове поле” є ідеальним варіантом у формі користувача. Поставивши текстове поле на форму користувача, ми можемо фактично сказати користувачеві ввести необхідне значення в текстове поле, яке ми відображаємо. Якщо ви не уявляєте про текстові поля VBA, ця стаття ознайомиться з текстовими полями VBA.

Як вставити TextBox у форму користувача VBA?

Ви можете завантажити цей шаблон текстового поля VBA тут - Шаблон текстового поля VBA

Щоб спочатку вставити текстове поле, нам потрібно вставити форму користувача. Щоб вставити форму користувача, перейдіть у меню Вставка> Форма користувача.

Як тільки ви натиснете на форму користувача, ми будемо форму користувача, як і інший модуль.

Клацніть на форму користувача, щоб побачити елементи керування формою користувача.

На цій панелі інструментів керування виберіть “TextBox” і перетягніть на форму користувача.

Завдяки цьому ми можемо побачити багато властивостей, пов’язаних із цим текстовим полем.

Властивості TextBox

Натисніть клавішу F4, щоб побачити Властивості текстового поля.

Як ми бачимо, текстове поле має ім'я, колір, межу, як це багато. Тепер дайте власне ім’я, щоб ми могли легко посилатися на це текстове поле під час кодування.

Приклад використання TextBox в Userform

Ми проведемо один із проектів із текстом VBA. Ми створимо форму користувача для введення даних для зберігання даних про співробітників.

Крок 1: На бланку користувача намалюйте ярлик.

Крок 2: Змініть текст ярлика за замовчуванням на «Ім'я працівника».

Крок 3: Перед ярликом намалюйте текстове поле.

Крок 4: Дайте власне ім'я текстовому полі як “EmpNameTextBox”.

Крок 5: Тепер намалюйте ще один ярлик під першим ярликом і введіть текст як “Ідентифікатор працівника”.

Крок 6: Перед другою міткою намалюйте ще одне текстове поле та назвіть його як “EmpIDTextBox”.

Крок 7: Намалюйте ще одну мітку та введіть текст як “Зарплата”.

Крок 8: Намалюйте ще одне текстове поле перед міткою «Зарплата» та назвіть його як «SalaryTextBox».

Крок 9: Тепер вставте “Кнопка команди” з панелі інструментів.

Крок 10: Змініть текст командної кнопки на «Надіслати».

Гаразд, ми закінчили роботу з дизайном форми користувача. Тепер нам потрібно написати код для зберігання даних, введених у цій формі користувача. Відтепер запустіть форму користувача, натиснувши клавішу F5, ми повинні побачити форму користувача, подібну до цієї.

Step 11: Change the Caption of the User Form in the Properties window.

Step 12: Now double click on the Submit Command Button.As soon as you double click you will see this auto sub procedure like the below.

This is when you click on the Submit button what should happen. We need to mention the tasks in the VBA code. In this project, our aim is to store the data entered in the text box as soon as we click on the Submit Button.

For this first create a Template like this in the worksheet named “Employees Sheet”.

Step 13: Now come back to the visual basic editor. Inside the button click subroutine in VBA first determine the last used row by using the below code.

Code:

 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.