VBA bűvésztrükk: Hogyan menedzselj 2 form ablakot, hogy mindig csak egy látszódjon?

Excel VBA fejlesztése során gyakran találkozunk azzal a kihívással, hogy több űrlapot (UserForm) kell kezelnünk. Ilyenkor fontos, hogy a felhasználói élmény ne sérüljön, és a programunk átlátható maradjon. Egy gyakori igény, hogy egyszerre csak egy űrlap legyen látható, elkerülve a zavart és a véletlen interakciókat a háttérben futó űrlapokkal.

Miért van erre szükség?

Képzeljük el, hogy egy komplex adatbeviteli rendszert építünk. Az egyik űrlapon a felhasználó megadja az alapvető adatokat, a másikon pedig részletesebb információkat rögzíthet. Szeretnénk, ha a felhasználó mindig a megfelelő kontextusban dolgozna, és ne kelljen egyszerre több űrlappal bajlódnia. Ezt a célt érhetjük el azzal, hogy a VBA kód segítségével szabályozzuk az űrlapok megjelenítését.

Az alapelv: Láthatóság szabályozása

A VBA-ban az űrlapok láthatóságát a .Show és a .Hide metódusokkal vezérelhetjük. A trükk abban rejlik, hogy az egyik űrlap megjelenítése előtt elrejtjük a másikat, és fordítva. Lássuk, hogyan valósítható ez meg lépésről lépésre.

1. lépés: Az Űrlapok létrehozása

Először is, hozzunk létre két űrlapot az Excel VBA szerkesztőjében (Visual Basic Editor). A VBA szerkesztőbe az Excelben az Alt + F11 billentyűkombinációval juthatunk el. A „Insert” menüben válasszuk a „UserForm” opciót. Nevezzük el őket például UserForm1-nek és UserForm2-nek. Adjunk hozzájuk néhány vezérlőelemet (például címkéket, szövegdobozokat, gombokat), hogy lássuk, melyik űrlap melyik.

2. lépés: A Kód megírása

Most jön a lényeg! A VBA kód, ami a varázslatot végrehajtja. Hozzáadhatunk egy gombot az Excel munkalapra, amely aktiválja az űrlapokat, vagy használhatunk eseménykezelőket is. A példa kedvéért tegyük fel, hogy van egy „Űrlapok Kezelése” gombunk a munkalapon.

Nyissuk meg a VBA szerkesztőt, és kattintsunk duplán a „Űrlapok Kezelése” gombra a munkalapon. Ekkor megnyílik a gombhoz tartozó eseménykezelő. Írjuk be a következő kódot:

Sub CommandButton1_Click()
  ' Első űrlap megjelenítése, a második elrejtése
  UserForm2.Hide
  UserForm1.Show

End Sub

Most adjunk hozzá egy gombot a UserForm1-hez, amellyel a UserForm2-t fogjuk megjeleníteni, és a UserForm1-et elrejteni. Kattintsunk duplán a UserForm1-en a VBA szerkesztőben, majd adjunk hozzá egy gombot (pl. CommandButton1) és írjuk be a következő kódot:

Private Sub CommandButton1_Click()
  ' Második űrlap megjelenítése, az első elrejtése
  UserForm1.Hide
  UserForm2.Show
End Sub

Ugyanezt a kódot írjuk meg a UserForm2 gombjához is, csak fordítva. Fontos, hogy mindkét űrlapban legyen gomb, ami a másik űrlapot hívja be.

Private Sub CommandButton1_Click()
  ' Első űrlap megjelenítése, a második elrejtése
  UserForm2.Hide
  UserForm1.Show
End Sub

3. lépés: A Finomhangolás

A fenti kód működik, de van még hová fejlődni. Például, mi történik, ha a felhasználó bezárja az egyik űrlapot a „X” gombra kattintva? Ebben az esetben a másik űrlap nem fog automatikusan megjelenni. Hogy ezt elkerüljük, használhatjuk az űrlap QueryClose eseményét.

Kattintsunk duplán a UserForm1-re a VBA szerkesztőben, majd válasszuk a „QueryClose” eseményt a kódablak bal felső sarkában lévő legördülő menüből. Írjuk be a következő kódot:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  If CloseMode = vbFormControlMenu Then
    ' Ha a felhasználó a "X" gombra kattintott,
    ' akkor megjelenítjük a másik űrlapot.
    UserForm2.Show
  End If
End Sub

Ugyanezt a kódot írjuk be a UserForm2 QueryClose eseményébe is, csak a UserForm2.Show helyett UserForm1.Show-t használjunk.

További Tippek és Trükkök

• Modális vs. Nem Modális megjelenítés: A .Show metódusnak van egy opcionális argumentuma, a Modal. Ha True-ra állítjuk (UserForm1.Show vbModal), akkor az űrlap modálisan jelenik meg, ami azt jelenti, hogy a felhasználó nem tud interakcióba lépni a munkalappal vagy más űrlapokkal, amíg az aktuális űrlapot be nem zárja. Ha False-ra állítjuk (UserForm1.Show vbModeless), akkor az űrlap nem modálisan jelenik meg, ami azt jelenti, hogy a felhasználó interakcióba léphet a munkalappal vagy más űrlapokkal. Az esetünkben, ahol csak egy űrlap lehet látható, a modális megjelenítés kevésbé releváns, de érdemes tisztában lenni a különbséggel.
• Az Űrlapok pozícionálása: A .Top és .Left tulajdonságokkal beállíthatjuk az űrlapok pozícióját a képernyőn. Így biztosíthatjuk, hogy mindig ugyanazon a helyen jelenjenek meg, ami javítja a felhasználói élményt.
• Adatátadás Űrlapok között: Ha az űrlapok között adatot kell átadnunk, használhatunk globális változókat, vagy az űrlapok tulajdonságait (pl. UserForm1.TextBox1.Text = UserForm2.TextBox2.Text).

A felhasználói élmény javítása érdekében érdemes az űrlapok méretét és pozícióját is optimalizálni. Egy jól megtervezett űrlap jelentősen növelheti a szoftver használhatóságát.

Vélemény

A VBA űrlapok használata egy hatékony módja annak, hogy interaktív alkalmazásokat hozzunk létre az Excelben. A fenti technika alkalmazásával könnyedén kezelhetjük a több űrlapos alkalmazásokat, biztosítva a felhasználó számára a zavartalan és átlátható munkavégzést. Én magam is rengetegszer alkalmaztam ezt a módszert komplex adatbázis kezelő rendszerek fejlesztésekor, és mindig beváltotta a hozzá fűzött reményeket. A felhasználók visszajelzései alapján a jól strukturált, átlátható űrlapkezelés jelentősen növelte a program használhatóságát és a felhasználói elégedettséget.

Remélem, ez a cikk segített megérteni, hogyan kezelhetünk két űrlapot úgy, hogy mindig csak egy legyen látható. Kísérletezzetek bátran a kóddal, és alakítsátok a saját igényeitekhez!