Как перейти к нужному листу в Excel?
Переход на нужный лист прост — достаточно щёлкнуть по его вкладке. Но что делать, если книга большая и содержит так много листов, что они не помещаются целиком на панели вкладок (как показано на снимке экрана ниже)? Как быстро найти и перейти на требуемый лист?
Переход на определённый лист с помощью правого щелчка
Переход на определённый лист с помощью VBA
Переход на определённый лист с помощью Kutools для Excel 
Проверка наличия имени листа с помощью Kutools для Excel
Переход на определённый лист с помощью правого щелчка
В Excel для перехода на нужный лист просто щёлкните по нему правой кнопкой мыши.
Установите курсор на маленькие стрелки в левом нижнем углу листа и щёлкните правой кнопкой мыши — появится контекстное меню с первыми 15 листами.
Если в книге более 15 листов, нажмите Другие листы, чтобы открыть диалоговое окно Активация. В этом окне отображаются все листы — просто прокрутите список, найдите нужный и щёлкните по нему, чтобы активировать.
Примечание: В Excel 2013 диалоговое окно Активация появляется сразу после щелчка правой кнопкой мыши по стрелкам в правом нижнем углу панели листов.
Если в книге слишком много листов, прокрутка — не самый удобный способ найти и перейти на нужный.
Переход на определённый лист с помощью VBA
Существует код VBA, который позволяет быстро найти и перейти к нужному листу в книге.
1. Нажмите клавиши Alt + F11 одновременно, и откроется окно Microsoft Visual Basic для приложений.
2. Щёлкните Вставка > Модуль, затем вставьте приведённый ниже код VBA в окно Модуль.
VBA: Переход на определённый лист
Sub GotoSheet()
'UpdatebyKutoolsforExcel20150916
Dim xRet As Variant
Dim xSht As Worksheet
xRet = Application.InputBox("Go to this sheet", "Kutools for Excel")
On Error Resume Next
If xRet = False Then Exit Sub
On Error GoTo 0
On Error Resume Next
Set xSht = Sheets(xRet)
If xSht Is Nothing Then Set xSht = Sheets(Val(xRet))
If xSht Is Nothing Then
MsgBox "This sheet does not exist", , "Kutools for Excel"
Else
xSht.Activate
End If
End Sub3. Щёлкните Выполнить или нажмите F5, чтобы запустить код. После этого откроется диалоговое окно Kutools для Excel. Введите в текстовое поле имя листа, который нужно найти и активировать. См. снимок экрана:
4. Нажмите ОК, и вы окажетесь на нужном листе.
Переход на определённый лист с помощью Kutools для Excel
С помощью Kutools для Excel можно получить список всех имён листов, найти нужное и перейти на соответствующий лист.
После бесплатной установкиKutools для Excelвыполните следующие действия:
1. Щёлкните KUTOOLS PLUS > Лист > Создать связующую таблицу. См. снимок экрана:
2. В появившемся диалоговом окне выполните следующие действия:
2)Укажите имя нового листа, который будет содержать все имена листов;
3)Выберите место для вставки нового листа;
4)Укажите, сколько столбцов использовать для размещения имён листов на одном листе
3. Нажмите Ок. Теперь создан новый лист со всеми именами листов: Список имен,
4. Нажмите Ctrl + F, чтобы открыть диалоговое окно Поиск и замена, затем введите имя нужного листа в поле Найти. См. снимок экрана:
5. Нажмите Найти все. Теперь нужный лист выделен (закройте диалоговое окно)Поиск и замена), и достаточно щёлкнуть по нему, чтобы перейти на этот лист.
Нажмите здесь, чтобы узнать больше о функции «Создать связующую таблицу».
Создание списка кликабельных имён листов
Проверка наличия имени листа с помощью Kutools для Excel
Если вы просто хотите проверить, существует ли в книге определённое имя листа, и не собираетесь на него переходить, я могу предложить вам один приём.
После бесплатной установкиKutools для Excelвыполните следующие действия:
1. Щёлкните KUTOOLS PLUS > Лист > Переименовать листы. См. снимок экрана:
2. Затем установите флажок Фильтр в появившемся диалоговом окне. См. снимок экрана:
3. Теперь введите имя листа, существование которого нужно проверить, в текстовое поле под надписью Фильтр. Если после ввода соответствующий лист появится в списке Лист, значит, такой лист существует в книге; в противном случае — нет.
Нажмите здесь, чтобы узнать больше о функции пакетного переименования листов в Kutools для Excel.
Лучшие инструменты повышения продуктивности в 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек