📚 Hub Books: Онлайн-чтение книгРазная литератураМагия таблиц. 100+ приемов ускорения работы в Excel (и немного в Google Таблицах) - Ренат Шагабутдинов

Магия таблиц. 100+ приемов ускорения работы в Excel (и немного в Google Таблицах) - Ренат Шагабутдинов

Шрифт:

-
+

Интервал:

-
+
1 ... 48 49 50 51 52 53 54 55 56 57
Перейти на страницу:
на отдельном листе автоматически и делает это для любого количества листов в книге.

И это пример задачи, которую можно решить только макросом, причем не записью макроса, а вручную, путем ввода кода. Потому что записать можно определенные действия, но алгоритм «создай ссылку на каждый лист в книге» невозможно записать: тут присутствуют цикл и неизвестное заранее число листов.

Хотя, как правило, большинству хватает встроенных инструментов и функций для решения рабочих задач (тем более когда есть Power Query), но иногда могут возникнуть задачи вроде такой, для которой придется писать (или искать в Сети, на форумах готовый) макрос.

Следующий код создает новый лист с именем «Оглавление» и добавляет в первом столбце ссылки на все остальные листы в книге.

Файл с макросом: Оглавление. bas

Sub Оглавление()

Dim Contents As Worksheet

Set Contents = ActiveWorkbook.Worksheets.Add(before:=ActiveWorkbook.Worksheets(1))

Contents.Range("A1") = "Оглавление"

Contents.Name = "Оглавление"

For i = 2 To ActiveWorkbook.Worksheets.Count

Contents.Hyperlinks.Add Anchor:=Cells(i, 1), Address:="", SubAddress:="'" & ActiveWorkbook.Worksheets(i).Name & "'!A1", TextToDisplay:=ActiveWorkbook.Worksheets(i).Name

Next i

Contents.Columns(1).EntireColumn.AutoFit

End Sub

Его можно добавить в личную книгу макросов, чтобы он был доступен у вас во всех книгах Excel, а потом на панель быстрого доступа, чтобы оглавление создавалось по нажатию кнопки.

Личная книга — это книга, которая открывается в Excel всегда, она нужна, чтобы хранить те макросы, которые могут понадобиться вам в любой момент при работе с любой книгой, а не с отдельным файлом. Чтобы она у вас появилась, достаточно начать запись макроса (можно будет ее сразу закончить) и выбрать в списке «Сохранить в» соответствующий пункт.

После этого будет создана Личная книга макросов — вы увидите ее в редакторе Visual Basic (его можно открыть сочетанием Alt + F11).

Заключение

Главное в табличном деле — практика! Пробуйте все самостоятельно, изучайте файлы с примерами, помните: если вы что-то делаете вручную, то, скорее всего, есть способ автоматизации.

Для дальнейшего погружения обратитесь к списку литературы, но, повторюсь, быстрее всего развитие происходит при решении практических задач.

Чтобы узнавать про новости, читать полезные статьи и изучать приемы и функции, подпишитесь на мои каналы в «Телеграме»:

Магия Excel — https://t.me/lemur_excel,

Google Таблицы — https://t.me/google_sheets.

С любыми вопросами и предложениями пишите, пожалуйста, на электропочту: [email protected].

Об авторе

Ренат Шагабутдинов — эксперт по Excel и Google Таблицам, обладатель сертификата MOS Excel Expert. Имеет большой опыт создания и настройки отчетности, а также автоматизации бизнес-процессов.

Автор курсов и учебных программ, проводит тренинги и мастер-классы. Автор телеграм-канала «Магия Excel», сооснователь телеграм-канала «Google Таблицы».

1 ... 48 49 50 51 52 53 54 55 56 57
Перейти на страницу:

Комментарии

Обратите внимание, что комментарий должен быть не короче 20 символов. Покажите уважение к себе и другим пользователям!

Никто еще не прокомментировал. Хотите быть первым, кто выскажется?