Текстовое поле Excel VBA
Текстовое поле просто похоже на поле, которое используется для ввода данных от пользователя, текстовые поля являются частью пользовательских форм и на вкладке разработчика на любом листе Excel. Если мы хотим создать текстовые поля в пользовательской форме, мы можем выбрать параметр текстового поля. из элементов управления пользовательской формы в VBA или на листе мы можем выбрать его на вкладке дизайна.
VBA TextBox - один из элементов управления многих элементов пользовательской формы. Отображая текстовое поле в форме пользователя, мы можем попросить их ввести данные в текстовое поле, и данные, введенные пользователем, могут быть сохранены на листе с простыми кодами.
Пользовательские формы очень привлекательны в кодировании VBA. Это очень помогает нам, особенно когда нам нужно получить информацию от пользователей. В пользовательских формах у нас есть много элементов управления, и для получения значения ввода от пользователей «Текстовое поле» - идеальный вариант в пользовательской форме. Поместив текстовое поле в пользовательскую форму, мы можем фактически сказать пользователю, что нужно ввести необходимое значение в текстовое поле, которое мы отображаем. Если вы понятия не имеете о текстовых полях VBA, в этой статье мы расскажем о текстовых полях VBA.
Как вставить текстовое поле в пользовательскую форму VBA?
Вы можете скачать этот шаблон текстового поля VBA здесь - Шаблон текстового поля VBAЧтобы сначала вставить текстовое поле, нам нужно вставить пользовательскую форму. Чтобы вставить пользовательскую форму, перейдите в Вставить> Пользовательская форма.
Как только вы нажмете на User Form, мы получим User Form, как и другой модуль.
Щелкните Пользовательская форма, чтобы увидеть элементы управления пользовательской формы.
На панели инструментов «Элементы управления» выберите «Текстовое поле» и перетащите его на пользовательскую форму.
При этом мы можем увидеть множество свойств, связанных с этим текстовым полем.
Свойства текстового поля
Нажмите клавишу F4, чтобы увидеть свойства текстового поля.
Как мы видим, текстовое поле имеет имя, цвет, границу, как у многих. Теперь дайте собственное имя, чтобы мы могли легко ссылаться на это текстовое поле во время кодирования.
Пример использования TextBox в пользовательской форме
Мы будем вести один из проектов с текстом VBA. Мы создадим пользовательскую форму для ввода данных, чтобы хранить данные о сотрудниках.
Шаг 1: Нарисуйте метку в форме пользователя.
Шаг 2: Измените текст метки по умолчанию на «Имя сотрудника».
Шаг 3. Перед меткой нарисуйте текстовое поле.
Шаг 4: Дайте текстовому полю собственное имя «EmpNameTextBox».
Шаг 5: Теперь нарисуйте еще один ярлык под первым ярлыком и введите текст как «Идентификатор сотрудника».
Шаг 6: Перед второй меткой нарисуйте еще одно текстовое поле и назовите его «EmpIDTextBox».
Шаг 7: Нарисуйте еще один ярлык и введите текст «Зарплата».
Шаг 8: Нарисуйте еще одно текстовое поле перед меткой «Зарплата» и назовите его «SalaryTextBox».
Шаг 9: Теперь вставьте «Command Button» из ToolBox.
Шаг 10: Измените текст командной кнопки на «Отправить».
Хорошо, мы закончили с частью дизайна пользовательской формы. Теперь нам нужно написать код для хранения данных, введенных в эту пользовательскую форму. На данный момент запустите пользовательскую форму, нажав клавишу F5, мы должны увидеть такую пользовательскую форму.
Шаг 11: Измените заголовок пользовательской формы в окне «Свойства».
Шаг 12: Теперь дважды щелкните кнопку «Отправить команду». Как только вы дважды щелкните, вы увидите эту автоматическую подпроцедуру, как показано ниже.
Это должно произойти, когда вы нажимаете кнопку «Отправить». Отметим задачи в коде VBA. В этом проекте наша цель - сохранить данные, введенные в текстовое поле, как только мы нажмем кнопку «Отправить».
Для этого сначала создайте такой шаблон на рабочем листе с именем «Лист сотрудников».
Шаг 13: Теперь вернитесь в редактор Visual Basic. Внутри подпрограммы нажатия кнопки в VBA сначала определите последнюю использованную строку, используя приведенный ниже код.
Код:
Private Sub CommandButton1_Click () Dim LR As Long LR = Worksheets ("Employee Sheet"). Cell (Rows.Count, 1) .End (xlUp) .Row + 1 End Sub 
Шаг 14: Во-первых, в первом столбце мы сохраним имя сотрудника. Итак, для этого нам нужно получить доступ к текстовому полю с именем «EmpNameTextBox».
Код:
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 Конец подписки
Шаг 15: Во втором столбце нам нужно сохранить идентификатор сотрудника. Таким образом, это будет получено путем доступа к текстовому полю с именем «EmpIDTextBox».
Код:
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.