Как скопировать значение поля со списком в активную ячейку в Excel?
В некоторых случаях вам может понадобиться скопировать выбранное значение из поля со списком в активную ячейку. Обычно для этого нужно зайти в поле со списком, скопировать значение и вручную вставить его в активную ячейку. В этой статье представлен удобный метод автоматического обновления активной ячейки при выборе значений в поле со списком.
Копирование значения поля со списком в активную ячейку с помощью кода VBA
VBA 1: Копирование значения поля со списком в активную ячейку через кнопку команды
VBA 2: Автоматическое копирование значения поля со списком в активную ячейку
Копирование значения поля со списком в активную ячейку с помощью кода VBA
Приведенные ниже коды VBA могут помочь вам автоматически копировать значение поля со списком в активную ячейку. Пожалуйста, действуйте следующим образом.
VBA 1: Копирование значения поля со списком в активную ячейку через кнопку команды
1. Сначала вам нужно вставить кнопку команды на лист, как показано на скриншоте ниже.
2. Щелкните правой кнопкой мыши по кнопке команды, затем выберите Закрепить панель из контекстного меню. Смотрите скриншот:
3. В появившемся окне Microsoft Visual Basic for Applications замените исходный код в окне Код на следующий код VBA.
Код VBA: Копирование значения поля со списком в активную ячейку
Private Sub CommandButton1_Click()
ActiveCell.Value = Me.ComboBox1.Text
End Sub
Примечание: В коде CommandButton1 — это имя вставленной кнопки команды, а ComboBox1 — это имя поля со списком, из которого вы будете копировать значение. Пожалуйста, измените их по необходимости.
4. Нажмите клавиши Alt + Q, чтобы закрыть окно Microsoft Visual Basic for Applications.
Теперь, когда вам нужно скопировать значение поля со списком в активную ячейку, просто выберите ячейку, затем нажмите кнопку команды, чтобы выполнить задачу.
VBA 2: Автоматическое копирование значения поля со списком в активную ячейку
Следующий код VBA поможет вам автоматически обновлять активную ячейку при выборе значений в поле со списком. Вы можете сделать следующее.
1. Убедитесь, что режим конструктора включен на вкладке Разработчик.
2. Щелкните правой кнопкой мыши по полю со списком, из которого вы хотите скопировать значение, затем выберите Закрепить панель из контекстного меню. Смотрите скриншот:
3. В появившемся окне Microsoft Visual Basic for Applications замените исходный код в окне Код на следующий код VBA.
Код VBA: Копирование значения поля со списком в активную ячейку
Private Sub ComboBox1_Change()
ActiveCell.Value = Me.ComboBox1.Value
End Sub
Примечание: В коде ComboBox1 — это имя поля со списком, из которого вы будете копировать значение.
4. Нажмите клавиши Alt + Q, чтобы закрыть окно Microsoft Visual Basic for Applications, и отключите Режим конструктора на вкладке Разработчик.
Теперь, при выборе значения из поля со списком, выбранная запись будет автоматически отображаться в активной ячейке.
Связанные статьи:
- Как отобразить формат даты в выводе поля со списком в Excel?
- Как скрыть или показать кнопку команды на основе указанного значения ячейки в Excel?
- Как открыть определенный лист по выбранному значению поля со списком в Excel?
- Как предотвратить или отключить ввод текста в поле со списком в Excel?
- Как выйти из поля со списком с помощью табуляции для выбора определенной ячейки в Excel?
Лучшие инструменты для повышения продуктивности в Office
Повысьте свои навыки работы в Excel с помощью Kutools для Excel и ощутите эффективность на новом уровне. Kutools для Excel предлагает более300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы выбрать функцию, которая вам нужнее всего...
Office Tab добавляет вкладки в Office и делает вашу работу намного проще
- Включите режим вкладок для редактирования и чтения в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна вместо новых отдельных окон.
- Увеличьте свою продуктивность на50% и уменьшите количество щелчков мышью на сотни ежедневно!
Все надстройки Kutools. Один установщик
Пакет Kutools for Office включает надстройки для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro — идеально для команд, работающих в разных приложениях Office.





- Комплексный набор — надстройки для Excel, Word, Outlook и PowerPoint плюс Office Tab Pro
- Один установщик, одна лицензия — настройка занимает считанные минуты (MSI-совместимо)
- Совместная работа — максимальная эффективность между приложениями Office
- 30-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек