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 SubHa 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.
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 SubMegjegyzé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:
- Hogyan lehet másolni a Combo Box értékét az Excel aktív cellájába?
- Hogyan jelenítheti meg a dátumformátumot az Excel kombinált mező kimenetében?
- Hogyan lehet elrejteni vagy elrejteni a Parancsgombot az Excel megadott cellája alapján?
- Hogyan lehet megakadályozni vagy letiltani az Excel kombinációs mezőbe történő beírást?
- Hogyan válthat ki a kombinációs mezőből az Excel egyes celláinak kiválasztásához?
A legjobb irodai hatékonyságnövelő eszközök
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...
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!
