Как перемещаться между листами с помощью выпадающего списка в Excel?
Предположим, у вас есть книга, содержащая несколько листов, и теперь вам нужно создать выпадающий список или комбинированное поле, которое будет перечислять все названия листов. При выборе одного имени листа из выпадающего списка вы сразу переходите на этот лист. В этой статье я покажу, как перемещаться между листами с помощью выпадающего списка в Excel.
Перемещение между листами с помощью выпадающего списка в Excel
Перемещение между листами с помощью выпадающего списка в Excel
Чтобы перейти к каждому выбранному листу с помощью выпадающего списка, выполните следующие шаги:
1. Нажмите Разработчик > Вставить > Поле со списком (Элемент управления ActiveX), см. скриншот:
2. Затем перетащите мышью, чтобы нарисовать поле со списком, затем щелкните его правой кнопкой мыши и выберите Просмотр кода из контекстного меню, см. скриншот:
3. В открывшемся окне Microsoft Visual Basic for Applications скопируйте и вставьте следующий код, чтобы заменить исходный код, см. скриншот:
VBA-код: Перемещение между листами с помощью выпадающего списка
Private Sub ComboBox1_Change()
'Updateby Extendoffice
If ComboBox1.ListIndex > -1 Then Sheets(ComboBox1.Text).Select
End Sub
Private Sub ComboBox1_DropButtonClick()
Dim xSheet As Worksheet
On Error Resume Next
Application.ScreenUpdating = False
Application.EnableEvents = False
If ComboBox1.ListCount <> ThisWorkbook.Sheets.Count Then
ComboBox1.Clear
For Each xSheet In ThisWorkbook.Sheets
ComboBox1.AddItem xSheet.Name
Next xSheet
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Private Sub ComboBox1_GotFocus()
If ComboBox1.ListCount <> 0 Then ComboBox1.DropDown
End Sub
4. Затем сохраните и закройте это окно кода, а затем нажмите Режим конструктора, чтобы отключить режим конструктора. Теперь при выборе одного имени листа из поля со списком вы сразу перейдете на этот лист, см. скриншот:
Перемещение между листами с помощью гиперссылок или кнопок: С помощью утилиты Kutools для Excel «Создать связующую таблицу» вы можете быстро перечислить все имена рабочих листов в новом листе с гиперссылками или макросными кнопками, а затем перемещаться между ними по мере необходимости.
Kutools для Excel: более 300 удобных надстроек для Excel, бесплатно попробуйте без ограничений в течение 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-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек