Как да създадете съдържание за всички имена на раздели на електронни таблици с хипервръзки в Excel?
Работната книга на Excel става доста голяма, тъй като вътре се създават все повече и повече работни листове. Колкото повече работни листове има, толкова по-трудно е да се поддържа преглед на работните листове. Следователно ви е необходимо съдържание, за да навигирате бързо между работни листове в Excel. Тази статия ще ви покаже методи за постигането му.
Създайте съдържание от VBA код
Създайте лесно съдържание от Kutools за Excel
Създайте съдържание от VBA код
Следният VBA код може да ви помогне да създадете съдържание за всички работни листове с хипервръзки в Excel. Моля, направете следното.
1. Натисни Друг + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. В Microsoft Visual Basic за приложения прозорец, кликнете Поставете > Модули, след което копирайте кода на VBA по-долу в прозореца на кода.
VBA код: Създайте съдържание за всички работни листове
Sub CreateTableofcontents()
'updateby Extendoffice 20180413
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("Table of contents").Delete
On Error GoTo 0
Set xShtIndex = Sheets.Add(Sheets(1))
xShtIndex.Name = "Table of contents"
I = 1
Cells(1, 1).Value = "Table of contents"
For Each xSht In ThisWorkbook.Sheets
If xSht.Name <> "Table of contents" 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 или щракнете върху бутона Изпълнение, за да изпълните кода.
След това се създава работен лист със съдържание пред всички работни листове с всички имена на работни листове, изброени вътре. Можете да отидете до всеки работен лист, като щракнете върху името на листа в съдържанието. Вижте екранна снимка:
Създайте лесно съдържание от Kutools за Excel
- Създайте списък с имена на листове полезност на Kutools за Excel може да ви помогне бързо да създадете съдържание в текущата работна книга. Моля, направете следното.
Преди да кандидатствате Kutools за Excel, Моля те първо го изтеглете и инсталирайте.
1. В работната книга трябва да създадете съдържание, щракнете върху Kutools плюс > Работен лист > Създайте списък с имена на листове. Вижте екранна снимка:
2. В Създайте списък с имена на листове диалогов прозорец, трябва да:
След това се създава работен лист със съдържание, както е показано на екранната снимка по-долу. Можете да отидете до всеки работен лист, като щракнете върху името на листа в съдържанието.
Ако изберете опцията Съдържа бутони и макроси в секцията Избор на стилове на индекс, ще получите съдържание, както е показано на екранната снимка по-долу.
Ако искате да имате безплатен пробен период (30 дни) на тази помощна програма, моля, щракнете, за да го изтеглитеи след това преминете към прилагане на операцията съгласно горните стъпки.
Още по темата:
- Как да препратка към име на раздел в клетка в Excel?
- Как да съпоставя стойността на клетката с името на раздела на листа или обратното в Excel?
- Как да отворите конкретен работен лист чрез избраната стойност на комбинирано поле в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!