Як швидко створити каталог для книги Excel за допомогою VBA

Поділитися зараз:

Необхідно створити каталог для робочої книги з багатьма аркушами. Тут ми пропонуємо швидкий спосіб створити каталог на робочому аркуші Excel.

У нашій попередній статті Як створити каталог у своєму Excel за допомогою гіперпосилань, ми говорили про створення каталогу шляхом вставки гіперпосилань на робочий аркуш. Створення каталогу для робочої книги з багатьма аркушами може бути дуже корисним. Але додавання гіперпосилань одне за одним вручну може зайняти багато часу. Тому ми маємо новий спосіб швидкого створення такого каталогу.

Створіть каталог

На зображенні нижче показано багато аркушів у зошиті.Приклад для каталогу

А тепер ви можете створити каталог у цьому робочому зошиті.

  1. Клацніть правою кнопкою миші одну з вкладок на стрічці.
  2. Потім натисніть кнопку «Налаштувати стрічку» в меню.Налаштуйте стрічку
  3. У вікні «Параметри Excel» позначте опцію «Розробник» в області «Основні вкладки».
  4. А потім натисніть “OK”.Перевірте розробника
  5. Тепер натисніть стрічку на вкладці «Розробник».
  6. А потім натисніть кнопку “Visual Basic” на панелі інструментів.Візуальний Бейсік

Таким чином, ви відкрили редактор Visual Basic. Насправді ви також можете натиснути комбінацію клавіш «Alt +F11» на клавіатурі, щоб швидко відкрити редактор.

  1. Тепер клацніть правою кнопкою миші в проекторі VBA.
  2. А потім наведіть курсор на опцію “Вставити”.
  3. У підменю виберіть пункт «Модуль».Вставте модуль

Отже, ви вставили в проект новий модуль.

  1. Тепер скопіюйте наступні коди VBA в новий модуль:

Sub CreateMenu()

    Затемнити як ціле число

    a = 1

    'додати новий робочий аркуш

    Worksheets.Add Before:=Sheets(1)

    Аркуші(1).Назва = “Меню”

    Робочі аркуші («Меню»). Діапазон («A1»). Значення = «Меню»

    Для a = 2 To ActiveWorkbook.Worksheets.Count

        Робочі аркуші («Меню»). Діапазон («A» & a) = Аркуші (a). Назва

        ActiveSheet.Hyperlinks.Add Anchor:=Worksheets(“Menu”).Range(“A” & a), _

        Адреса:=””, _

        SubAddress:=”'” & Sheets(a).Name & “'!R1C1”, _

        TextToDisplay:=Аркуші(a).Назва

    Далі

End Sub

У цьому коді ми вставляємо новий робочий аркуш під назвою «Меню» на початку. Якщо робочий аркуш із назвою «Меню» вже існує, ви можете змінити код VBA або змінити назву існуючого аркуша. Крім того, ми введемо список у перший стовпець на новому аркуші. Якщо вам потрібно ввести каталог в інший діапазон, ви також можете змінити його відповідно до ваших потреб.

  1. Тепер натисніть кнопку «Run Sub» на панелі інструментівЗапустіть Sub

Крім того, ви також можете натиснути кнопку «F5» на клавіатурі.

  1. Тепер поверніться до інтерфейсу робочого аркуша.Каталог

У книзі є новий робочий аркуш під назвою «Меню». І всі назви аркушів перераховані на аркуші з відповідними гіперпосиланнями. За допомогою цього методу ви можете легко створити каталог за короткий час.

Порівняння двох методів

У нашій попередній статті Як створити каталог у своєму Excel за допомогою гіперпосилань, додаємо каталог вручну. І ми порівняємо різницю між двома методами в таблиці нижче.

порівняння Створіть каталог вручну Використовуйте процедуру VBA
Перевага 1. Кожен користувач Excel може легко використовувати цей метод.

2. Якщо ви не знаєте VBA, можете скористатися цим методом.

1. За допомогою процедур VBA ви можете завершити це завдання лише одним клацанням миші.

2. Ви також можете змінити коди VBA, щоб виконати інші вимоги.

Недоліком 1. Якщо в книзі багато робочих аркушів, ви, безумовно, витратите багато часу на вставку гіперпосилань.

2. Вибирати гіперпосилання потрібно одне за одним, і це легко призведе до помилок.

1. Якщо ви не знайомі з кодами VBA, у вас виникнуть проблеми під час виконання кодів.

2. Використання кодів VBA ускладнить завдання.

 

Вирішуйте несподівані ситуації в Excel

Якщо ви часто використовуєте Excel для виконання завдань, ви неминуче зіткнетеся з деякими помилками. Здебільшого ви можете закрити Excel, а потім перезапустити його. Таким чином, ці невеликі помилки зникнуть. Однак деякі помилки в Excel призведуть до серйозного пошкодження Excel. І результат може бути неймовірним. У цей момент ви можете виправлення проблеми з даними xls за допомогою нашого досвідченого інструменту. За допомогою цього ефективного інструменту вам залишається лише дочекатися завершення процесу відновлення.

Вступ автора:

Анна Ма - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі виправити пошкодження даних документа та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com

Поділитися зараз:

Коментарі закриті.