KutoolsforOffice — Одно решение — пять мощных инструментов.Меньше усилий — больше результата.

Как быстро переключаться между двумя листами туда и обратно в Excel?

АвторСяоянДата изменения

Предположим, у вас есть книга с большим количеством листов, но зачастую вам нужно перемещаться только между двумя определёнными несмежными листами, например, Лист1 и Лист 30. Как быстро и легко переключаться между этими двумя несмежными листами в Excel?

Переключение между двумя несмежными листами с помощью кода VBA

Переключение между двумя несмежными листами с помощью Kutools для Excel


Переключение между двумя несмежными листами с помощью кода VBA

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

1. Удерживая клавиши ALT + F11, откройте окно Microsoft Visual Basic для приложений.

2. Затем дважды щёлкните по элементу ЭтаКнига в Обозревателе проектов, чтобы открыть модуль (см. скриншот):

doc-toggle-two-sheets1

Примечание: если после открытия окна Обозреватель проектов не отображается, перейдите на вкладку Microsoft Visual Basic для приложений, выберите Вид и нажмите Обозреватель проектов, чтобы открыть его (см. скриншот):

doc-toggle-two-sheets5

3. Затем вставьте приведённый ниже код в окно Модуль.

VBA: переключение между двумя несмежными листами

Public LateWsName As String
'Update 20130830
Sub ToggleSheets()
If LateWsName <> "" Then
    Application.Sheets(LateWsName).Activate
End If
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
LateWsName = Sh.Name
End Sub

4. Затем последовательно щелкните два нужных вам листа (Лист1 и Лист30).

5. После этого нажмите клавишу F5, чтобы запустить этот код. При первом нажатии отобразится Лист 1, при повторном — произойдёт переключение на Лист 30. Таким образом, вы сможете легко переключаться между этими двумя листами туда и обратно, просто нажимая клавишу F5.


Переключение между двумя несмежными листами с помощью Kutools для Excel

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

Kutools для Excel включает более 300 удобных инструментов для Excel. Бесплатная пробная версия без ограничений на 30 дней. Получить сейчас.

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

1. Откройте нужную книгу, затем нажмите Kutools > Навигация.

2. Откроется панель Навигация, после чего перейдите на вкладку Листы.

doc-toggle-two-sheets3

3. Щёлкните два листа, между которыми нужно переключаться. После этого при нажатии кнопки doc-toggle-two-sheets4на панели Навигациябудет выполняться переключение между двумя последними выбранными листами.

Примечание: вы также можете переключаться между двумя листами из разных книг.

Нажмите, чтобы узнать больше об этом Навигация.


Связанные статьи:

Лучшие инструменты повышения продуктивности в Office

🤖KUTOOLS AI Помощник: Преобразуйте Анализ данных с помощью:Интеллектуального выполнения   |  Генерации кода|  Создания пользовательские формулы  |  Анализа данных и построения диаграмм|  Вызова Расширенные функции
Популярные функции:Поиск, выделение или Отметить дубликаты   |  Удалить пустые строки   |  Объединить столбцы или ячеек без потери данных   |  Округление без использования формул
Супер ПОИСК:VLookup по нескольким критериям  |  VLookup по нескольким значениям  |   VLookup по нескольким листам   |   Распознавание нечетких соответствий
Расширенный раскрывающийся список:Быстрое создание выпадающего списка   |  Зависимый выпадающий список   |  Выпадающий список с множественным выбором
Управление столбцами:Добавление заданного количества столбцов|Перемещение столбцов|Переключение видимости скрытых столбцов|Сравнение диапазонов и столбцов
Избранные функции:Сетка фокусировки   |  Просмотр дизайна   |Улучшенная строка формулы   | Управление рабочими книгами и листами   |  Библиотека ресурсов(автотекст)|  Выбор даты   |  Объединить листы  |  Шифрование/Расшифровать ячейки   | Отправка писем по списку   |  Супер фильтр   |   Специальный фильтр(Фильтр ячеек с жирным шрифтом/курсив/зачёркивание…) …
Лучшие наборы инструментов 15:12 Текстовыеинструменты(Добавить текст,Удалить определенные символы, …)|   50+Типыдиаграмм(Диаграмма Ганта, …)|   40+ Практические формулы(Рассчитать возраст на основе даты рождения, …)|   19 Инструментывставки(Вставить QR-код,Вставка изображения по пути, …)|   12 Инструментыпреобразования(Преобразовать в слова,Конвертация валют, …)|   7 Объединить и разделитьИнструменты(Расширенное объединение строк,Разделить ячейки, …)|… и многое другое
Используйте Kutools на предпочитаемом языке — поддержка английского, испанского, немецкого, французского, китайского и ещё 40+ языков!

Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…


Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу

  • Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
  • Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!

Все надстройки Kutools — один установщик

Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.

ExcelWordOutlookTabsPowerPoint
  • Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
  • Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
  • Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
  • 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
  • Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек