Перейти до основного матеріалу

Як скопіювати значення Combo Box в активну комірку в Excel?

Автор: Силувій Остання зміна: 2024-10-30

У деяких випадках вам може знадобитися скопіювати вибране значення із поля зі списком в активну комірку. Зазвичай вам потрібно потрапити у поле зі списком, скопіювати та вставити його в активну комірку вручну. У цій статті представлений зручний метод автоматичного оновлення активної комірки під час вибору значень у поле зі списком.

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

VBA 1: Скопіюйте значення комбінованого поля в активну комірку за допомогою команди
VBA 2: Автоматичне копіювання значення комбінованого поля в активну комірку


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

Наведені нижче коди VBA можуть допомогти вам автоматично скопіювати значення комбінованого поля в активну комірку. Будь ласка, виконайте наступне.

VBA 1: Скопіюйте значення комбінованого поля в активну комірку за допомогою командної кнопки

1. По-перше, вам потрібно вставити на робочий аркуш кнопку команди, як показано на знімку екрана нижче.

Знімок екрана, на якому показано кнопку команди в Excel для копіювання значень поля зі списком

2. Клацніть правою кнопкою миші командну кнопку, а потім натисніть Переглянути код з меню правої клавіші миші. Дивіться знімок екрана:

Знімок екрана меню, яке відкривається правою кнопкою миші для командної кнопки в Excel для доступу до параметра «Переглянути код».

3. У спливаючому Microsoft Visual Basic для додатків вікно, замініть оригінальний код у вікні коду на код VBA, наведений нижче.

Код VBA: Скопіюйте значення комбінованого поля в активну комірку

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

Примітка:: У коді CommandButton1 - це назва вставленої командної кнопки, а ComboBox1 - це ім’я поля зі списком, з якого ви скопіюєте значення. Будь ласка, змініть їх, як вам потрібно.

4 Натисніть кнопку інший + Q клавіші, щоб закрити Microsoft Visual Basic для додатків вікна.

Відтепер, коли вам потрібно скопіювати значення комбінованого поля в активну комірку, просто виберіть клітинку, а потім натисніть кнопку команди, щоб зробити це.

Знімок екрана, на якому показано результат копіювання значення поля зі списком до активної клітинки в Excel

VBA 2: Автоматичне копіювання значення комбінованого поля в активну комірку

Наведений нижче код VBA може допомогти вам автоматично оновити активну комірку під час вибору значень у поле зі списком. Ви можете зробити наступне.

1 Переконайтеся, що Режим дизайну ввімкнено під Розробник .

2. Клацніть правою кнопкою миші поле Combo Box, з якого ви скопіюєте значення, а потім клацніть Переглянути код з меню правої клавіші миші. Дивіться знімок екрана:

Знімок екрана меню, яке відкривається правою кнопкою миші у полі зі списком у Excel, щоб отримати доступ до параметра «Переглянути код».

3. У спливаючому Microsoft Visual Basic для додатків вікно, замініть оригінальний код у код вікно з наведеним нижче кодом VBA.

Код VBA: Скопіюйте значення комбінованого поля в активну комірку

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

Примітка:: У коді ComboBox1 - це ім'я поля зі списком, з якого ви скопіюєте значення.

4 Натисніть кнопку інший + Q клавіші, щоб закрити вікно Microsoft Visual Basic for Applications та вимкнути режим проектування на вкладці Розробник.

Відтепер, при виборі значення зі списку, цей вибраний запис автоматично відображатиметься в активній комірці.


Статті по темі:

Найкращі інструменти продуктивності офісу

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

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


Office Tab Надає інтерфейс із вкладками в Office і значно полегшує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!