Как в vba открыть лист в excel

Обновлено: 07.07.2024

Иногда вам может потребоваться создать кнопку, чтобы открыть определенный рабочий лист в текущей книге, так что же делать с этим? На самом деле есть несколько методов, которые помогут вам решить эту проблему.

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

Создать кнопку, чтобы открыть определенный лист с формой и гиперссылкой

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

1. Нажмите Вставить > Формы > Прямоугольник с закругленными углами. См. Снимок экрана:

2. Нарисуйте на листе прямоугольник с закругленными углами, и вы можете отформатировать его и ввести текст по своему усмотрению. В нашем случае мы набираем Перейти к листу 1 как показано ниже:

3. Щелкните правой кнопкой мыши прямоугольник с закругленными углами и выберите Гиперссылка из контекстного меню.

4. В открывшемся диалоговом окне "Вставить гиперссылку"
(1) Выберите Место в этом документе в Ссылка на раздел;
(2) Щелкните, чтобы выбрать имя определенного листа в Или выберите место в этом документе раздел;
(3) Введите адрес ячейки назначения в поле Введите ссылку на ячейку поле и, наконец, щелкните OK кнопку.

Теперь, когда вы щелкаете прямоугольник с закругленными углами, он сразу переходит к указанной ячейке указанного листа.

Легко вставляйте несколько кнопок макросов, чтобы переходить на (каждый) другой лист в Excel

Чтобы вставить кнопку макроса для перехода на другой рабочий лист, обычно вам нужно выполнить все вышеуказанные 5 шагов, и будет довольно утомительно вставлять много кнопок макросов для перехода на каждый рабочий лист в текущей книге. Но, Kutools for Excel's Создать список имен листов Утилита позволяет быстро вставлять несколько макрокоманд для перехода на каждый рабочий лист. Полнофункциональная бесплатная 30-дневная пробная версия!

Эта медитация Создать список имен листов Утилита также поддерживает пакетную вставку нескольких гиперссылок для перехода на каждый рабочий лист (или другие рабочие листы) в текущей книге.

Создать кнопку для открытия определенного листа с помощью кнопки управления формой

Этот метод проведет вас через создание кнопки управления формой для открытия определенного рабочего листа. Вы можете сделать следующее:

1, Нажмите разработчик > Вставить > Пуговичка in Контроль формы раздел. См. Снимок экрана:

Внимание: По умолчанию вкладка "Разработчик" не отображается на ленте. Нажмите, чтобы узнать. как показать / отобразить вкладку разработчика в ленте Excel.

2. Нарисуйте кнопку, затем появится диалоговое окно «Назначить макрос». В диалоговом окне введите имя макроса в поле Имя макроса поле, а затем щелкните НОВИНКИ кнопку.

3. Теперь открывается диалоговое окно Microsoft Visual Basic для приложений. Вставьте следующий код между ниже и End sub. См. Снимок экрана:

Код: перейти к определенному листу в Excel

Внимание: В коде измените Sheet1 к требуемому имени листа в зависимости от ваших потребностей.

Создайте кнопки, чтобы открыть все листы с помощью Kutools for Excel

Оба вышеуказанных метода могут создать только одну кнопку для открытия одного листа. Если вы хотите создать несколько кнопок, чтобы открыть все листы, вам следует попробовать Kutools for Excel's Создать список имен листов утилита.

Kutools for Excel - Включает более 300 удобных инструментов для Excel. Полнофункциональная бесплатная 30-дневная пробная версия, кредитная карта не требуется! Get It Now

1, Нажмите Kutools Plus > Рабочий лист > Создать список имен листов.

2. В диалоговом окне «Создать список имен листов»
(1) Проверьте Содержит кнопки и макросы вариант в Стили указателя листов раздел;
(2) В Укажите имя листа для указателя листов поле введите имя для нового созданного листа;
(3) Укажите положение индексной страницы в Вставьте указатель листа в раскрывающийся список;

3, Нажмите OK кнопка. Затем он создаст индексную страницу с несколькими кнопками. Каждая кнопка названа своим именем рабочего листа и связана с этим листом. См. Снимок экрана ниже:

