VBA UserForm - Hogyan hozhatunk létre UserForm-t az Excel programban a VBA kód használatával?

Excel VBA UserForm

Az Excel VBA-ban van egy nagyon hasznos eszköz, amelyet UserForm néven ismertünk. Ez egy praktikus módszer az információk megszerzésére a felhasználótól. Mi a UserForm a VBA-ban? A UserForm olyan, mint egy varázsló vagy egy párbeszédpanel, amelyben felkérjük a felhasználókat az adatok bevitelére, és tartalmaz néhány utasítást.

A VBA UserForm szintén be van építve az Excelbe, és a fejlesztők is létrehozhatják. A VBA felhasználói formájának használatához először aktiválnunk kell a Fejlesztő fület az Opciók lapon. Miután aktiválta a fejlesztői fület, továbbléphetünk az Excel VBA alkalmazásban, és létrehozhatunk UserForms-okat. A felhasználói formanyomtatványokat Excel tárolására használják. Össze lehet hasonlítani a Google űrlapokkal, ahol van egy konkrét utasításkészlet, és felkéri a felhasználót, hogy az utasításoknak megfelelően adja meg az adatokat.

A UserForm mindenhol széles körben használatos. A UserFormban a felhasználó által bevitt adatok a megfelelő oszlopban tárolódnak. Az excel legpraktikusabb módja az, ha a felhasználótól adatgyűjtést végez, és az adatokat Excelben viszonylag a megfelelő helyen tárolja.

Hogyan hozhatunk létre UserForm-t az Excel VBA-ban?

Az alábbiakban bemutatjuk azokat a különféle példákat, amelyek segítségével létrehozhatunk UserForm-t Excel-ben VBA-kóddal.

Itt töltheti le a VBA UserForm Excel sablont - VBA UserForm Excel sablon

Excel VBA UserForm - 1. példa

Először térjünk át a UserForm alapjához. Hogyan tekinthető meg a UserForm és mi a UserForm.

Az Excel munkalapon lépjen a Fejlesztő lapra és kattintson a Visual Basic szerkesztőre.

Most hogyan adhatunk hozzá felhasználói képernyőt ehhez az üres képernyőhöz? A beszúrás eszközben kattintson a UserForms elemre.

Megnyílik egy új varázslódoboz, és üres, ami az üres felhasználói űrlapunk.

Jelenleg felhasználói formátum1-nek nevezzük, mivel még nem adtunk nevet. Ezt megtehetjük úgy, hogy megváltoztatjuk a nevét a képernyő bal oldalán található tulajdonságok opcióból.

Változtassuk meg a nevet minta formára, és nézzük meg az eredményt.

Felhasználói űrlapunkat most mintának nevezzük.

Most próbáljuk megváltoztatni a felhasználói űrlap színét. A tulajdonságok eszközkészletben rendelkezésre áll egy legördülő menü, amelyet háttérszínnek nevezünk, bármilyen színkészletet kiválaszthatunk.

Miután kiválasztottam a fekete színű opciót, a mintám UserForm színe a következőképpen megváltozott,

Hogyan futtathatjuk ezt a felhasználói űrlapot? Győződjön meg róla, hogy rákattintottunk a felhasználói űrlapra, és kattintson az alábbi képernyőképen látható Futtatás gombra. A Futtatás gombra kattintva láthatjuk, hogy egy üres képernyő jelenik meg az Excel képernyőn.

Nincs más lehetősége, mint bezárni, mert nem adtunk hozzá további gombokat.

Excel VBA UserForm - 2. példa

Lássuk, hogyan lehet gombokat hozzáadni a felhasználói űrlaphoz az adatok beviteléhez az Excel VBA alkalmazásban. Készítünk egy egyszerű VBA felhasználói űrlapot, amelyben megkérjük a felhasználót, hogy adja meg nevét, életkorát és nemét. Az ilyen felhasználói űrlap elkészítéséhez szükséges lépések a következők.

Az Excel munkalapon lépjen a fejlesztő fülre, és kattintson a Visual Basic Editor elemre.

Most a beszúrás lapon kattintson a felhasználói űrlapra a felhasználói űrlap megnyitásához.

Gombokat kell hozzáadnunk ehhez a felhasználói űrlaphoz ahhoz, hogy a felhasználótól bemenetet szerezzünk. Láthatjuk, hogy egy felhasználói fiók mellett egy eszközkészlet is megnyílik, amely rendelkezik a vezérlőgombokkal.

Ez az eszközkészlet különféle vezérlőelemeket tartalmaz, amelyeket a UserForms használ.

