Как перемещаться между листами с помощью раскрывающегося списка в Excel?
Предположим, у вас есть книга, содержащая несколько листов, теперь вам нужно создать раскрывающийся список или поле со списком, в котором перечислены все имена листов, и когда вы выбираете одно имя листа из раскрывающегося списка, он немедленно переходит на этот лист. В этой статье я расскажу, как перемещаться между листами с помощью раскрывающегося списка в Excel.
Перемещайтесь между листами с помощью раскрывающегося списка в Excel
Перемещайтесь между листами с помощью раскрывающегося списка в Excel
Чтобы перейти к каждому выбранному листу с помощью раскрывающегося списка, выполните следующие действия:
1. Нажмите Застройщик > Вставить > Поле со списком (элемент управления ActiveX), см. снимок экрана:
2. Затем перетащите мышь, чтобы нарисовать поле со списком, а затем щелкните его правой кнопкой мыши, выберите Просмотреть код из контекстного меню см. снимок экрана:
3. В открытом Microsoft Visual Basic для приложений окна, скопируйте и вставьте следующий код, чтобы заменить исходный код, см. снимок экрана:
Код 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 for Excel's Создать список имен листов Утилита, вы можете быстро перечислить все имена рабочих листов на новом листе с гиперссылками или кнопками макросов, а затем вы можете перемещаться между ними по своему усмотрению.
Kutools for Excel: с более чем 300 удобными надстройками Excel, которые можно попробовать бесплатно без ограничений в течение 30 дней. Загрузите и бесплатную пробную версию прямо сейчас! |
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!