Note: The other languages of the website are Google-translated. Back to English

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

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

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

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


Скопіюйте значення Combo Box в активну комірку з кодом 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 для додатків вікна.

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

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

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

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

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

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 для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (2)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Калау сел актіфня дітентука, сеперти місалня D7, багаймана код ня?
Теріма Касіх
Цей коментар був мінімізований модератором на сайті
maksud saya, code vba berikut, untuk cel aktif yang randomKode VBA: Salin nilai Combo Box ke sel actif
Приватний підряд ComboBox1_Change()
ActiveCell.Value = Me.ComboBox1.Value
End Sub

kalau cel aktifnya ingin di tentukan misalnya text dari combo box terse but ingin berada di cell D7, bagaimana merubah code vba nyterima kasih
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця