Как скопировать значение поля со списком в активную ячейку в 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?