Создайте оглавление для списка листов в Excel

В вашей электронной таблице Excel много листов, и вы хотите управлять ими наиболее научным способом, чтобы они могли быстро открываться при необходимости. Чтобы управлять листами быстро и легко, вам необходимо создать оглавление списка листов в файле Excel.

Вот два способа создать таблицу списков листов в Excel.

Метод 1. Создайте список оглавления листов вручную.

Шаг 1. Создайте новый лист, который должен быть помещен поверх других листов, где вы создаете список листов в любом порядке.

Рисунок 1: Создание оглавления для списка листов в Excel

Шаг 2. Выберите имя первого листа в только что созданном списке, щелкните правой кнопкой мыши и выберите «Гиперссылка» (или комбинацию клавиш Ctrl + K).

Рисунок 2: Создание оглавления для списка листов в Excel

Шаг 3. Появится диалоговое окно «Вставить гиперссылку», выберите «Поместить в этот документ» в Ссылка на раздел , затем выберите имя листа, который вы хотите вести, и нажмите OK, чтобы закончить.

Рисунок 3: Создание оглавления для списка листов в Excel

Выполните те же действия для названий листов ниже, и в конечном итоге вы попадете в список листов в Excel. Вам просто нужно щелкнуть имя листа, и выбранный вами лист откроется.

Рисунок 4: Создание оглавления для списка рабочих листов в Excel

Но вот как вы можете использовать его с файлами Excel, в которых есть несколько листов, если у вас несколько листов, вы должны сделать следующее.

Метод 2: используйте VBA в Excel.

Шаг 1. В файле Excel вам нужно создать оглавление для списка листов, нажмите Alt + F11, чтобы открыть редактор Visual Basic.

Рисунок 5 из Создание оглавления для списка рабочих листов в Excel

Шаг 2: В окне Microsoft Visual Basic для приложений выберите Вставить -> Модуль.

Рисунок 6 из Создание оглавления для списка рабочих листов в Excel

Шаг 3. Скопируйте весь приведенный ниже код и вставьте его в поле «Модуль».

Частная подпрограмма CreateTableOfContents ()
Dim wsSheet как рабочий лист
Dim ws как рабочий лист
Тусклый счетчик до тех пор, пока
При ошибке Возобновить Далее
Установить wsSheet = Sheets («Mucluc»)
‘Проверить контрольный лист
При ошибке GoTo 0
Если wsSheet — ничего, тогда
‘Neu chua добавлен на первое место Рабочей тетради
Установите wsSheet = ActiveWorkbook.Sheets.Add (До: = Рабочие листы (1))
wsSheet.Name = «Mucluc»
Конец, если
С wsSheet
.Cells (2, 1) = «СПИСОК SACH CAC SHEET»
.Cells (2, 1) .Name = «Индекс»
Ячейки (4, 1)
.Value = «STT» .Cells (4, 2) .Value = «Десять листов»
Конец с
‘Объединить ячейку
С диапазоном («A2: B2»)
.Merge
.HorizontalAlignment = xlCenter
.Font.Bold = True
Конец с
‘Установить ширину столбца
Со столбцами («A: A»).
Ширина столбца = 8
.HorizontalAlignment = xlCenter
Конец с
С диапазоном («A4»)
.HorizontalAlignment = xlCenter
.Font.Bold = True
Конец с
Столбцы («B: B»). Ширина столбца = 30
С диапазоном («B4»)
.HorizontalAlignment = xlCenter
.Font.Bold = True
Конец с
Счетчик = 1
Для каждого ws в листах
Если ws.Name wsSheet. Имя Тогда
‘Найдите значение
wShSheet.Cells (Счетчик + 4, 1). Значение = Счетчик
‘Создать контакт
wsSheet.Hyperlinks.Add Anchor: = wsSheet.Cells (Counter + 4, 2), _
Адрес: = «», _
Дополнительный адрес: = ws.Name & «! A1», _
Подсказка: = ws.Name, _
TextToDisplay: = ws.Name
‘Добавить лист возврата кнопки
С новым листом с ws
.Hyperlinks.Add Anchor: =. Диапазон («H1»), Address: = «», SubAddress: = «Index», TextToDisplay: = «Dial ve»
Конец с
Счетчик = Счетчик + 1
Конец, если
Следующий ws
Установите xlSheet = Nothing
Конец подписки

Шаг 4: Затем вы нажимаете Run -> Run Sub или клавишу F5, чтобы запустить программу.

Рисунок 7 из Создание оглавления для списка рабочих листов в Excel

Теперь в вашем файле Excel будет лист Mucluc, и в нем будет оглавление для списка листов в Excel. Какой лист вы хотите открыть, все, что вам нужно сделать, это щелкнуть мышью по имени листа в списке листов.

Рисунок 8 из Создание оглавления для списка рабочих листов в Excel

Итак, с двумя способами создания оглавления для списка листов в Excel, надеюсь, вы сможете легко применить его к своему файлу Excel. Удачи!

Похожие записи

Добавить комментарий

Ваш адрес email не будет опубликован.