Ugrás a tartalomra

Hogyan nyitható meg egy adott munkalap az Combo Box kiválasztott értékével az Excelben?

Tegyük fel, hogy van egy kombinációs doboza, amely az aktuális munkafüzet összes lapnevét tartalmazza, az alábbi képernyőképen. És most meg akar nyitni egy adott munkalapot, amikor kiválasztja a megfelelő lap nevét egy kombinációs mezőben. Hogyan lehet elérni? A cikkben szereplő módszer segíthet.

Nyisson meg egy adott munkalapot a VBA kóddal ellátott Combo Box kiválasztott értékével


Nyisson meg egy adott munkalapot a VBA kóddal ellátott Combo Box kiválasztott értékével

Az alábbi VBA-kód segíthet abban, hogy egy adott munkalapra lépjen az Excel Combo Box kiválasztása alapján. Kérjük, tegye a következőket.

Megjegyzések: Ha a Combo Box nem tartalmaz semmilyen lapnevet a munkalapon, kövesse az alábbi tippet, hogy gyorsan hozzáadja az összes lapnevet ahhoz a Combo Boxhoz. És ha már van egy kombinációs doboz, amely tartalmazza az összes lap nevét, kérjük, váltson a lépésre 1 közvetlenül.

típus: Helyezzen be egy 1. parancsgombot a munkalapjába, kattintson rá a jobb gombbal, és válassza ki Kód megtekintése a jobb egérgombbal a menüből. Ezután másolja és illessze be az alábbi VBA kódot a Kód ablakot, és nyomja meg a más + Q gombok a Microsoft Visual Basic alkalmazásokhoz ablak. Kattintson a beillesztett Parancs gombra, majd az aktuális munkafüzet összes munkaneve automatikusan hozzáadódik a ComboBox1-hez.

VBA kód: Könnyen hozzáadhatja az összes lap nevét a Combo Boxhoz

Private Sub CommandButton1_Click()
    Me.ComboBox1.Clear
    Dim strWs As String
    Dim i As Integer
    
    For i = 1 To ThisWorkbook.Sheets.Count
        Me.ComboBox1.AddItem Sheets(i).Name
    Next

End Sub

Ha már van egy kombinációs doboz, amely tartalmazza az összes lap nevét, kérjük, tegye a következőket.

1. Kapcsold be Tervezési mód alatt a Fejlesztő Tab.

2. Kattintson a jobb gombbal a lapnevekkel ellátott kombinációs mezőre, majd kattintson a gombra Kód megtekintése a jobb egérgombbal kattintva.

doc combo box nyitott munkalap 12png

3. Ezután a Microsoft Visual Basic for Applications megjelenik az ablak, kérjük, cserélje ki az eredeti VBA kódot a Kód ablakban az alábbi VBA kódra.

VBA kód: Nyisson meg egy adott munkalapot a Combo Box kiválasztott értékével

Private Sub ComboBox1_Change()
    Dim actWsh As String
    actWsh = ComboBox1.Text
    Worksheets(actWsh).Select
    
End Sub

Megjegyzések: a kódban a ComboBox1 annak a kombinációs mezőnek a neve, amely a lap nevét tartalmazza.

4. megnyomni a más + Q gombok a Microsoft Visual Basic for Applications ablakot, és kapcsolja ki a Tervezési mód alatt a Fejlesztő Tab.

Most, amikor kiválaszt egy munkalapnevet a Combo mezőben, a megfelelő munkalap automatikusan megnyílik.


Könnyen felsorolhatja az aktuális munkafüzet összes lapnevét az Excel programban:

A munkafüzetben a munkalapok indexének használata megkönnyíti a munkalapok egyszerű kezelését. A ... val Létrehozza a munkalapok listáját hasznossága Kutools az Excel számára, könnyedén létrehozhat egy lapindexet, amely tartalmazza az aktuális munkafüzet összes lapnevét. Ezt követően gyorsan átállhat egy bizonyos munkalapra, ha csak a lap nevére kattint az Index munkalapon. Lásd az alábbi képernyőképet:
Töltse le és próbálja ki most! (30 napos ingyenes túra)


Kapcsolódó cikkek:

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
hi
i just removed my excel file by converting it from 2016 to 2010. Then converting back to 2016 and put new password.
This comment was minimized by the moderator on the site
perfectly working.if your sheet name different then change the sheet name also.without changing the sheet name code does not working. thanks for sharing .
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations