Как да използвате Combo Box на Excel (пълно ръководство)

Hugh West

16-10-2023 Макроси & Excel VBA
  • Споделя Това
Hugh West

Сайтът Комбинирана кутия е специална функция на Excel. Когато трябва да използваме списък с опции в Excel, използваме тази функция. В тази статия ще обсъдим Комбинирана кутия на Excel в подробности с подходяща илюстрация.

Изтегляне на работна тетрадка за практика

Изтеглете тази учебна тетрадка, за да се упражнявате, докато четете тази статия.

Използване на Combo Box.xlsm

Какво е Excel Combo Box?

Комбинирана кутия е падащ списък, базиран на комбинацията от определено текстово поле. От падащия списък можем да изберем желаната от нас опция. Също така можем да свържем клетка с този списък, която ще покаже серийния номер на избрания елемент. Excel Combo Box се предлага в от Excel 2007 към 365 .

Как да добавите Combo Box в Excel 2007/2010/2013/2016 или в по-актуални версии

В този раздел ще покажем основната процедура за добавяне на поле с комбинации в Excel. Следната процедура ще се прилага за всички версии на полето с комбинации в Excel.

За да добавим полето с комбинации, трябва да въведем Разработчик Обикновено Разработчик инструментът не е наличен в Лентата на Excel опции.

📌 Стъпки:

  • Отидете на Файл>> Опции . Опции на Excel тук се появява прозорец.
  • Изберете Персонализиране на лентата опция от лявата страна.
  • След това отидете в Основни раздели от Персонализиране на лентата колона.
  • Открийте Разработчик опция от списъка.
  • Поставете отметка в съответното поле на Разработчик опция.
  • Накрая натиснете OK .

  • Върнете се на листа.

Можем да видим Разработчик вече е на разположение.

  • Кликнете върху Разработчик таб.
  • Изберете Вмъкване на опция от Контроли група.

Опции на Вмъкване на Този прозорец показва две комбинирани полета от два различни типа.

  • Сега изберете някое от маркираните квадратчета.
  • След това поставете курсора в листа на желаното място.

Можем също така да персонализираме размера на полето за избор.

Как да добавите 2 вида Combo Box в Excel

Вече знаем, че има два вида кутии за избор. Те са-

  • Контроли на формуляра Combo Box и
  • ActiveX контроли Combo Box .

В следващия раздел ще разгледаме тези две полета за избор.

1. Добавяне на поле Combo за контрол на формуляра

В този раздел ще покажем как да добавите Контроли на формуляра Combo Box в Excel.

Имаме набор от данни с имената на дните от седмицата. Тук ще добавим Combo Box, който ще избира ден от падащия списък и ще показва номера на избора. Също така добавяме клетка, която ще показва името на избрания ден.

📌 Стъпки:

  • Първо, изберете полето с комбинации от Контроли на формуляра раздел.

  • Поставете полето с комбинации на желаното място в листа.

  • Натиснете десния бутон на мишката.
  • Изберете Контрол на формата опция от Контекстно меню .

  • Сайтът Обекти за форматиране се появява прозорец.
  • Изберете Контрол сега.

Въвеждането на стойностите в появилите се полета. В Входящ обхват , избираме диапазона, който съдържа стойностите на падащия списък.

Сайтът Клетъчна връзка се отнася до клетка, в която се показва серийният номер на селекцията.

Сайтът Падащи линии посочи колко опции ще се появят в падащия списък.

  • Накрая натиснете OK .
  • Сега щракнете върху стрелката надолу на падащото меню.

Списъкът с опции е показан тук.

  • Изберете опция от падащия списък.

Можем да видим, че 2 се показва в Клетка D5 . Тази клетка е свързана с падащия списък.

  • Сега допълнително искаме да покажем стойността на селекцията или името на избрания ден в определена клетка.
  • Прилагаме формула за това.
  • Поставете следната формула на Клетка E5 .
=INDEX(B5:B11,D5)

  • Натиснете бутона Въведете за да получите резултата.

Така че, пълният процес на Контроли на формуляра е показан тук.

Прочетете още: Списък на 10 най-често използвани обекти на Excel VBA (атрибути и примери)

2. Създаване на ActiveX Control Combo Box

В този раздел ще покажем как да създадем Контроли ActiveX Съществува допълнително улеснение, при което можем да използваме кода VBA в тази кутия.

В този раздел просто ще покажем резултата, като използваме полето за избор. Клетка D5 .

📌 Стъпки:

  • Първо, трябва да създадем Името Кликнете върху Формули След това изберете Определяне на името опция.

  • Сайтът Ново име ще се появи прозорец.
  • Въведете името на обхвата в полето Име кутия.
  • След това изберете диапазона в Отнася се за от листа на Excel. Накрая натиснете OK .

  • Сега вмъкнете поле за избор от Контроли ActiveX раздел.

  • Поставете това поле за избор до Клетка D5 .

  • Сега натиснете десния бутон на мишката.
  • Изберете Имоти опция от Контекстно меню .

  • Сайтът Имоти се появява прозорец.
  • Открийте LinkedCell и ListFillRange опции от Имоти прозорец.

Вмъкване на D5 като свързани cel и Ден като посочения обхват.

  • Сега деактивирайте Режим на проектиране от Контроли група.
  • След това щракнете върху стрелката надолу в полето за избор.

  • Списъкът е показан тук.
  • Изберете някоя от опциите.

Можем да видим, че денят се показва в Клетка D5 .

Подобни четива

  • Научете Excel VBA програмиране & макроси (безплатен урок - стъпка по стъпка)
  • Как да използвате функцията за въвеждане на VBA в Excel (2 примера)
  • 22 примера за макроси в Excel VBA
  • Как да използвате Excel VBA Userform (2 подходящи примера)
  • 20 практични съвета за кодиране за овладяване на Excel VBA

