Excel VBA TextBox
A szövegdoboz egyszerűen olyan, mint egy doboz, amelyet felhasználótól származó bevitelhez használnak, a szövegdobozok a felhasználói űrlapok részét képezik, és az excel bármely munkalapjának fejlesztői lapján. Ha szövegmezőket szeretnénk létrehozni felhasználói formában, kiválaszthatjuk a szövegdoboz opciót a felhasználói űrlapvezérlőkből a VBA-ban vagy a munkalapon kiválaszthatjuk a tervezés fülről.
A VBA TextBox a felhasználói űrlap számos vezérlőjének egyik vezérlője. A szövegmező megjelenítésével a felhasználói űrlapon megkérhetjük őket, hogy írják be az adatokat a mezőbe, és a felhasználó által beírt adatok egyszerű kódokkal tárolhatók a munkalapon.
A felhasználói űrlapok nagyon vonzóak a VBA kódolásban. Ez rendkívüli segítséget nyújt számunkra, különösen akkor, ha a felhasználóktól kell hozzájárulást kapnunk. A felhasználói űrlapokkal sok vezérlővel rendelkezünk, és a felhasználói beviteli érték megszerzéséhez a „Text Box” az ideális lehetőség egy felhasználói űrlapon. Ha beírunk egy szövegdobozt a felhasználói űrlapra, akkor azt mondhatjuk a felhasználónak, hogy írja be a kívánt értéket a megjelenített szövegmezőbe. Ha fogalma sincs a VBA szövegdobozokról, akkor ez a cikk bemutatja a VBA szövegdobozokat.
Hogyan lehet beilleszteni a TextBox-ot a VBA UserFormba?
Itt letöltheti ezt a VBA szövegdoboz-sablont - VBA szövegdoboz-sablontA szövegmező beillesztéséhez először felhasználói űrlapot kell beillesztenünk. Felhasználói űrlap beszúrásához válassza a Beszúrás> Felhasználói űrlap lehetőséget.
Amint rákattint a Felhasználói űrlapra, a Felhasználói űrlapot fogjuk használni, akárcsak egy másik modult.
Kattintson a Felhasználói űrlap elemre a Felhasználói űrlap vezérlőinek megtekintéséhez.
Ebből a Vezérlők eszköztárból válassza a „TextBox” elemet, és húzza át a Felhasználói űrlapot.
Ezzel számos tulajdonságot láthatunk ehhez a szövegmezőhöz társítva.
TextBox tulajdonságai
Nyomja meg az F4 billentyűt a szövegdoboz tulajdonságainak megtekintéséhez.
Mint láthatjuk, a szövegdoboz neve, színe, szegélye ilyen sok. Most adjon meg egy tulajdonnevet, hogy kódolás közben könnyedén hivatkozhassunk erre a mezőre.
Példa a TextBox használatára a Userformban
Az egyik projektet VBA szöveggel fogjuk lebonyolítani. Létrehozunk egy adatbeviteli felhasználói űrlapot az alkalmazottak adatainak tárolására.
1. lépés: A felhasználói űrlapon rajzolja fel a címkét.
2. lépés: Módosítsa a címke alapértelmezett szövegét „Munkavállaló neve” -re.
3. lépés: A címke elé rajzoljon egy szövegdobozt.
4. lépés: Adjon megfelelő nevet a szövegmezőnek „EmpNameTextBox” néven.
5. lépés: Most rajzoljon még egy címkét az első címke alá, és írja be a szöveget „Employee ID” néven.
6. lépés: A második címke elé rajzoljon még egy szövegdobozt, és nevezze el „EmpIDTextBox” néven.
7. lépés: Rajzoljon még egy címkét, és írja be a szöveget „Fizetés” néven.
8. lépés: Rajzoljon még egy szövegdobozt a „Fizetés” címke elé, és nevezze el „SalaryTextBox” néven.
9. lépés: Most helyezze be a „Command Button” -t az Eszköztárba.
10. lépés: Változtassa meg a Parancs gomb szövegét „Submit” -ként.
Ok, elkészültünk a Felhasználói űrlap tervező részével. Most meg kell írnunk a kódot az ebben a felhasználói űrlapban megadott adatok tárolására. Mostantól futtassa a felhasználói űrlapot az F5 billentyű lenyomásával, és látnunk kell egy ilyen felhasználói űrlapot.
11. lépés: Módosítsa a Felhasználói űrlap feliratát a Tulajdonságok ablakban.
12. lépés: Most kattintson duplán a Parancs elküldése gombra. Amint duplán kattint, meglátja ezt az automatikus aleljárást, mint az alábbiak.
Ekkor kattintson a Küldés gombra, mi történjen. Meg kell említenünk a feladatokat a VBA kódban. Ebben a projektben az a célunk, hogy a szövegmezőbe beírt adatokat tároljuk, amint a Submit gombra kattintunk.
Ehhez először hozzon létre egy ehhez hasonló sablont az „Alkalmazottak lapja” munkalapon.
13. lépés: Most térjen vissza a vizuális alapszerkesztőhöz. A gombon belül kattintson a VBA szubrutinjára, és először az alábbi kód segítségével határozza meg az utoljára használt sort.
Kód:
Privát al CommandButton1_Click () Dim LR As Long LR = Munkalapok ("Alkalmazotti lap"). Cella (Rows.Count, 1) .End (xlUp) .Sor + 1 End Sub 
14. lépés: Az első dolog az első oszlopban tároljuk az Alkalmazott nevét. Tehát ehhez hozzáférnünk kell az „EmpNameTextBox” névre keresztelt szövegmezőhöz.
Kód:
Private Sub CommandButton1_Click () Dim LR As Long LR = Munkalapok ("Alkalmazotti lap"). Cella (Rows.Count, 1) .End (xlUp) .Row + 1 Ramge ("A" & LR) .Value = EmpNameTextBox.Value End Sub 
15. lépés: A második oszlopban tárolnunk kell a munkavállalói azonosítót. Tehát ezt az „EmpIDTextBox” nevű szövegdoboz elérésével érhetjük el.
Kód:
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.