Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

Как открыть конкретный рабочий лист по выбранному значению Combo Box в Excel?

Предположим, что у вас есть Combo Box, который содержит все имена листов текущей книги, как показано ниже. И теперь вы хотите открыть конкретный рабочий лист при выборе соответствующего имени листа в Combo Box. Как его достичь? Метод в этой статье может помочь вам.

Откройте конкретный рабочий лист по выбранному значению Combo Box с кодом VBA


Легко перечислить все имена листов текущей книги в Excel:

Использование индекса листа в вашей книге помогает легко управлять листами. С Создать список имен листов полезности Kutools for Excel, вы можете легко создать индекс листа со всеми именами листов текущего списка книг внутри. И вы можете быстро перейти к определенному листу, просто щелкнув имя листа на листе Index. См. Снимок экрана ниже:

Kutools for Excel: с более чем 200 удобными надстройками Excel, бесплатно попробовать без ограничений в 60-дни. Скачать и бесплатно пробную версию!

Вкладка «Office» Включите редактирование и просмотр с вкладками в Office и упростите свою работу ...
Kutools для Excel добавляет расширенные функции 300 в Excel и повышает производительность на 80%
  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Kutools работает с Office 2007-2019 и 365. Он поддерживает все языки и очень прост в установке и развертывании. Полнофункциональная 60-дневная бесплатная пробная версия.

arrow синий правый пузырь Откройте конкретный рабочий лист по выбранному значению Combo Box с кодом VBA


Следующий код VBA может помочь вам перейти на конкретный рабочий лист на основе выбора Combo Box в Excel. Пожалуйста, сделайте следующее.

Внимание: Если Combo Box не содержит имени листа на вашем листе, следуйте приведенному ниже подсказу, чтобы быстро добавить все имена листов в этот комбинированный блок. И если есть Combo Box, содержащий все имена листов, перейдите к шаг 1 непосредственно.

Чаевые: Вставьте кнопку Command 1 в рабочий лист, щелкните ее правой кнопкой мыши и выберите Просмотреть код из контекстного меню. Затем скопируйте и вставьте следующий код VBA в Код: окна и нажмите другой + Q для закрытия Microsoft Visual Basic для приложений окно. Щелкните по вставленной кнопке Command, затем все имена листов текущей книги будут автоматически добавлены в ComboBox1.

Код VBA: легко добавлять все имена листов в комбинированный блок

Private Sub CommandButton1_Click()
    Me.ComboBox1.Clear
    Dim strWs As String
    Dim i As Integer
    
    For i = 1 To ThisWorkbook.Sheets.Count
        Me.ComboBox1.AddItem Sheets(i).Name
    Next

End Sub

Если уже есть Combo Box, содержащий все имена листов, сделайте следующее.

1. Включите Режим проектирования под разработчик Tab.

2. Щелкните правой кнопкой мыши поле со списком с именами листов, затем нажмите Просмотреть код из контекстного меню.

doc combo box открыть рабочий лист 12png

3. Затем Microsoft Visual Basic для приложений появится окно, замените исходный код VBA в окне кода кодом ниже кода VBA.

Код VBA. Откройте конкретный рабочий лист по выбранному значению Combo Box

Private Sub ComboBox1_Change()
    Dim actWsh As String
    actWsh = ComboBox1.Text
    Worksheets(actWsh).Select
    
End Sub

Внимание: в коде ComboBox1 - это имя поля со списком, которое содержит имена листов.

4. нажмите другой + Q для закрытия Microsoft Visual Basic для приложений окна и выключите Режим проектирования под разработчик Tab.

Теперь, когда вы выбираете любое имя рабочего листа в Combo Box, соответствующий рабочий лист открывается автоматически.


arrow синий правый пузырьСтатьи по теме:


Kutools для Excel - лучший инструмент для повышения производительности в офисе Повысьте производительность на 80%

  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905

Вкладка «Office» предоставляет интерфейс с вкладками для Office и упрощает работу

  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ahmad Naser · 1 years ago
    hi
    i just removed my excel file by converting it from 2016 to 2010. Then converting back to 2016 and put new password.
  • To post as a guest, your comment is unpublished.
    yaseen muhammad · 2 years ago
    perfectly working.if your sheet name different then change the sheet name also.without changing the sheet name code does not working. thanks for sharing .