Excel VBA TextBox
Textbox е просто като поле, което се използва за получаване на вход от потребител, текстовите полета са част от потребителските форми и в раздела за разработчици във всеки работен лист на Excel, Ако искаме да направим текстови полета в потребителска форма, можем да изберете опцията за текстово поле от контролите на потребителски форми във VBA или в работен лист можем да го изберем от раздела за проектиране.
VBA TextBox е един от контролите на многото контроли на потребителския формуляр. Като показваме текстовото поле в потребителския формуляр, можем да ги помолим да въведат данните в текстовото поле и данните, въведени от потребителя, могат да се съхраняват в работния лист с прости кодове.
Потребителските форми са много привлекателни при VBA кодиране. Това ни помага изключително много, особено когато трябва да получим информация от потребителите. При потребителските формуляри имаме много контроли и за да получим входната стойност от потребителите, „Текстово поле“ е идеалната опция в потребителска форма. Поставяйки текстово поле в потребителския формуляр, ние всъщност можем да кажем на потребителя да въведе необходимата стойност в текстовото поле, което показваме. Ако нямате представа за текстовите полета на VBA, тази статия ще направи обиколка на текстовите полета на VBA.
Как да вмъкнете TextBox във VBA UserForm?
За да вмъкнем първо текстово поле, трябва да вмъкнем потребителска форма. За да вмъкнете потребителски формуляр, отидете на Insert> User Form.
Веднага след като щракнете върху Потребителски формуляр, ние ще приложим Потребителски формуляр точно като друг модул.
Щракнете върху Потребителски формуляр, за да видите контролите на Потребителския формуляр.
От тази кутия с инструменти за управление изберете „TextBox“ и плъзнете върху потребителския формуляр.
С това можем да видим много свойства, свързани с това текстово поле.
Свойства на TextBox
Натиснете клавиша F4, за да видите свойствата на текстовото поле.
Както виждаме, текстовото поле има име, цвят, граница като тази много. Сега дайте правилно име, за да можем лесно да се позоваваме на това текстово поле, докато кодираме.
Пример за използване на TextBox в Userform
Ще проведем един от проектите с текст на VBA. Ще създадем потребителски формуляр за въвеждане на данни, за да съхраняваме данните за служителите.
Стъпка 1: На потребителския формуляр нарисувайте етикет.
Стъпка 2: Променете текста по подразбиране на етикета на „Име на служител“.
Стъпка 3: Пред етикета нарисувайте текстово поле.
Стъпка 4: Дайте правилно име на текстовото поле като „EmpNameTextBox“.
Стъпка 5: Сега нарисувайте още един етикет под първия етикет и въведете текста като „Идентификатор на служителя“.
Стъпка 6: Пред втория етикет нарисувайте още едно текстово поле и го наречете „EmpIDTextBox“.
Стъпка 7: Начертайте още един етикет и въведете текста като „Заплата“.
Стъпка 8: Начертайте още едно текстово поле пред етикета „Заплата“ и го наречете „SalaryTextBox“.
Стъпка 9: Сега вмъкнете "Команден бутон" от ToolBox.
Стъпка 10: Променете текста на командния бутон като „Изпращане“.
Ok, we are done with the User Form design part. Now we need to write the code to store the data entered in this user form. As of now, run the user form by pressing the F5 key. We should see a user form like this.
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 to 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 “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.
Към момента всички кутии са празни.
Първо попълнете подробностите.
Сега кликнете върху бутона „Изпращане“. Той ще съхранява данните на работния лист.
По този начин можете да продължите да въвеждате данните и да натиснете и изпратите бутона. Това е простият потребителски формуляр за въвеждане на данни с текстово поле.
