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 szövegmező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. Óriási 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 hogy a felhasználóktól megkapjuk a bemeneti értéket, 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, 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?
A szövegmező beillesztéséhez először felhasználói űrlapot kell beillesztenünk. Felhasználói űrlap beszúrásához lépjen a Beszúrás> Felhasználói űrlap menübe.
Amint rákattint a Felhasználói űrlapra, mi 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” lehetőséget, é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 meg a Címke elemet.
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évre.
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: Módosítsa a Parancs gomb szövegét „Küldés” -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. Látnunk kellene 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” nevű munkalapon.
13. lépés: Most térjen vissza a vizuális alapszerkesztőhöz. A gombon belül először kattintson a VBA alprogramjára, hogy meghatározza az utoljára használt sort az alábbi kód használatával.
Kód:
Privát al CommandButton1_Click () Dim LR As Long LR = munkalapok ("Alkalmazotti lap"). Cella (Rows.Count, 1) .End (xlUp) .Row + 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” nevű szövegmezőhöz.
Kód:
Privát alparancsButton1_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 = Munkalapok ("Alkalmazotti lap"). Cella (Rows.Count, 1) .End (xlUp) .Row + 1 Ramge ("A" & LR) .Value = EmpNameTextBox.Value Támogatás ("B" és LR) .Value = EmpIDTextBox.Value End Sub
16. lépés: Végül el kell tárolnunk a fizetési részt. Ehhez hozzáférnünk kell a „SalaryTextBox” nevű szövegmezőhöz.
Kód:
Privát alparancsButton1_Click () Dim LR As Long LR = munkalapok ("Alkalmazotti lap"). Cella (Rows.Count, 1) .End (xlUp) .Row + 1 Ramge ("A" & LR) .Value = EmpNameTextBox.Value Vágás ("B" és LR). Érték = EmpIDTextBox.Value tartomány ("C" és LR). Érték = SalaryTextBox.Value End Sub
Ok, elkészültünk a kódoló résszel is. Most futtassa a kódot az F5 billentyűvel. Az alábbihoz hasonló felhasználói űrlapot kell látnunk.
Mostantól minden mező üres.
Először töltse ki a részleteket.
Most kattintson a „Küldés” gombra. Az adatokat a munkalapon tárolja.
Így továbbra is megadhatja az adatokat, és megnyomhatja és elküldheti a gombot. Ez az egyszerű adatbeviteli felhasználói űrlap szövegmezővel.
