Jak wyświetlić listę wszystkich otwartych skoroszytów i łatwo przełączać się między skoroszytami w programie Excel?
Microsoft Excel umożliwia jednoczesne otwieranie wielu skoroszytów, ale nie jest łatwo przechodzić między wszystkimi otwartymi skoroszytami. Możesz więc chcieć wyświetlić listę wszystkich otwartych skoroszytów na liście, aby łatwo przełączać się między tymi skoroszytami w programie Excel. W tym artykule pokażemy, jak wyświetlić listę wszystkich otwartych skoroszytów, aby ułatwić nawigację w programie Excel.
Po prostu wymień wszystkie otwarte skoroszyty z VBA
Wyświetl listę wszystkich otwartych skoroszytów i łatwo przejdź do skoroszytu za pomocą VBA
Lista wszystkich otwartych skoroszytów i łatwe przejście do skoroszytu za pomocą niesamowitego narzędzia
Po prostu wymień wszystkie otwarte skoroszyty z VBA
W tej sekcji dowiesz się, jak używać kodu VBA do wyświetlania wszystkich otwartych skoroszytów w programie Excel.
1. naciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł.
2. Następnie skopiuj i wklej poniższy kod VBA do edytora kodu.
VBA: lista wszystkich otwartych nazw skoroszytów w programie Excel
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. Uruchom kod VBA, naciskając F5 klucz. w Kutools dla programu Excel W oknie dialogowym określ komórkę do umieszczenia listy skoroszytów, a następnie kliknij OK przycisk. Zobacz zrzut ekranu:
Następnie wyświetlane są wszystkie otwarte skoroszyty z odpowiednimi arkuszami.
Trudny w obsłudze kod VBA? Możesz to osiągnąć poprzez trzecia metoda z kliknięciami.
Wyświetl listę wszystkich otwartych skoroszytów i łatwo przejdź do skoroszytu za pomocą VBA
Jeśli chcesz wyświetlić listę wszystkich skoroszytów, aby łatwo przełączać się między skoroszytami, spróbuj użyć VBA w następujący sposób:
1. wciśnij inny + F11 otworzyć Microsoft Visual Basic for Applications okno. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł.
2. Skopiuj i wklej następujący kod VBA do otwartego okna modułu.
Kod VBA: wyświetl wszystkie otwarte skoroszyty i przejdź do skoroszytu
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. wciśnij F5 klucz do uruchomienia kodu. Następnie Kutools dla programu Excel pojawi się okno dialogowe z listą wszystkich otwartych skoroszytów. Jeśli chcesz przejść do określonego skoroszytu, wprowadź nazwę tego skoroszytu w polu i kliknij OK przycisk. Zobacz zrzut ekranu:
Lista wszystkich otwartych skoroszytów i łatwe przejście do skoroszytu za pomocą niesamowitego narzędzia
Przed złożeniem wniosku Kutools dla programu ExcelProszę pobierz i zainstaluj najpierw.
Z Panel nawigacji of Kutools dla programu Excel, wszystkie otwarte skoroszyty zostaną automatycznie wymienione w okienku, aby ułatwić nawigację między wszystkimi otwartymi skoroszytami. Wystarczy kliknąć jeden z otwartych skoroszytów, aby natychmiast przejść do tego skoroszytu.
Jeśli chcesz mieć bezpłatną wersję próbną (30 dni) tego narzędzia, kliknij, aby go pobrać, a następnie przejdź do wykonania operacji zgodnie z powyższymi krokami.
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!