Как выбрать определённый лист в Excel на основе значения ячейки с другого листа?
Предположим, у вас есть проверка данных Раскрывающийся список, содержащая названия всех Имя листа, и вы хотите автоматически выбирать или переходить на соответствующий лист в зависимости от названия, выбранного в Раскрывающийся список. Что можно сделать в этом случае? А что, если нужно автоматически перейти на определённый лист после ввода его названия в заданную ячейку? В этой статье описаны несколько способов реализации этих задач.
Выбор определённого листа на основе выбора в Раскрывающийся список с помощью кода VBA
Выбор определённого листа на основе значения ячейки с помощью кода VBA
Простое создание оглавления листов и переход к нужному листу с помощью Kutools для Excel
Выбор определённого листа на основе выбора в Раскрывающийся список с помощью кода VBA
Например, раскрывающийся список находится в ячейке A2 листа Sheet8. Вы можете использовать приведённый ниже код VBA, чтобы автоматически переключаться на соответствующий лист при выборе его названия в этом раскрывающемся списке.
1. Нажмите Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. В окне Microsoft Visual Basic для приложений дважды щёлкните по названию листа (рабочего листа, содержащего раскрывающийся список, из которого вы будете выбирать названия листов) на левой панели, затем скопируйте и вставьте приведённый ниже код VBA в окно кода.
Код VBA: выбор определённого листа на основе выбора в Раскрывающийся список
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not (Application.Intersect(Range("A2"), Target) Is Nothing) Then _
ThisWorkbook.Sheets(Target.Value).Activate
End SubПримечание: вы можете заменить «A2» на нужную вам ячейку.
3. Нажмите одновременно клавиши Alt+Q, чтобы закрыть окно Microsoft Visual Basic для приложений.
Теперь при выборе названия листа в раскрывающемся списке на листе Sheet8 соответствующий рабочий лист будет автоматически активирован.
Раскройте магию Excel с помощью KUTOOLS AI
- Интеллектуальное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это доступно через простые команды.
- Пользовательские формулы: создавайте индивидуальные формулы для оптимизации рабочих процессов.
- Программирование на VBA: Пишите и внедряйте код VBA легко и без усилий.
- Анализ формул: Легко разбирайтесь даже в самых сложных формулах.
- Перевод текста: Ломайте языковые барьеры прямо в ваших таблицах.
Выбор определённого листа на основе значения ячейки с помощью кода VBA
Если вы хотите перейти на нужный лист, просто введя его название в ячейку A1 на листе Sheet1, воспользуйтесь приведённым ниже кодом VBA.
1. Нажмите Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. В окне Microsoft Visual Basic для приложений дважды щёлкните по названию листа (рабочего листа, на котором вы будете вводить название листа) на левой панели, затем скопируйте и вставьте приведённый ниже код VBA в окно кода. См. снимок экрана:
Код VBA: выбор определённого листа на основе значения ячейки
Sub ActivateSheetsByValue()
On Error Resume Next
ThisWorkbook.Sheets(Worksheets("Sheet1").Range("A1").Value).Activate
End Sub
3. Вернитесь на нужный лист, введите в ячейку A1 название листа, который требуется выбрать, перейдите в окно кода и нажмите клавишу F5 для запуска макроса.
Если ячейка A1 на листе Sheet1 содержит название листа «Sheet8», то после выполнения кода VBA произойдёт немедленный переход на этот лист.
Простое создание оглавления листов и переход к нужному листу с помощью Kutools для Excel
Если вы просто хотите быстро выбрать или перейти на нужный лист, воспользуйтесь утилитой Создать связующую таблицу из пакета Kutools для Excel. С её помощью вы легко создадите оглавление листов и сможете мгновенно перейти к любому из них — достаточно щёлкнуть по названию!
1. Выберите пункт KUTOOLS PLUS → Лист → Создать связующую таблицу. См. снимок экрана:
2. В диалоговом окне Создать связующую таблицу выберите опцию Создать гиперссылки в разделе Стиль, укажите название для оглавления листов в поле Имя связующей таблицы и выберите положение Перед всеми листами в параметре Вставить оглавление листов в раскрывающемся списке. Затем нажмите кнопку ОК.
Примечание: если установить флажок Создать кнопки и макросы, вы получите оглавление листов с кнопкой макроса. См. снимок экрана:
На листе Index просто щёлкните по нужному имени листа — и вы автоматически перейдёте на соответствующий лист.
Если вы хотите воспользоваться бесплатной пробной версией (30 дней) этой утилиты, нажмите, чтобы скачать её, а затем выполните операцию в соответствии с приведёнными выше шагами.
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал 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.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек