Note: The other languages of the website are Google-translated. Back to English
Zaloguj Się  \/ 
x
or
x
Zarejestruj się  \/ 
x

or

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 KutoolsforExcel 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 KutoolsforExcel 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

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2019 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowy bezpłatny okres próbny. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

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ęć myszą każdego dnia!
officetab dół
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.