Как да попълня разгъващ се списък с определени данни при отворена работна книга?
Обикновено можете да попълните разгъващ се списък (ActiveX Control) с определен диапазон от клетъчни данни, като въведете препратките към клетките в полето ListFillRange на свойствата на разгъващия се поле. Ако искате да попълните разгъващ се списък с определени данни директно, без ръчно да указвате неговите свойства, методът в тази статия може да ви помогне.
Попълнете разгъващ се списък с посочени данни с VBA код
Попълнете разгъващ се списък с посочени данни с VBA код
Този метод може да ви помогне да попълните разгъващ се списък с определени данни директно при отворена работна книга. Моля, направете следното.
1. Натисни Друг + F11 клавиши едновременно, за да отворите Microsoft Visual Basic за приложения прозорец.
2. В Microsoft Visual Basic за приложения прозорец, щракнете двукратно Тази работна книга в левия панел, за да отворите Тази работна книга редактор на код. След това копирайте по-долу VBA кода в него. Вижте екранна снимка:
VBA код: попълване на разгъващ се списък с посочени данни в отворена работна книга
Private Sub Workbook_Open()
'Updated by Extendoffice 2018/1/30
With Sheet1.ComboBox1
.Clear
.AddItem "Select a Fruit"
.AddItem "Apple"
.AddItem "Banana"
.AddItem "Peach"
.AddItem "Pineapple"
.AddItem "Watermelon"
.Text = .List(0)
End With
End Sub
бележки:
3. Запазете работната книга като Работна книга с активирани макроси на Excel форматирайте и го затворете.
4. Отворете отново работната книга, ще видите, че комбинираното поле е попълнено с определени данни, както е показано на екранната снимка по-долу:
Още по темата:
- Как да копирам стойност на Combo Box в активна клетка в Excel?
- Как да покажа формат на датата в изхода на комбинираното поле в Excel?
- Как да предотвратите или деактивирате въвеждането в разгъващ се списък в Excel?
- Как да попълня Combo Box с данни от Named Range в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!