Как заполнить ComboBox пользовательской формы всеми именами листов в Excel?
В этой статье говорится о заполнении всех имен листов текущей книги в поле со списком пользовательской формы в Excel.
Заполните Userform ComboBox всеми именами листов с кодом VBA
Заполните Userform ComboBox всеми именами листов с кодом VBA
Следующий код VBA может помочь вам вставить все имена листов текущей книги в поле со списком пользовательской формы. Пожалуйста, сделайте следующее.
1. нажмите другой + F11 клавиши одновременно, чтобы открыть Microsoft Visual Basic для приложений окно.
2. в Microsoft Visual Basic для приложений окна, вставьте пользовательскую форму, нажав Вставить > Пользовательская форма как показано ниже.
3. Затем нарисуйте и вставьте поле со списком в пользовательскую форму. Смотрите скриншот:
4. Щелкните вставленное поле со списком правой кнопкой мыши и выберите Просмотреть код из контекстного меню. Смотрите скриншот:
5. В дебюте Microsoft Visual Basic для приложений окна, скопируйте и вставьте ниже код VBA, чтобы заменить исходный код в окне кода.
Код VBA: заполнение поля со списком пользовательской формы всеми именами листов текущей книги
Private Sub UserForm_Initialize()
Dim I As Long
Me.ComboBox1.Clear
For I = 1 To Sheets.Count
Me.ComboBox1.AddItem Sheets(I).Name
Next
Me.ComboBox1.Value = ActiveSheet.Name
End Sub
Внимание: В коде ComboBox1 - это имя вставленного поля со списком. Пожалуйста, измените его на свой собственный.
6. нажмите F5 ключ для запуска кода. В открывшейся пользовательской форме вы можете увидеть, что все имена листов текущей книги отображаются в поле со списком, как показано на скриншоте ниже:
Легко перечислить все имена листов в Excel
Ассоциация Создать список имен листов полезности Kutools for Excel может помочь легко перечислить все имена рабочих листов активной книги на новом листе в Excel. И вы можете перейти к соответствующему листу напрямую, щелкнув имя листа, как показано на скриншоте ниже.
Скачайте и попробуйте прямо сейчас! (30-дневный бесплатный пробный период)
Статьи по теме:
- Как скопировать значение поля со списком в активную ячейку в Excel?
- Как отобразить формат даты в выводе поля со списком в Excel?
- Как открыть конкретный рабочий лист по выбранному значению поля со списком в Excel?
- Как предотвратить или отключить ввод текста в поле со списком в Excel?
- Как выйти из поля со списком, чтобы выбрать конкретную ячейку в Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!