Как скопировать значение поля со списком в активную ячейку в 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 для приложений, и выключить режим конструктора на вкладке «Разработчик».
С этого момента, при выборе значения из поля со списком, эта выбранная запись будет автоматически отображаться в активной ячейке.
Статьи по теме:
- Как отобразить формат даты в выводе поля со списком в Excel?
- Как скрыть или показать командную кнопку на основе указанного значения ячейки в Excel?
- Как открыть конкретный рабочий лист по выбранному значению поля со списком в Excel?
- Как предотвратить или отключить ввод текста в поле со списком в Excel?
- Как выйти из поля со списком, чтобы выбрать конкретную ячейку в Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!