Внимание: Этот метод требует включения Доверие к объектной модели проекта VBA вариант в Центре управления безопасностью.

Демо: создание кнопок для открытия / перехода ко всем листам в Excel

Панель навигации: список всех открывающихся книг и вкладка вертикального листа для удобного переключения на любой лист

Kutools для Excel Область переходов перечисляет все открывающиеся книги и соответствующие рабочие листы по вертикали, как показано на скриншотах ниже. (1) Щелкнув книгу в Workbook раздел переключится на это окно книги; (2) при щелчке листа в Рабочий лист раздел будет пропущен, чтобы открыть этот рабочий лист. Полнофункциональная бесплатная 30-дневная пробная версия!

Создание новых рабочих листов осуществляется с помощью метода Sheets.Add.

Синтаксис метода Sheets.Add

expression.Add [Before, After, Count, Type]

где expression — переменная, представляющая собой объект Sheet.

Компоненты метода Sheets.Add

Before* — необязательный параметр типа данных Variant, указывающий на лист, перед которым будет добавлен новый.
After* — необязательный параметр типа данных Variant, указывающий на лист, после которого будет добавлен новый.
Count — необязательный параметр типа данных Variant, указывающий, сколько листов будет добавлено (по умолчанию — 1).
Type — необязательный параметр типа данных Variant, указывающий тип листа: xlWorksheet** (рабочий лист) или xlChart (диаграмма), по умолчанию — xlWorksheet.

*Если Before и After не указаны, новый лист, по умолчанию, будет добавлен перед активным листом.

**Для создания рабочего листа (xlWorksheet) можно использовать метод Worksheets.Add, который для создания диаграмм уже не подойдет.

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

ThisWorkbook . Sheets . Add After : = ActiveSheet , Count : = 2 Workbooks ( "Книга1.xlsm" ) . Sheets . Add After : = Лист 1 Workbooks ( "Книга1.xlsm" ) . Sheets . Add After : = Worksheets ( 1 ) Workbooks ( "Книга1.xlsm" ) . Sheets . Add After : = Worksheets ( "Лист1" ) Workbooks ( "Книга1.xlsm" ) . Sheets . Add . Name = "Мой новый лист" Sheets . Add Before : = Worksheets ( Worksheets . Count )

Лист1 в After:=Лист1 — это уникальное имя листа, указанное в проводнике редактора VBA без скобок.
Лист1 в After:=Worksheets(«Лист1») — это имя на ярлыке листа, указанное в проводнике редактора VBA в скобках.

Создаваемый лист можно присвоить объектной переменной:

Set myList = Workbooks ( "Книга1.xlsm" ) . Worksheets . Add

Если создаваемый лист присваивается объектной переменной, он будет помещен перед активным листом. Указать дополнительные параметры невозможно.

Копирование листов

Копирование рабочих листов осуществляется с помощью метода Worksheet.Copy.

Синтаксис метода Worksheet.Copy

expression.Copy [Before, After]

где expression — переменная, представляющая собой объект Worksheet.

Компоненты метода Worksheet.Copy

Before* — необязательный параметр типа данных Variant, указывающий на лист, перед которым будет добавлена копия.
After* — необязательный параметр типа данных Variant, указывающий на лист, после которого будет добавлена копия.

*Если Before и After не указаны, Excel создаст новую книгу и поместит копию листа в нее. Если скопированный лист содержит код в проекте VBA (в модуле листа), он тоже будет перенесен в новую книгу.

Примеры копирования листов

Worksheets ( "Лист1" ) . Copy Before : = Worksheets ( "Лист2" ) Workbooks ( "Книга1.xlsm" ) . Worksheets ( "Лист1" ) . Copy _

Если рабочие книги указаны как элементы коллекции Workbooks, в том числе ActiveWorkbook и ThisWorkbook, листы нужно указывать как элементы коллекции Worksheets, использование уникальных имен вызовет ошибку.

Перемещение листов

