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 Sub3. 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 Sub3. 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 az Excel számáraKérjük, először töltse le és telepítse.
Aktivitáskövető Navigációs ablak of Kutools az Excel számára, 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 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!
