Списъчното поле във VBA е списък, който е присвоен на променлива и списъкът има различни входове за избор, от списъчното поле можем да избираме няколко опции наведнъж, списъчното поле може да бъде направено към потребителска форма в Excel VBA, като изберете списъка и като го изчертаем върху потребителската форма за списъчно поле, имаме именуван диапазон, който има определени стойности, предоставени за избор в списъчно поле.
Какво представлява списъчното поле в Excel VBA?
Списъкът е списък, от който потребителят може да избере елемент. Списъкът в Excel VBA може да се използва, ако искате да покажете списък със стойности, от които потребителите могат да избират.
Как да създам списъчно поле в Excel?
За да създадете полето със списък в работен лист на Excel, изпълнете следните стъпки:
Първо, трябва да активирате раздела за програмисти, за да превъзхождате видимото на лентата, за да можете да стигнете до контролните команди VBA и ActiveX. За да получите раздела за програмисти, отворете диалоговия прозорец Опции на Excel , щракнете върху Персонализиране на лентата в Excel и поставете отметка в квадратчето за програмисти.
- Кликнете върху лентата на Excel, след това изберете раздела Developer и след това щракнете върху Insert, след това щракнете върху контрола Box Box, за да вмъкнете новото поле със списък в работния лист на Excel.
- След това нарисувайте правоъгълник в работния лист на Excel, за да създадете списъчното поле в Excel.
- Докато избирате List Boxin excel, щракнете върху раздела за програмисти и изберете Properties. Ще се отвори прозорецът Свойства.
- В прозореца Свойства за настройката Списък за попълване на списъка въведете Дни - наименуваният диапазон с делничните дни.
- Щракнете върху свойството Multi-Select и от падащия списък изберете 1-fmMultiSelectMulti, както е показано на екрана по-долу.
- Щракнете в свойството List Style и от падащия списък изберете 1-fmListStyleOption. Това добавя отметки вляво от елементите от списъка, както е показано на екрана по-долу.
- Затворете прозореца Properties.
Можете да затворите режима на проектиране, като щракнете върху режима на проектиране.
Как да създам списъчно поле в Excel VBA?
Можете да разгледате следния пример за по-добро разбиране на списъка на VBA:
Пример # 1
За да свържете това списъчно поле с клетка, щракнете с десния бутон върху списъчното поле (уверете се, че е избран режим на проектиране) и щракнете върху Properties. Попълнете B17 за свързана клетка, както е показано на екрана по-долу.
Името на списъка с месеци като месец отива към свойствата и избира диапазон на попълване на списъка като месец.
Данните ще се променят в клетки B17 клетки, когато промените избора си в списъчното поле, както е показано на екрана по-долу.
Пример 2 - Как да създам списък в потребителска форма?
- Отидете в раздела за програмисти и след това щракнете върху Visual Basic от кода или натиснете Alt + F11.
- Отидете в менюто за вмъкване, щракнете върху UserForm.
- Плъзнете полето Control List върху Userform от Toolbox.
- Щракнете двукратно върху UserForm и изберете събитието Userform, както е показано на екрана по-долу.
- Сега добавете следния код към процедурата между тях.
Private Sub UserForm_Initialize ()
ListBox1.AddItem “MBA”
ListBox1.AddItem “MCA”
ListBox1.AddItem “MSC”
ListBox1.AddItem “MECS”
ListBox1.AddItem „CA“
Крайна под
- Сега натиснете „F5“, за да стартирате кода.
Пример # 3 - Как да добавите динамичен контрол на списъчно поле
Добавете динамичен контрол на списъчно поле върху потребителската форма, използвайки VBA.
- Добавете команден бутон върху потребителската форма от кутията с инструменти.
- Щракнете с десния бутон върху командния бутон, щракнете върху свойства.
- Променете надписа на командния бутон на „Create_Listbox“
- Щракнете двукратно върху командния бутон
- Сега той показва следния код.
Частен Sub CommandButton1_Click ()
Крайна под
- Обадете се на процедурата по-долу, наречена „Add_Dynamic_Listbox“ и намерете процедурата по-долу, която да стартирате.
Sub Add_Dynamic_Listbox ()
„Добавяне на динамично списъчно поле и присвояване на обект„ LstBx “
Задайте LstBx = UserForm3.Controls.Add (“Forms.ListBox.1”)
„Позиция в списъка
LstBx.Left = 20
LstBx.Top = 10
Крайна под
- Сега щракнете върху F5, за да стартирате макроса.
Как да добавяте елементи към контрола на списъчно поле в VBA?
Частна подпозиция _Items _To_LstBox ()
ListBox1.AddItem “Елемент 1”
ListBox1.AddItem “Елемент 2”
ListBox1.AddItem „Артикул 3“
ListBox1.AddItem “Елемент 4”
ListBox1.AddItem “Елемент 5”
Крайна под
Как да изчистите елементи от контрола на списъчното поле с помощта на VBA?
Под Clr_LstBx ()
UserForm3.ListBox1.Clear
Крайна под
Пример # 4
Да предположим, че разполагаме с данни за продажбите и искаме подробности за продажбите на графичния потребителски интерфейс, като изберете избор на елемент от списъчното поле. След това трябва да променим избраната индексна клетка като връзка на клетка и да приложим формулата VLOOKUP, за да извлечем подробностите за продажбите, както е показано на екранните снимки по-долу.
Неща, които трябва да запомните за списъчното поле в Excel VBA
Списъчно поле в Excel може да се използва за избор на множество елементи от него.
