Excel VBA TextBox
Textové pole je jednoducho ako pole, ktoré sa používa na získanie vstupu od používateľa, textové polia sú súčasťou používateľských formulárov a na karte vývojár v ktoromkoľvek pracovnom hárku programu Excel. Ak chceme vytvoriť textové polia v používateľskom formulári, môžeme zvoliť možnosť textového poľa z ovládacích prvkov používateľského formulára vo VBA alebo v pracovnom hárku ho môžeme vybrať na karte návrh.
VBA TextBox je jedným z ovládacích prvkov mnohých ovládacích prvkov používateľského formulára. Zobrazením textového poľa vo formulári používateľa ich môžeme požiadať, aby zadali údaje do textového poľa, a údaje zadané používateľom je možné uložiť do tabuľky pomocou jednoduchých kódov.
Formáty používateľov sú pri kódovaní VBA veľmi atraktívne. Nesmierne nám pomáha, najmä keď potrebujeme získať informácie od používateľov. V prípade používateľských formulárov máme veľa ovládacích prvkov a na získanie vstupnej hodnoty od používateľov je textové pole ideálnou voľbou v používateľskom formulári. Vložením textového poľa do používateľského formulára môžeme skutočne povedať používateľovi, aby zadal požadovanú hodnotu do zobrazeného textového poľa. Ak nemáte predstavu o textových poliach VBA, potom tento článok absolvuje prehliadku textových polí VBA.
Ako vložiť TextBox do VBA UserForm?
Túto šablónu textového poľa VBA si môžete stiahnuť tu - Šablóna textového poľa VBAAby sme mohli najskôr vložiť textové pole, musíme vložiť užívateľský formulár. Ak chcete vložiť užívateľský formulár, choďte na Vložiť> Používateľský formulár.
Hneď ako kliknete na Formulár používateľa, vytvoríme Formulár používateľa rovnako ako iný modul.
Kliknutím na formulár používateľa zobrazíte ovládacie prvky formulára používateľa.
Na tomto paneli s ovládacími prvkami vyberte položku „TextBox“ a presuňte formulár používateľa.
Vďaka tomu môžeme vidieť veľa vlastností spojených s týmto textovým poľom.
Vlastnosti TextBoxu
Stlačením klávesu F4 zobrazíte vlastnosti textového poľa.
Ako vidíme, textové pole má toto meno, farbu a hranicu. Teraz zadajte vlastné meno, aby sme pri kódovaní mohli na toto textové pole ľahko odkazovať.
Príklad použitia TextBoxu v Userform
Jeden z projektov zrealizujeme s textom VBA. Vytvoríme užívateľský formulár na zadávanie údajov, do ktorého sa budú ukladať podrobnosti o zamestnancoch.
Krok 1: Na formulári používateľa nakreslite štítok.
Krok 2: Zmeňte predvolený text štítka na „Meno zamestnanca“.
Krok 3: Pred štítok nakreslite textové pole.
Krok 4: Do textového poľa zadajte správny názov ako „EmpNameTextBox“.
Krok 5: Teraz nakreslite ešte jeden štítok pod prvý štítok a zadajte text ako „ID zamestnanca“.
Krok 6: Pred druhý štítok nakreslite ešte jedno textové pole a pomenujte ho ako „EmpIDTextBox“.
Krok 7: Nakreslite ešte jeden štítok a zadajte text ako „Plat“.
Krok 8: Pred štítok „Plat“ nakreslite ešte jedno textové pole a pomenujte ho ako „SalaryTextBox“.
Krok 9: Teraz vložte „Príkazové tlačidlo“ z Panela nástrojov.
Krok 10: Zmeňte text príkazového tlačidla na „Odoslať“.
Dobre, s dizajnovou časťou formulára používateľa sme hotoví. Teraz musíme napísať kód na uloženie údajov zadaných v tomto užívateľskom formulári. Teraz spustite užívateľský formulár stlačením klávesu F5, mal by sa nám zobraziť používateľský formulár, ako je tento.
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.