Да предположим, че имате работна книга с множество работни листове, сега искате да изброите всички имена на листове в текущата работна книга, има ли някакъв бърз метод за създаване на списък с имена на тези листове в Excel, без да ги въвеждате едно по едно? Този урок дава инструкции как да изброявате имена на работни листове в Excel.

Вземете списък с всички имена на работни листове от работна книга динамично с формули

Вземете списък с всички имена на работни листове от работна книга с полезна функция

Вземете списък с всички имена на работни листове от работна книга с VBA код

Вземете списък с всички имена на работни листове от работна книга динамично с формули

В Excel можете да дефинирате име на диапазон и след това да приложите формула, за да изброите всички имена на листове от текущата работна книга, моля, направете следните стъпки:

1. Отидете на щракване Формула > Мениджър на имена, вижте екранна снимка:

2. В Мениджър на имена кликнете върху НОВ бутон, вижте екранната снимка:

3. В изскочилото Ново име диалоговия прозорец, посочете име в Име текстово поле и след това копирайте формулата по-долу в Отнася се до текстово поле, вижте екранна снимка:

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

4, След това кликнете OK > Близо за да затворите диалоговите прозорци, сега, моля, отидете на лист, където искате да изброите всички имена на листове, и след това въведете следната формула в празна клетка:

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

Забележка: В горната формула, Имена на листове е името на диапазона, който сте отбелязали в стъпка 3.

5. И след това плъзнете манипулатора за попълване надолу към клетките, когато се покажат празни клетки, и сега всички имена на листове на текущата работна книга са изброени, както е показано на екранната снимка по-долу:

6. Ако искате да създадете хипервръзка за всеки лист, моля, използвайте формулата по-долу:

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

Забележка: В горната формула, A2 е клетката, която съдържа името на листа, и A1 е клетката, в която искате да бъде разположена активната клетка. Например, ако щракнете върху текста на хипервръзката, той ще намери клетката A1 на листа.

7. Сега, когато щракнете върху текста на хипервръзката, той ще ви отведе до този лист, вижте демонстрацията по-долу:

Вземете списък с всички имена на работни листове от работна книга с полезна функция

С Създайте списък с имена на листове полезност на добавката на трета страна Kutools за Excel, можете да създадете списък с имена на работни листове с едно щракване и да свържете всеки работен лист с хипервръзка.

След инсталиране Kutools за Excel, моля, направете следното:

1. Кликнете Kutools плюс > Работен лист > Създайте списък с имена на листове, вижте екранна снимка:

2. В Създайте списък с имена на листове диалогов прозорец, моля, задайте следните настройки:

(1.) Изберете стилове на индекс на листа желаете, можете да създадете имена на работни листове с хипервръзки или с макро бутони. (2.) Въведете имената на работните листове за индекса на листа. (3.) Посочете местоположението на индекса на работния лист. (4.) Посочете колко колони искате да използвате в новия работен лист, за да покажете имената на работния лист.

3. След като завършите настройките, щракнете OK. Всички имена на работни листове са изброени с връзки в нов работен лист на текущата работна книга. Вижте екранна снимка:

имена на работни листове с хипервръзки	имена на работни листове с макро бутони

Вземете списък с всички имена на работни листове от работна книга с VBA код

1. Задръжте натиснат ALT + F11 ключове и отваря Microsoft Visual Basic за приложения прозорец.

2. Щракнете Поставете > Модулии поставете следния макрос в Модули Window.

VBA: Избройте всички имена на работни листове с хипервръзки в нов работен лист:

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, Натисни F5 ключ за изпълнение на този макрос. Сега всички имена на работни листове в активната работна книга са изброени в нов работен лист, наречен Индекс, и имената на листовете също са свързани към всеки лист, вижте екранната снимка:

Свързани статии