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

or

Как заполнить Combo Box данными из Named Range в Excel?

Вы можете указать поле Combo (ActiveX Control) с данными определенного диапазона, добавив диапазон в свойства ListFillRange в поле со списком. Но знаете ли вы, как заполнить поле Combo данными с именованным диапазоном в Excel? Например, вы указали диапазон ячеек на вашем листе, и теперь вам нужно указать это имя диапазона в поле Combo. При выборе названия диапазона в одном комбинированном поле все значения ячеек в этом именованном диапазоне будут автоматически заполнены в другом поле Combo. В этой статье будет представлен метод VBA для решения этой проблемы.

Заполните поле Combo с данными именованного диапазона с кодом VBA


Легко вставлять или удалять несколько флажков в Excel:

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

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

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

Заполните поле Combo с данными именованного диапазона с кодом VBA


Пожалуйста, сделайте следующее, чтобы заполнить поле Combo с данными именованного диапазона в Excel.

1. Выберите все заголовки (в этом случае, я выбрал A1: E1) на вашем листе, а затем введите имя в Имя Box как показано ниже.

2. Выберите данные каждого столбца, кроме его заголовка, а затем введите столбец отдельно в поле Имя Box, Смотрите скриншот:

В этом случае я назвал диапазон A2: A8, B2: B8, C2: C8, D2: D8 и E2: E8 как Date, Shop, Items, Sales и Weekday отдельно.

3. Затем вставьте поле Combo, щелкнув разработчик > Вставить > Комбинированный блок (ActiveX Control), Смотрите скриншот:

4. Повторите шаг 3, чтобы вставить еще один поле Combo в рабочий лист.

5. Щелкните правой кнопкой мыши вкладку листа, а затем щелкните Просмотреть код из контекстного меню. Смотрите скриншот:

6. В открытии Microsoft Visual Basic для приложений окна, скопируйте и вставьте ниже кода VBA в окно кода.

Код VBA: заполнить поле Combo с данными именованного диапазона

Private Sub ComboBox1_Change()
'Updated by Extendoffice 2018/1/30
    Dim xRg As Range
    Set xRg = Range(Me.ComboBox1.Text)
    Me.ComboBox2.List = Application.WorksheetFunction.Transpose(xRg)
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim xRg As Range
    Set xRg = Range("Headers")
    Me.ComboBox1.List = Application.WorksheetFunction.Transpose(xRg)
End Sub

Внимание: В коде ComboBox1 - это имя поля со списком, в котором вы будете перечислять все имена диапазонов внутри, а ComboBox2 - это имя поля со списком, в котором данные указанного именованного диапазона будут заполнены внутри. «Заголовки» - это имя диапазона, которое вы создали в step1.

7. Выключите режим дизайна, нажав разработчик > Режим проектирования.

8. Нажмите на любую ячейку на листе, чтобы активировать код. Нажмите кнопку со стрелкой в ​​первом поле со списком, вы увидите, что все именованные диапазоны перечислены внутри. Смотрите скриншот:

При выборе именованного диапазона в первом поле со списком соответствующие данные ячейки будут заполнены во втором поле со списком, как показано ниже:


Статьи по теме:


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.

Be the first to comment.