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. Na získanie vstupnej hodnoty od používateľov je v textovom formulári ideálnou voľbou textové pole. 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 vám tento článok ponúkne prehliadku textových polí VBA.
Ako vložiť TextBox do VBA UserForm?
Aby 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, použijeme 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 nástrojov Ovládacie prvky 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, orámovanie. 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 budeme realizovať 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: Vo 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ť“.
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.
Odteraz sú všetky políčka prázdne.
Najskôr vyplňte podrobnosti.
Teraz kliknite na tlačidlo „Odoslať“. Uloží údaje do pracovného hárka.
Takto môžete naďalej zadávať údaje a stlačiť a odoslať tlačidlo. Toto je jednoduchý formulár na zadanie údajov s textovým poľom.
