Перейти к основному содержанию

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

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

Скопируйте значение поля со списком в активную ячейку с кодом VBA

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


Скопируйте значение поля со списком в активную ячейку с кодом VBA

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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


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

Лучшие инструменты для офисной работы

Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

вкладка kte 201905


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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Kalau sel aktifnya ditentuka, seperti misalnya D7, bagaimana code nya?
Terima Kasih
This comment was minimized by the moderator on the site
maksud saya, code vba berikut, untuk cel aktif yang randomKode VBA: Salin nilai Combo Box ke sel aktif
Private Sub ComboBox1_Change()
ActiveCell.Value = Me.ComboBox1.Value
End Sub

kalau cel aktifnya ingin di tentukan misalnya text dari combo box tersebut ingin berada di cell D7, bagaimana merubah code vba nyaterima kasih
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations