Excel VBA TextBox
Textbox е просто като поле, което се използва за получаване на вход от потребител, текстовите полета са част от потребителските форми и в раздела за разработчици във всеки работен лист на Excel, Ако искаме да направим текстови полета в потребителска форма, можем да изберете опцията за текстово поле от контролите на потребителски форми във VBA или в работен лист можем да го изберем от раздела за проектиране.
VBA TextBox е един от контролите на многото контроли на потребителския формуляр. Чрез показване на текстовото поле в потребителския формуляр можем да ги помолим да въведат данните в текстовото поле и данните, въведени от потребителя, могат да се съхраняват в работния лист с прости кодове.
Потребителските форми са много привлекателни при VBA кодиране. Това ни помага изключително много, особено когато трябва да получим информация от потребителите. С потребителските формуляри имаме много контроли и за да получим входната стойност от потребителите „Текстовото поле“ е идеалната опция в потребителска форма. Поставяйки текстово поле върху потребителската форма, ние всъщност можем да кажем на потребителя да въведе необходимата стойност в текстовото поле, което показваме. Ако нямате представа за текстовите полета на VBA, тази статия ще направи обиколка на текстовите полета на VBA.
Как да вмъкнете TextBox във VBA UserForm?
Можете да изтеглите този шаблон на текстово поле на VBA тук - шаблон на текстово поле на VBAЗа да вмъкнем първо текстово поле, трябва да вмъкнем потребителска форма. За да вмъкнете потребителски формуляр, отидете на Вмъкване> Потребителски формуляр.
Веднага щом кликнете върху Потребителски формуляр, ние ще създадем Потребителски формуляр точно като друг модул.
Щракнете върху Потребителски формуляр, за да видите контролите на Потребителския формуляр.
От тази кутия с инструменти за управление изберете „TextBox“ и плъзнете върху потребителския формуляр.
С това можем да видим много свойства, свързани с това текстово поле.
Свойства на TextBox
Натиснете клавиша F4, за да видите свойствата на текстовото поле.
Както виждаме, текстовото поле има име, цвят, граница като тази много. Сега дайте правилно име, за да можем лесно да се позоваваме на това текстово поле, докато кодираме.
Пример за използване на TextBox в Userform
Ще проведем един от проектите с текст на VBA. Ще създадем потребителски формуляр за въвеждане на данни, за да съхраняваме данните за служителите.
Стъпка 1: На потребителския формуляр нарисувайте етикет.
Стъпка 2: Променете текста по подразбиране на етикета на „Име на служител“.
Стъпка 3: Пред етикета нарисувайте текстово поле.
Стъпка 4: Дайте правилно име на текстовото поле като „EmpNameTextBox“.
Стъпка 5: Сега нарисувайте още един етикет под първия етикет и въведете текста като „Идентификационен номер на служителя“.
Стъпка 6: Пред втория етикет нарисувайте още едно текстово поле и го наречете „EmpIDTextBox“.
Стъпка 7: Начертайте още един етикет и въведете текста като „Заплата“.
Стъпка 8: Начертайте още едно текстово поле пред етикета „Заплата“ и го наречете „SalaryTextBox“.
Стъпка 9: Сега вмъкнете "Команден бутон" от ToolBox.
Стъпка 10: Променете текста на командния бутон като „Изпращане“.
Добре, приключихме с частта за дизайн на потребителски формуляр. Сега трябва да напишем кода, за да съхраняваме данните, въведени в тази потребителска форма. От сега стартирайте потребителската форма, като натиснете клавиша F5, трябва да видим потребителска форма като тази.
Стъпка 11: Променете надписа на потребителския формуляр в прозореца Свойства.
Стъпка 12: Сега щракнете двукратно върху бутона за подаване на командата. Веднага щом щракнете два пъти, ще видите тази автоматична подпроцедура, както е показано по-долу.
Това е, когато щракнете върху бутона Изпрати какво трябва да се случи. Трябва да споменем задачите в кода на VBA. В този проект нашата цел е да съхраняваме данните, въведени в текстовото поле, веднага щом щракнем върху бутона Submit.
За това първо създайте шаблон като този в работния лист, наречен „Служителски лист“.
Стъпка 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“.
Код:
Частен Sub CommandButton1_Click () Dim LR As Long LR = Работни листове ("Лист на служител"). Клетка (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.