Создать указатель гиперссылок для всех листов в книге
Давайте сделаем макрос для вывода списка всех листов в книге на один шаг дальше и создадим меню с гиперссылками для каждого листа в книге. Это отличная экономия времени для тех, у кого много листов и кто пытается создать меню гиперссылок на каждый из них вручную.
Чтобы использовать макрос, просто замените слово Sheet1 (оно появляется дважды) в коде именем вкладки, на котором вы хотите получить результаты. Убедитесь, что на вкладке вывода нет важной информации, потому что она очищает данные перед записью в нее. После запуска макроса создается список каждого листа с гиперссылкой на каждый лист.
| 1234567891011121314151617181920 | Sub ListSheets ()Dim ws как рабочий листDim x As Integerх = 1Листы ("Лист1"). Диапазон ("A: A"). ОчиститьДля каждого ws в листахЛисты ("Лист1"). Ячейки (x, 1). ВыбратьActiveSheet.Hyperlinks.Add _Якорь: = Выбор, Адрес: = "", Дополнительный адрес: = _ws.Name & "! A1", TextToDisplay: = ws.Nameх = х + 1Следующий wsКонец подписки |
