Найти тему

📌 Как добавить лист и присвоить ему имя (Процедура VBA)

Оглавление

Ребята, всем привет! 👋

Продолжаем изучать VBA. В этом уроке я покажу как как добавлять / вставлять рабочие листы с помощью VBA.

✍️ Если вы только начинаете осваивать VBA мы уверены, каждый может найти для себя что-то новое!

✨ А прежде, чем мы начнем 📣 напомню, теперь у нас на канале есть удобный рубрикатор 👉 Быстрый поиск решения. Путеводитель по Excel, а все видео 📽 предыдущих уроков доступны и на YouTube.

Как добавить лист и присвоить ему имя
Как добавить лист и присвоить ему имя

📢 Скачать исходник с примерами кода вы можете в конце статьи 🔽

-2

Итак, начнем

Добавить лист

Этот простой макрос добавит лист перед активным листом:
Добавить лист
Добавить лист
После вставки листа новый Лист становится активной таблицей. Затем вы можете использовать объект ActiveSheet для работы с новым листом

⏩ Добавить лист с именем

Вы также можете определить имя листа при создании нового листа, например:
Добавить лист с именем
Добавить лист с именем

⏩ Создать новый лист с именем из ячейки

Вы можете использовать значение ячейки для присвоения имени новому листу, например:
-5

⏩ Добавить лист до / После другого листа

Вы также можете выбрать место, в которое будет вставлен новый лист. Для этого следует использовать свойства "После" или "До", чтобы вставить лист в определенное место в книге.

▶️ Вставить лист после другого листа

🔘 Этот код вставит новый лист после другого листа:

-6

🔘 Этот код позволит вставить новый лист ПОСЛЕ другого листа и указать имя листа:

-7

⚠️ Обратите внимание на дополнительные круглые скобки, требуемые во втором примере (первый пример выдаст ошибку, если будут добавлены вторые круглые скобки).

В этих примерах мы явно назвали лист, используемый для определения местоположения листа. Часто вместо этого требуется использовать номер индекса листа, чтобы можно было вставить лист в начало или конец книги

▶️ Добавить лист в конец книги

Чтобы добавить лист в конец книги применяем код:

Добавить лист в конец книги
Добавить лист в конец книги

▶️ Добавить лист в начало книги

Чтобы добавить лист в начало книги применяем код:

Добавить лист в начало книги
Добавить лист в начало книги

⏩ Добавить лист в переменную

Этот код присваивает новый лист переменной при создании листа:

Dim ws As Worksheet
Set ws = Sheets.Add

Отсюда вы можете ссылаться на новый лист с помощью переменной ‘ws’:

ws.name = "Мой новый лист"

-10

⏩ Примеры добавления листа

▶️ Создание листов из списка имен

Следующая процедура будет просматривать содержимое одного столбца, настраивая листы Excel в текущей книге с этими именами. Он вызывает другую функцию, чтобы узнать, существует ли лист с таким именем, и если да, то лист не создан.

-11

Например, если у нас задан текст в ячейках A19:A21 на листе "Меню"

-12

Будут созданы следующие листы:

-13

А на этом сегодня все. 👏 Продолжение следует...

Подписывайтесь на канал, чтобы не пропустить новые уроки и полезные фишки Excel. Следите за нашими новостями и вы узнаете больше о VBA и Excel в частности.

📝 Нам очень важна Ваша обратная связь. Отзыв по уроку и любые вопросы пишите в комментариях.

💝 А если у Вас пока нет вопросов, но вы дочитали данную статью до конца оставьте в комментариях просто смайлик 😉 (автору будет приятно)

И конечно же, за лайк 👍  и репост 🔁 данного поста благодарочка 💖 и респект 🤝 каждому!

➡️ СКАЧАТЬ ПРИМЕР ФАЙЛА

Подписывайтесь на канал, чтобы не пропустить новые уроки и полезные фишки Excel.
Подписывайтесь на канал, чтобы не пропустить новые уроки и полезные фишки Excel.

Наука
7 млн интересуются