Note: The other languages of the website are Google-translated. Back to English
Belépek  \/ 
x
or
x
Regisztráció  \/ 
x

or

Hogyan sorolhatja fel az összes nyitott munkafüzetet, és hogyan válthat könnyedén az Excel között?

A Microsoft Excel lehetővé teszi több munkafüzet egyidejű megnyitását, de nem könnyű váltani az összes nyitott munkafüzet között. Érdemes tehát felsorolnia az összes nyitott munkafüzetet az Excelben a munkafüzetek közötti váltáshoz. Ebben a cikkben megmutatjuk, hogyan sorolhatja fel az összes megnyitott munkafüzetet az Excel egyszerű navigálásához.

Csak sorolja fel az összes VBA-val ellátott nyitott munkafüzetet
Sorolja fel az összes nyitott munkafüzetet, és könnyedén váltson át munkafüzetre a VBA segítségével
Sorolja fel az összes nyitott munkafüzetet, és könnyedén váltson át egy munkafüzetre egy csodálatos eszközzel



Csak sorolja fel az összes VBA-val ellátott nyitott munkafüzetet

Ebben a szakaszban megtudhatja, hogyan használhatja a VBA kódot az összes nyitott munkafüzet felsorolásához az Excelben.

1. nyomja meg más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok.

2. Ezután másolja és illessze be az alábbi VBA kódot a kódszerkesztőbe.

VBA: sorolja fel az összes nyitott munkafüzet nevet az Excelben

Sub ListWorkbooks()
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId = "KutoolsforExcel"
	Set WorkRng = Application.Selection
	Set WorkRng = Application.InputBox("Out put to (single cell)", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng = WorkRng.Range("A1")
	xNum1 = Application.Workbooks.Count
	For i = 1 To xNum1
		xNum2 = Application.Workbooks(i).Sheets.Count
		WorkRng.Offset(i - 1, 0).Value = Application.Workbooks(i).Name
		For j = 1 To xNum2
			WorkRng.Offset(i - 1, j).Value = Application.Workbooks(i).Sheets(j).Name
		Next
	Next
End Sub

3. Futtassa a VBA kódot a F5 kulcs. Ban,-ben KutoolsforExcel párbeszédpanelen adjon meg egy cellát a munkafüzetlista elhelyezéséhez, majd kattintson a gombra OK gomb. Lásd a képernyőképet:

Ezután az összes nyitott munkafüzet és a hozzá tartozó munkalapok felsorolásra kerülnek.

Nehéz kezelni a VBA kódot? A. Segítségével elérheti harmadik módszer kattintásokkal.


Sorolja fel az összes nyitott munkafüzetet, és könnyedén váltson át munkafüzetre a VBA segítségével

Ha fel szeretné sorolni az összes munkafüzetet a munkafüzetek közötti váltáshoz, kérjük, próbálja meg használni a VBA-t az alábbiak szerint:

1. megnyomni a más + F11 megnyitni Microsoft Visual Basic for Applications ablak. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok.

2. Másolja és illessze be a következő VBA kódot a nyitott modul ablakába.

VBA-kód: sorolja fel az összes nyitott munkafüzetet, és váltson át egy munkafüzetre

Sub SelectWB()
	Dim xWBName As String
	Dim xWb As Workbook
	Dim xSelect As String
	For Each xWb In Application.Workbooks
		xWBName = xWBName & xWb.Name & vbCrLf
	Next
	xTitleId = "KutoolsforExcel"
	xSelect = Application.InputBox("Enter one of the workbooks below:" & vbCrLf & xWBName, xTitleId, "", Type: = 2)
	Application.Workbooks(xSelect).Activate
End Sub

3. megnyomni a F5 gombot a kód futtatásához. Aztán a KutoolsforExcel megjelenik az összes megnyitott munkafüzet listája. Ha egy megadott munkafüzetre szeretne váltani, kérjük, írja be a munkafüzet nevét a mezőbe, majd kattintson a gombra OK gomb. Lásd a képernyőképet:


Sorolja fel az összes nyitott munkafüzetet, és könnyedén váltson át egy munkafüzetre egy csodálatos eszközzel

Alkalmazás előtt Kutools for ExcelKérjük, először töltse le és telepítse.

A ... val Navigációs ablak of Kutools for Excel, az összes nyitott munkafüzet automatikusan megjelenik egy ablaktáblán belül, így könnyedén navigálhat az összes nyitott munkafüzet között. Csak rá kell kattintania az egyik nyitott munkafüzetre, és az azonnal eljut a munkafüzethez.

  Ha ingyenes (30 napos) próbaverziót szeretne kapni a segédprogramról, kattintson a letöltéshez, majd lépjen a művelet végrehajtására a fenti lépések szerint.


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Super Formula Bar (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2019 és 365. Támogatja az összes nyelvet. Könnyen telepíthető a vállalkozásba vagy szervezetbe. 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte tab 201905

Az Office fül a füles felületet hozza 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 minden nap több száz kattintással csökkenti az egér kattintását!
officetab alja
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.