Tehát a példánkhoz szükségünk van egy névre, életkorra és nemre, hogy a felhasználó beírhassa. Alapvetően három címkére van szükségünk, amelyek képviselik az utasításokat. Kattintson a Címkék elemre.

Húzza az egeret a felhasználói űrlapon, majd kattintson és húzza a címke beszúrására a felhasználói űrlapba.

Jelenleg 1. címkének nevezzük. A felhasználó utasításához meg kell változtatnunk a címke nevét „ Név ” -re. Kattintson a címkére, törölje a megadott alapértelmezett nevet, és illessze be az új nevet.

Most illessze be hasonló módon az életkor és a nemek címkét, és nevezze át őket.

Most, a címkék mellett, be kell illeszteni egy szövegdobozt, hogy a felhasználó beírhasson értékeket. Az eszközkészlet vezérlőiből kattintson a TextBox elemre

Húzza az egeret a címkék mellett és kattintson az űrlapra.

Helyezze be a parancsgombot a felhasználói űrlapba, amely az adatokat számunkra tárolja. Az eszköztár vezérlőiből kattintson a CommandButton elemre.

Húzza az egeret az űrlapon.

Változtassa meg a CommandButton1 feliratát „Submit” -re .

Helyezzen be egy CommandButton-t, és hívja „ Mégse ” -nek.

A következő lépés az, hogy mindegyik szövegdobozt átnevezzük, hogy könnyen felhasználhassuk azokat a kódjainkban. A név elnevezéséhez a szövegmezőt nevezzük Nameva névnévre, életkorra Ageva-ra, hasonlóan nemekre, mint Genderva nemi értékre,

A UserForm futtatásához kattintson a lejátszás gombra, vagy nyomja meg az F5 billentyűt.

Az Excel lapba írja be az adatok fejlécét az alábbiak szerint.

Kattintson duplán a beküldés gombra, amely megnyitja számunkra a beküldés gombjának kódablakát, az alábbiak szerint.

Kód:

 Privát alparancsButton1_Click () Befejezés

A kód ablakban deklaráljon egy változót, amíg az alább látható.

Kód:

 Privát alparancsButton1_Click () Dim A As Long End Sub

Most mozgassa az első üres cellát az első oszlopban a következő kóddal.

Kód:

 Privát alparancsgomb1_Click () tompítsa A mindaddig, amíg A = Cella (Rows.Count, 1) .End (xlUp) .Sor + 1 End Sub

Tároljuk a felhasználó által a munkalapon megadott értéket a következő kóddal.

Kód:

 Privát alparancsButton1_Click () Felfed A Amíg A = Cella (Rows.Count, 1) .End (xlUp) .Row + 1 Cells (A, 1) .Value = Nameva.Value Cells (A, 2) .Value = Ageva .Value cellák (A, 3) .Value = Genderva.Value Nameva.Value = "" Ageva.Value = "" Genderva.Value = "" End Sub

Most kattintson duplán a Mégse gombra, ez megmutatja az automatikus makró nevét is.

Kód:

 Privát alpont CommandButton2_Click () Sub befejezése

Használja az alábbi kódot.

Kód:

 Privát alparancsButton2_Click () UserForm1.Hide End befejezése

Futtassa a felhasználói űrlapot a mellékelt futtatás gombból vagy az F5 billentyű megnyomásával, és a következő eredményt kapjuk.

Írja be az értékeket a szövegmezőkbe az alábbiak szerint.

Nyomja meg a Küldés gombot, hogy az eredményt az alábbiak szerint lássa.

Így hozhatunk létre felhasználói űrlapot az adatok megszerzéséhez a felhasználótól.

Dolgok, amikre emlékezni kell

A felhasználói formák be vannak építve vagy a VBA-ban a fejlesztő is létrehozhatja azokat.
A felhasználói forma tulajdonságai megváltoztathatók a VBA tulajdonságok varázsló mezőjében.
A felhasználói űrlapoknak gombokkal kell rendelkezniük, hogy adatokat lehessenek letölteni a felhasználótól.
A felhasználói űrlap futtatásához ellenőrizze, hogy a felhasználói képernyő ki van-e választva.

Ajánlott cikkek

Ez egy útmutató a VBA UserForm-hoz. Itt tárgyaljuk, hogyan lehet létrehozni a UserForm programot Excelben VBA-kód használatával, néhány gyakorlati példával és letölthető Excel sablonnal együtt. Megnézheti más javasolt cikkeinket -