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

or

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

В некоторых случаях вам может потребоваться скопировать выбранное значение из Combo Box в активную ячейку. Обычно вам нужно попасть в Combo Box, скопировать и вставить его в активную ячейку вручную. В этой статье представлен удобный метод автоматического обновления активной ячейки при выборе значений в комбинированном поле.

Копировать значение Combo Box в активную ячейку с кодом VBA

VBA 1: скопировать значение поля combo box в активную ячейку через команду

VBA 2: автоматическое копирование поля со списком в активную ячейку

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

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


Нижеследующие коды VBA могут помочь вам автоматически копировать значение поля combo box в активную ячейку. Пожалуйста, сделайте следующее.

VBA 1: скопировать значение поля сокеты в активную ячейку с помощью кнопки Command

1. Во-первых, вам нужно вставить кнопку Command на рабочий лист, как показано ниже.

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

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

Код VBA: Копировать значение Combo Box в активную ячейку

Private Sub CommandButton1_Click()
   ActiveCell.Value = Me.ComboBox1.Text
End Sub

Внимание: В коде CommandButton1 - это имя вставленной командной кнопки, а ComboBox1 - это имя Combo Box, из которого вы будете копировать значение. Пожалуйста, измените их, как вам нужно.

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

С этого момента, когда вам нужно скопировать значение поля combo box в активную ячейку, просто выберите ячейку, затем нажмите кнопку «Command», чтобы сделать это.

VBA 2: автоматическое копирование поля со списком в активную ячейку

Следующий код VBA может помочь вам автоматически обновлять активную ячейку при выборе значений в комбинированном поле. Вы можете сделать следующее.

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

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

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

Код VBA: Копировать значение Combo Box в активную ячейку

Private Sub ComboBox1_Change()
  ActiveCell.Value = Me.ComboBox1.Value
End Sub

Внимание: В коде ComboBox1 - это имя Combo Box, из которого вы будете копировать значение.

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

С этого момента при выборе значения из 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.

Be the first to comment.