Перемещение рабочих листов осуществляется с помощью метода Worksheet.Move.

Синтаксис метода Worksheet.Move

expression.Move [Before, After]

где expression — переменная, представляющая собой объект Worksheet.

Компоненты метода Worksheet.Move

Before* — необязательный параметр типа данных Variant, указывающий на лист, перед которым будет размещен перемещаемый лист.
After* — необязательный параметр типа данных Variant, указывающий на лист, после которого будет размещен перемещаемый лист.

*Если Before и After не указаны, Excel создаст новую книгу и переместит лист в нее.

Примеры перемещения листов

Простые примеры перемещения листов:

Worksheets ( "Лист1" ) . Move Before : = Worksheets ( "Лист2" ) Workbooks ( "Книга1.xlsm" ) . Worksheets ( "Лист1" ) . Move _

Перемещение листа «Лист4» в позицию перед листом, указанным как по порядковому номеру, так и по имени ярлыка:

x = InputBox ( "Введите имя или номер листа" , "Перемещение листа «Лист4»" )

Удаление листов

Удаление рабочих листов осуществляется с помощью метода Worksheet.Delete

Синтаксис метода Worksheet.Delete

где expression — переменная, представляющая собой объект Worksheet.

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

Workbooks ( "Книга1.xlsm" ) . Worksheets ( "Лист1" ) . Delete

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

Содержание рубрики VBA Excel по тематическим разделам со ссылками на все статьи.

48 комментариев для “VBA Excel. Рабочий лист (создание, копирование, удаление)”

А как удалить листы не указывая постоянно их название?:

Если по крупному
нет Проверки наличия Листа в книге
нет Переименования Листа

Добрый день, Эдуард!
Я правильно понял вопрос: нужно, чтобы макрос при каждом запуске создавал копию листа и присваивал ему новое имя, отличное от имени по умолчанию? Если так, то по каким правилам должно создаваться новое имя?

