Як скопіювати значення 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 та вимкнути режим проектування на вкладці Розробник.
Відтепер, при виборі значення зі списку, цей вибраний запис автоматично відображатиметься в активній комірці.
Статті по темі:
- Як відобразити формат дати у виведеному списку в Excel?
- Як приховати або показати кнопку команди на основі вказаного значення комірки в Excel?
- Як відкрити певний аркуш за вибраним значенням поля зі списком у програмі Excel?
- Як запобігти або вимкнути введення тексту у списку в Excel?
- Як виділити вкладку зі списку, щоб вибрати конкретну комірку в Excel?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!