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

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.