Створіть індекс гіперпосилань для всіх аркушів у робочій книзі
Давайте візьмемо макрос для переліку всіх аркушів у книзі ще на один крок і створимо меню з гіперпосиланням для кожного аркуша у книзі. Це чудова економія часу для тих, хто має багато аркушів і намагається скласти меню гіперпосилань до кожного вручну.
Щоб використовувати макрос, просто замініть слово Sheet1 (воно з’являється двічі) у коді на ім’я вкладки, де ви хочете отримати результати. Переконайтеся, що на вкладці виводу немає жодної важливої інформації, оскільки вона очищає їхні дані перед тим, як писати на неї. Після виконання макросу створюється список кожного аркуша з гіперпосиланням на кожен аркуш.
1234567891011121314151617181920 | Додаткові таблиці ()Затемнити як робочий аркушDim x як ціле числоx = 1Аркуші ("Аркуш1"). Діапазон ("А: А"). ОчиститиДля кожного ws у робочих аркушахАркуші ("Аркуш1"). Клітинки (x, 1) .ВиберітьActiveSheet.Hyperlinks.Add _Якір: = Вибір, Адреса: = "", Підадреса: = _ws.Name & "! A1", TextToDisplay: = ws.Namex = x + 1Наступний wsEnd Sub |