Здравствуйте. Не могу найти макрос может кто поможет.
Задача состоит в том что бы макрос читал все листы книги после чего делал копию этих листов и вставлял в эти же листы данные как значения. Т.е. фактически разрывал связи методом копи паст но на всех листах книги (колличество листов в книге может быть каждый раз разное.

Добрый день!
У меня вопрос.
Как перемещать лист перед другим листом, номер или название которого будет вводить пользователь?

Привет, Артур!
Перемещение листа «Лист2» на позицию перед листом, имя ярлыка которого вводится в текстовое поле информационного окна InputBox:

x = InputBox ( "Введите имя листа" , "Перемещение листа «Лист2»" )

Спасибо!
У меня ещё вопрос. А если указывать номер листа, перед которым будет другой лист, какое изменение будет в коде?

А так можно вводить и номер, и имя:

x = InputBox ( "Введите имя или номер листа" , "Перемещение листа «Лист2»" ) x = InputBox ( "Введите имя или номер листа" , "Перемещение листа «Лист2»" )

Добрый день! Возможно ли полное копирование листа на нужный мне лист? В январе заполняются данные каждый день и надо чтобы за каждый день создавалась копия на заранее созданные 31 лист по дням?

. PasteSpecial Paste : = xlPasteFormulasAndNumberFormats

Добрый день, Эдуард!
Это можно сделать двумя строками, но перед копированием следует проверить, не был ли исходный лист сегодня уже сохранен под новым именем:

MsgBox "Лист за " & FormatDateTime ( Date , vbShortDate ) & " уже сохранен!" Worksheets ( "Січень" ) . Copy After : = Worksheets ( Worksheets . Count ) 'присваиваем листу в качестве имени число текущей даты

Спасибо за помощь! Нашел другое решение более мне подходящее но не знаю как сделать чтобы созданые листы вставлялись по порядку нумерации 1,2,3 и т.д. после активного листа? Не поможете вот код

destSht . Move After : = Worksheets ( Worksheets . Count )

Спасибо все работает!

Еще вопрос, можно ли скопировать лист не в конец книги а между листами, есть 12 месяцев в книге ексель чтобы копировалось после января, февраля?

И может еще чтобы кнопка с макросом не копировалась а создавалась гипперссылка обратно на лист?

Sheets . Add . Name = InputBox ( "Ввести дату - від 1 до 31" ) destSht . Move After : = Worksheets ( Worksheets . Count )

Я добавил код перемещения нового листа относительно исходного листа с именем текущего месяца и удаления ненужного нового листа, который создается при повторном вводе одного и того же числа:

Sheets . Add . Name = InputBox ( "Ввести дату - від 1 до 31" ) destSht . Move After : = Worksheets ( CStr ( CByte ( destSht . Name ) - 1 ) )

Евгений огромное спасибо это то что и требовалось весьма признателен за Вашу помощь.

Эдуард, представленный выше код будет работать только с одним месяцем. Excel не даст создать в одной книге несколько листов с одним именем (одно и то же число, но разных месяцев). Вам придется как-то изменить наименование листов, например: 1.01-31.01, 1.02-28.02. Тогда для перемещения новых листов придется использовать другой алгоритм или по окончании одного месяца, все его листы переименовать, например так:

MsgBox "Такой номер уже используется - введите другой"

Я понял этого и не требуется по окончанию месяца листы будут сохранены отдельно.
А вот по предедущему коду нельзя ввести произвольное число т.е не по порядку 1,2,3 а сразу например 17 пропустив с 1 по 16?

Sheets . Add . Name = InputBox ( "Ввести дату - від 1 до 31" )

Помогите с мелочью никак не пойму куда вставить умножить на 2,1 и на 1,9 чтобы не считалось +_ 20% в этой формуле?
=ДВССЫЛ(АДРЕС(СТРОКА();СТОЛБЕЦ()-1;1;1))

Эдуард, может быть у вас для ячейки с формулой установлен формат «Процентный»?

Нет числовой. условное форматирование со стрелками вверх вниз и вправо
=ДВССЫЛ(АДРЕС(СТРОКА();СТОЛБЕЦ()-1;1;1*2,6)) для стрелки вверх
=ДВССЫЛ(АДРЕС(СТРОКА();СТОЛБЕЦ()-1;1;1*2,4)) для стрелки вправо
но не работает может я не туда вставляю *2,6

Синтаксис функции АДРЕС:
АДРЕС(номер_строки;номер_столбца;[тип_ссылки];[A1];[имя_листа])
Там, где вы умножаете, должно быть логическое значение [A1]: ИСТИНА или ЛОЖЬ (1 или 0).

удаляю Лист по имени на ярлычке

Евгений, помогите пожалуйста со следующей задачей.
В папке несколько документов эксель, в каждом из которых несколько листов.
Необходимо, чтобы макрос открывал по порядку каждый документ, проходил по каждому листу и брал оттуда нужную информацию. Затем эта информация переносится в новый документ эксель в заданном порядке.
В целом программу я реализовал, но столкнулся с проблемой, что debug упирается в последний лист первого открытого документа и не может дальше перейти к следующему документу. Т.е. необходимо прописать условие, чтобы vba понимал, что данный лист в документе последний.
Подскажите пожалуйста, как это сделать?

Цикл будет завершен после обработки последнего листа.

Здравствуйте!
Возможно ли при копировании листа из другого файла перенести и пользовательский стиль таблицы?

Добрый день!
Если не ошибаюсь, пользовательский стиль таблицы всегда копируется вместе с листом, но внешний вид таблиц будет одинаков, если оба файла созданы и открыты в одной версии Excel.

Спасибо за ответ.
Увы, не так, и даже всё не так.
Стиль «пытается» копироваться, цвета отличаются оттенками, но это полбеды. Главное, что нужно мне, чтобы копировался цвет шрифта таблицы, а этого не происходит. Почему-то на листе-цели устанавливается на весь лист чёрный шрифт, который Эксель считает главнее табличного.
И даже больше. После ручной замены на всё листе-цели шрифта с чёрного на авто замены цвета шрифта в импортированной таблице не происходит. Что всегда есть при ручной работе с таблицами.
Ну, и совсем глюк. Пользовательский стиль переезжает и доступен в новой книге. Но даже при ручном его выборе на листе-цели для таблицы не происходит смены цвета шрифта.
Цвет можно поменять только руками (макросом) без учёта таблицы.
Всё это происходит на одном компьютере в одной ОС В10.

Хм. Эксель 2016, всё выше описанное по-прежнему.
Если не затруднит, скопируйте умную таблицу макросом на новый лист, перед этим созданный тем же макросом.

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

С помощью следующего простого кода VBA он автоматически перейдет на конкретный рабочий лист, который вы определили, независимо от того, какой рабочий лист использовался и сохранялся в последний раз.

Автоматически открывать конкретную книгу при включении Excel с помощью Kutools for Excel

Добавление книг в папку избранного с помощью вкладки Office

Открыть конкретный лист в книге с кодом VBA

Выполните следующие шаги, чтобы завершить эту задачу:

1. Откройте книгу, которую хотите использовать.

2. Удерживайте ALT + F11 , чтобы открыть Окно Microsoft Visual Basic для приложений.

3. На левой панели выберите имя книги, которую вы хотите использовать (если левая панель скрыта, щелкните Вид > Обозреватель проекта чтобы показать это), затем дважды щелкните Эта рабочая тетрадь , чтобы открыть модуль, а затем скопируйте и вставьте следующий код VBA на правой панели. Смотрите скриншот:

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

4. Закройте редактор VBA и сохраните книгу как Excel Macro-Enabled Workbook как показано на следующем скриншоте:

Теперь, когда вы в следующий раз откроете книгу, нажмите Включить контент, и он сразу перейдет на ваш конкретный рабочий лист. Это предупреждение не будет отображаться в более позднем процессе открытия, и ваш конкретный рабочий лист всегда будет открываться первым каждый раз.

Автоматически открывать конкретную книгу при включении Excel с помощью Kutools for Excel

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

Если вы установили Kutools for Excel, просто нужно добавить книгу в Автоматически открывать эти листы в следующий раз list, то при каждом открытии Excel книга открывается одновременно .:

После бесплатная установка Kutools for Excel, сделайте следующее:

1. Откройте используемую книгу и щелкните Kutools Plus> Workbook > Автоматически открывать эти книги в следующий раз. см. снимок экрана:

2. В появившемся диалоговом окне проверьте книгу и щелкните Ok. Затем, пока вы включаете Excel, открывается книга.

Наконечник: Если вам не нужно открывать ее в следующий раз, снимите флажок с книги в диалоговом окне, если вам больше не нужно открывать ее автоматически, выберите ее и нажмите Очистить чтобы удалить его из списка диалога.

Автоматически открывать книги при включении Excel в следующий раз

Добавление книг в папку избранного с помощью вкладки Office

Если вы просто хотите щелкнуть, найти определенные книги и открыть их, когда вам нужно, вы можете бесплатно установить Office Tab и добавьте книги в Избранные папку.

Удивительный! Использование эффективных вкладок в Excel, таких как Chrome, Firefox и Safari!

Экономьте 50% своего времени и сокращайте тысячи щелчков мышью каждый день!

После бесплатной установки вкладки Office выполните следующие действия:

Откройте книги, которые нужно добавить в избранное, и нажмите Office Tab > Мои Избранные > Добавить все в эту группу. Смотрите скриншот:

Теперь все книги добавлены в папку «Избранное» и нажмите Office Tab > Мои Избранные стрелкой вниз чтобы выбрать книгу для открытия, если вам нужно, и если вы хотите открыть все это, нажмите Открыть эту группу.

Открытие листа Excel нажатием кнопки
Помогите очень нужно сделать на форме кнопку по нажатию на которую открывался бы лист excel. За.

Активация нужного рабочего листа
Добрый день! Господа! Нужна ваша помощь, вот код: Dim exсеl_арр Аs Оbjесt Dim excel_sheet As.

Открытие листа excel через кнопку
Разобраться не могу. Множество форумов прочитал, нужной информации не нашел. 1. Необходимо через.

Запуск макроса (написанного для актив. нужного листа) с др. листа (сложно)
Подскажите пожалуйста, есть большие макросы которые работают на активном листе, существует какой-то.

Решение

Всё так. Только я, пока, чайник и совсем недавно начал изучать язык программирования, а тут ещё по работе нужно было. Короче получилось, но открывает не из всех папок. С некоторых папок выдаёт ошибку, что нету доступа. Если знаете в чем проблема, отпишите пожалуйста. А пока, очень благодарен за помощь.

Добавлено через 23 минуты
В принципе разобрался с открытием, но тут проблема дальше

Выдаёт ошибку и что хочешь делай. Подскажите пожалуйста как активизировать тот лист и работать в нём (я так понимаю, нужно WorkSheets сделать активным, а не всю книгу) . Или ещё попроще, может после открытия книги, можно как то запустить макрос написанный уже в Excel, а там уже на много проще? Я очень прошу, помогите с задачкой: 1) та что нужно, книга открылась. 2) Нужно скопировать с этой книги диапазон ячеек 3) вставить в другой файл ексель этот диапазон.
Ну честно, очень нужно. "C:\111\AIC_SIP" & AIC_SIP, , , , 111, 11 '111 это пароль на открытие файла, 11 это пароль на изменеие нестыковка
а это читали:
'111 это пароль на открытие файла, 11 это пароль на изменеие
Вы что тоже создали файл с такими паролями?? плагиат какой-то, деньги автору пароля. )) Так открывается с этими паролями и без них. Загвоздка в том, что я дальше хочу выделить какой-то диапазон ячеек и копировать их, а мне выдает ошибку на: Range ("A8:C7").Select Ощущение, что книга "AIC_SIP" активна (потому что окрыта), а Лист1 не активный и не хочет с ним контачить.
Спасибо что отозвались (ещё раз)