Excel VBA за създаване на динамичен и зависим Combo Box

Сега искаме да направим динамичен и зависим Контроли ActiveX комбо поле с помощта на макрос VBA в Excel.

Тук имаме две колони: Дни и Месеци. Тук ще въведем две изборни полета. Второто изборно поле ще зависи от първото изборно поле. Първо, ще изберем категорията в 1. и от полето 2. ще получим опциите в това поле.

📌 Стъпки:

  • Първо, отидете в Разработчик таб.
  • Кликнете върху Visual Basic опция от Код група.

  • След това ще се появи прозорецът VBA.
  • За да създадем динамичен и зависим комбо бокс, ще се нуждаем от Потребителски формуляр .
  • Изберете Потребителски формуляр опция от Вмъкване на таб.

  • Можем да видим Потребителски формуляр се появява с Кутия с инструменти .

  • Сега натиснете десния бутон на мишката, като държите курсора върху Потребителски формуляр .
  • Изберете Имоти опция от Контекстно меню .

  • От Имоти отидете в прозореца Заглавие Поставете име тук. Това е заглавието на Потребителски формуляр .

  • След това добавете Лейбъл и ComboBox от Кутия с инструменти .

  • Сега копирайте тези полета чрез Ctrl+C и ги поставете, като натиснете Ctrl+V .

  • Сега преместете курсора върху някоя от Етикети и натиснете десния бутон.
  • Изберете Имоти опция от Контекстно меню .

  • Сега променете името, цвета, размера и други елементи на шрифта от този Имоти прозорец.

  • След като променихме атрибутите, нашите Потребителска форма ще изглежда по следния начин.
  • Сега натиснете опцията Run от главния раздел.

  • Това е визията.

  • Сега щракнете два пъти върху Потребителски формуляр и влизаме в прозореца VBA, където ще напишем нашия код.
  • В прозореца отидете от дясната страна и щракнете върху стрелката.
  • Ще изберем Активиране на за да изберете списъка.

  • В прозореца ще се добави код за активиране на Потребителски формуляр .

  • Премахване на кода на Потребителски формуляр код от прозореца VBA.
  • Сега копирайте и поставете друг код VBA в прозореца. 
 Private Sub UserForm_Activate() Dim D_Sheet As Worksheet Set D_Sheet = ThisWorkbook.Sheets("Dependent & Dynamic Combo Box") Dim N As Integer Me.ComboBox1.Clear For N = 1 To Application.WorksheetFunction.CountA(D_Sheet.Range("1:1")) Me.ComboBox1.AddItem D_Sheet.Cells(1, N).Value Next N End Sub

  • Когато кликнем върху стрелката надолу на Категория и вижте опциите.
  • Отново щракнете върху стрелката надолу на Опции Комбинирано поле.

Сайтът Опции е празен, но Категория полето за избор не е празно.

  • Отново кликнете два пъти върху ComboBox1 .

  • Копирайте друг код VBA и го поставете в прозореца. 
 Private Sub ComboBox1_Change() Dim D_Sheet As Worksheet Set D_Sheet = ThisWorkbook.Sheets("Dependent & Dynamic Combo Box") Dim N, M As Integer M = Application.WorksheetFunction.Match(Me.ComboBox1.Value, D_Sheet.Range("1:1"), 0) Me.ComboBox2.Clear For N = 2 To Application.WorksheetFunction.CountA(D_Sheet.Cells(1, M).EntireColumn) Me.ComboBox2.AddItem D_Sheet.Cells(N, M).Value Next N End Sub

  • Отново стартирайте VBA код, като натиснете бутона F5 бутон.

Можем да видим Опции сега работи. Това означава, че Опции е зависим от полето за избор.

  • Сега искаме да направим полето с комбинации динамично.
  • Добавяме още една колона към набора от данни.

  • Отново отидете в Потребителски формуляр .

И виждаме, че новата колона е добавена в полето за избор.

Прочетете още: Как да създадете Excel VBA UserForm (с подробни стъпки)

Как да премахнете Combo Box в Excel

В този раздел ще покажем как да премахнем полето с комбинации.

📌 Стъпки:

  • Първо ще кликнем върху Разработчик таб.
  • Разрешаване на Режим на проектиране .

  • Изберете полето с комбинации.

  • Сега натиснете бутона за изтриване от клавиатурата.

Виждаме, че полето с комбинации вече е изтрито от листа.

Заключение

В тази статия описахме всичко за полето Combo. Как да го вмъкнете, да го направите динамично и да го изтриете от листа на Excel. Надявам се, че това ще задоволи нуждите ви. Моля, разгледайте нашия уебсайт ExcelWIKI.com и дайте своите предложения в полето за коментари.

Предишна публикация Как да изчислите процента на загуба на тегло в Excel (5 метода)
Следваща публикация Как да центрирате текст в клетка в Excel (3 лесни метода)

Хю Уест е опитен обучител и анализатор на Excel с над 10 години опит в индустрията. Има бакалавърска степен по счетоводство и финанси и магистърска степен по бизнес администрация. Хю има страст към преподаването и е разработил уникален подход на преподаване, който е лесен за следване и разбиране. Неговите експертни познания по Excel са помогнали на хиляди студенти и професионалисти по целия свят да подобрят уменията си и да постигнат отлични резултати в кариерата си. Чрез своя блог Хю споделя знанията си със света, като предлага безплатни уроци за Excel и онлайн обучение, за да помогне на хората и фирмите да достигнат пълния си потенциал.