Przypuśćmy, że masz skoroszyt z wieloma arkuszami roboczymi, teraz chcesz wyświetlić listę wszystkich nazw arkuszy w bieżącym skoroszycie, czy istnieje szybka metoda tworzenia listy nazw arkuszy tez w programie Excel bez wpisywania ich jeden po drugim? Ten samouczek zawiera instrukcje dotyczące wyświetlania nazw arkuszy w programie Excel.

Uzyskaj listę wszystkich nazw arkuszy ze skoroszytu dynamicznie za pomocą formuł

Uzyskaj listę wszystkich nazw arkuszy ze skoroszytu z przydatną funkcją

Uzyskaj listę wszystkich nazw arkuszy ze skoroszytu z kodem VBA

Uzyskaj listę wszystkich nazw arkuszy ze skoroszytu dynamicznie za pomocą formuł

W programie Excel możesz zdefiniować nazwę zakresu, a następnie zastosować formułę, aby wyświetlić listę wszystkich nazw arkuszy z bieżącego skoroszytu, wykonaj następujące czynności:

1. Przejdź do kliknięcia Formuła > Menedżer nazwzobacz zrzut ekranu:

2, w Menedżer nazw okno dialogowe, kliknij Nowości przycisk, zobacz zrzut ekranu:

3. W wyskoczył Nowe imie podaj nazwę w Imię pole tekstowe, a następnie skopiuj poniższą formułę do pliku Odnosi się do pole tekstowe, patrz zrzut ekranu:

=GET.WORKBOOK(1)&T(NOW())

4. Następnie kliknij OK > Zamknij aby zamknąć okna dialogowe, przejdź do arkusza, w którym chcesz wyświetlić wszystkie nazwy arkuszy, a następnie wprowadź następującą formułę w pustej komórce:

=IFERROR(INDEX(MID(Sheetnames,FIND("]",Sheetnames)+1,255),ROWS($A$2:A2)),"")

Note: W powyższym wzorze, Nazwy arkuszy to nazwa zakresu, do którego zostaniesz przypisany w kroku 3.

5. A następnie przeciągnij uchwyt wypełniania w dół do komórek, gdy wyświetlane są puste komórki, a teraz wszystkie nazwy arkuszy bieżącego skoroszytu zostały wymienione, jak pokazano na poniższym zrzucie ekranu:

6. Jeśli chcesz utworzyć hiperłącze dla każdego arkusza, użyj poniższego wzoru:

=HYPERLINK("#'"&A2&"'!A1","Go To Sheet")

Note: W powyższym wzorze, A2 to komórka zawierająca nazwę arkusza, a A1 to komórka, w której ma się znajdować aktywna komórka. Na przykład, jeśli klikniesz tekst hiperłącza, zlokalizuje komórkę A1 arkusza.

7. Teraz, gdy klikniesz tekst hiperłącza, przeniesie Cię do tego arkusza, zobacz poniżej demo:

Uzyskaj listę wszystkich nazw arkuszy ze skoroszytu z przydatną funkcją

Z Utwórz listę nazw arkuszy użyteczność dodatku innej firmy Kutools dla programu Excel, możesz jednym kliknięciem utworzyć listę nazw arkuszy i utworzyć łącze do każdego arkusza za pomocą hiperłącza.

Po zainstalowaniu Kutools dla programu Excel, zrób tak:

1. Kliknij Kutools Plus > Ćwiczenie > Utwórz listę nazw arkuszyzobacz zrzut ekranu:

2, w Utwórz listę nazw arkuszy w oknie dialogowym określ następujące ustawienia:

(1.) Wybierz style indeksu arkuszy chcesz, możesz tworzyć nazwy arkuszy za pomocą hiperłączy lub przycisków makr. (2.) Wprowadź nazwy arkuszy dla indeksu arkuszy. (3.) Określ lokalizację indeksu arkusza. (4.) Określ, ile kolumn chcesz użyć w nowym arkuszu do wyświetlania nazw arkuszy.

3. Po zakończeniu ustawień kliknij OK. Wszystkie nazwy arkuszy zostały wymienione z łączami w nowym arkuszu bieżącego skoroszytu. Zobacz zrzut ekranu:

nazwy arkuszy z hiperłączami	nazwy arkuszy z przyciskami makr

Uzyskaj listę wszystkich nazw arkuszy ze skoroszytu z kodem VBA

1. Przytrzymaj ALT + F11 klucze i otwiera plik Microsoft Visual Basic for Applications okno.

2. Kliknij wstawka > Modułi wklej następujące makro w Moduł Okno.

VBA: Wyświetl wszystkie nazwy arkuszy z hiperłączami w nowym arkuszu:

Sub CreateIndex()
'updateby Extendoffice
    Dim xAlerts As Boolean
    Dim I  As Long
    Dim xShtIndex As Worksheet
    Dim xSht As Variant
    xAlerts = Application.DisplayAlerts
    Application.DisplayAlerts = False
    On Error Resume Next
    Sheets("Index").Delete
    On Error GoTo 0
    Set xShtIndex = Sheets.Add(Sheets(1))
    xShtIndex.Name = "Index"
    I = 1
    Cells(1, 1).Value = "INDEX"
    For Each xSht In ThisWorkbook.Sheets
        If xSht.Name <> "Index" Then
            I = I + 1
            xShtIndex.Hyperlinks.Add Cells(I, 1), "", "'" & xSht.Name & "'!A1", , xSht.Name
        End If
    Next
    Application.DisplayAlerts = xAlerts
End Sub

3, wciśnij F5 klucz do uruchomienia tego makra. Teraz wszystkie nazwy arkuszy w aktywnym skoroszycie zostały wymienione w nowym arkuszu o nazwie Indeks, a nazwy arkuszy są również powiązane z każdym arkuszem, zobacz zrzut ekranu:

Powiązane artykuły