Решение

Ребята, подскажите как открывается книга Excel 2003 c указанного места.
Наперед СПАСИБО. в переди пробуйте добавлять oExcel.
то есть как Вы здесь обращались:
Я уже на пике восторга
Получилось, как Вы сказали. Вот так

Это для примера, может комуто и понадобится.
Но всегда есть но. Дальше у меня куча строк с заданием (макрос короче написан). Мне что, перед каждой командой ставить oExcel?

Добавлено через 9 минут
Всё. Получилось. Строка

сделала свою работу. А Вам, Ципихович Эндрю, очень БОЛЬШОЕ СПАСИБО за помощь. если обращаетесь к этому обекту тогда КОНЕЧНО перед каждой командой ставить oExcel. С ВБ 6.0 закончил. Перекинулся на ВБ .Нет 2010 (по работе надо). Никак не получается с таким кодом->
После запуска в конце строки 27 выдаёт ошибку ----Object variable or With block variable not set.---
Также в 29 строке Range Ошибка 1 "System.Data.Range" в этом контексте недоступен, так как является "Friend". Ничего не помогает. Не получается у меня сортировка. Уже кучу сайтов перелазил - не могу разобраться.

Как задать соответствие одних значений, одного листа Excel, значениям другого листа Excel
Есть лист Excel ,значения в нем постоянны и находятся на одном месте (в одном столбце и в одной.

Активация листа
Доброго времени суток форумчане. Помогите заставить работать ниже приведенный код. Сразу уточнюсь.

активация листа по значению ComboBox
Здравствуйте, столкнулся с проблемой как перейти на лист=ComboBox.value? Workbooks.Open.

Поиск нужного листа и затем уже в листе
Всем доброго времени. Прошу помощи при решении следующей задачи. Есть книга с 20 (может быть как.

Считать данные с листа EXCEL в Listview. Выбор листа в Combobox
Как считать с листа Excel - где его имя - выбранное значение из combobox. Если я правильно понял то.

При создании нового листа произвести проверку на существование вводимого имени листа в текущей книге EXCEL
При создании нового листа, произвести проверку на существование вводимого имени листа в текущей.

Читайте также: