Как да копирам стойност на Combo Box в активна клетка в Excel?
В някои случаи може да се наложи да копирате избраната стойност от разгъващ се списък в активната клетка. Обикновено трябва да влезете в комбинираното поле, да го копирате и поставите ръчно в активната клетка. Тази статия представя удобен метод за автоматично актуализиране на активната клетка, докато избирате стойности в разгъващ се списък.
Копирайте стойността на Combo Box в активна клетка с VBA код
VBA 1: Копирайте стойността на разгъващия се списък в активната клетка чрез Command
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 е името на Combo Box, от който ще копирате стойност. Моля, сменете ги според нуждите си.
4. Натисни Друг + Q ключове за затваряне на Microsoft Visual Basic за приложения прозорец.
От сега нататък, когато трябва да копирате стойността на разгъващия се списък в активната клетка, моля, просто изберете клетката, след което щракнете върху командния бутон, за да го направите.
VBA 2: Автоматично копиране на стойността на комбинираното поле в активната клетка
Кодът VBA по-долу може да ви помогне автоматично да актуализирате активната клетка, докато избирате стойности в разгъващ се списък. Можете да направите както следва.
1. Уверете се, че Режим на проектиране е включен под Софтуерен Инженер раздела.
2. Щракнете с десния бутон върху комбинираното поле, от което ще копирате стойност, след което щракнете Преглед на кода от менюто с десен бутон. Вижте екранна снимка:
3. При изскачане Microsoft Visual Basic за приложения прозорец, заменете оригиналния код в код прозорец със следния VBA код.
VBA код: Копирайте стойността на комбинираното поле в активната клетка
Private Sub ComboBox1_Change()
ActiveCell.Value = Me.ComboBox1.Value
End Sub
Забележка: В кода ComboBox1 е името на Combo Box, от който ще копирате стойност.
4. Натисни Друг + Q клавиши, за да затворите прозореца на Microsoft Visual Basic за приложения и изключете режима на проектиране в раздела Разработчик.
Отсега нататък, когато изберете стойност от разгъващия се списък, този избран запис ще се показва автоматично в активната клетка.
Свързани статии:
- Как да покажа формат на датата в изхода на комбинираното поле в Excel?
- Как да скриете или покажете команден бутон въз основа на определена стойност на клетка в Excel?
- Как да отворите конкретен работен лист чрез избраната стойност на комбинирано поле в Excel?
- Как да предотвратите или деактивирате въвеждането в разгъващ се списък в Excel?
- Как да изберете табулация от комбинираното поле, за да изберете конкретна клетка в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!