Как бързо да създадете каталог за вашата работна книга на Excel чрез VBA

Споделете сега:

Създаването на каталог за работна книга с много работни листове е необходимо. Тук имаме бърз метод за създаване на каталог в работен лист на Excel.

В предишната ни статия Как да създадете каталог във вашия Excel чрез хипервръзки, говорихме за създаване на каталог чрез вмъкване на хипервръзки в работен лист. Създаването на каталог за работна книга с много работни листове може да бъде много полезно. Но добавянето на хипервръзки една по една ръчно може да отнеме много време. Ето защо тук имаме нов метод за бързо създаване на такъв каталог.

Създайте каталог

На изображението по-долу има много работни листове в работната книга.Пример за каталог

И сега можете да създадете каталог в тази работна книга.

  1. Щракнете с десния бутон върху един от разделите в лентата.
  2. И след това щракнете върху бутона „Персонализиране на лентата“ в менюто.Персонализирайте лентата
  3. В прозореца „Опции на Excel“ поставете отметка на опцията „Разработчик“ в областта „Основни раздели“.
  4. И след това щракнете върху „OK“.Проверете Developer
  5. Сега щракнете върху раздела „Програмист“ в лентата.
  6. И след това щракнете върху бутона „Visual Basic“ в лентата с инструменти.Visual Basic

По този начин сте отворили редактора на Visual Basic. Всъщност можете също да натиснете клавишната комбинация „Alt + F11“ на клавиатурата, за да отворите бързо редактора.

  1. Сега щракнете с десния бутон на мишката в VBA проектора.
  2. И след това преместете курсора върху опцията „Вмъкване“.
  3. В подменюто изберете опцията „Модул“.Поставете модул

Следователно, вие сте вмъкнали нов модул в проекта.

  1. Сега копирайте следните VBA кодове в новия модул:

Sub CreateMenu ()

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

    а = 1

    'добавяне на нов работен лист

    Добавяне преди: = Листове (1)

    Листове (1) .Name = „Меню“

    Работни листове („Меню"). Обхват („А1"). Стойност = „Меню“

    За a = 2 към ActiveWorkbook.Worksheets.Count

        Работни листове („Меню"). Обхват („A" & a) = Листове (a). Име

        ActiveSheet.Hyperlinks.Add Anchor: = Работни листове („Меню"). Обхват („A" & a), _

        Адрес: = ””, _

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

        TextToDisplay: = Листове (а) .Име

    Следваща

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., която е световен лидер в технологиите за възстановяване на данни, включително ремонт на повреда на данните на документа и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com

Споделете сега:

Коментарите са забранени.