ComboBox ve formulářích - Excel VBA

Úvodem do ComboBox

Cílem tohoto článku je ukázat jak ve formulářích využít ComboBox. Předpokladem je, že formulář již máte vytvořený a jen do něj potřebujete umístit ComboBox, který bude čerpat data z listu, případně tyto data přidáte pomocí VBA skriptu.

Seznam kapitol

• Načtení dat
  • Jeden sloupec dat staticky
  • Jeden sloupec dat dynamicky -
  • Více sloupců - staticky i dynamicky
  • Více sloupců včetně záhlaví
  • Více sloupců včetně skrytých
• práce s ComboBox
  • Přidat/smazat záznamy do/z ComboBox
  • Přečíst x-tou hodnotu
  • Odstranit x-tou položku
  • Počet záznamu v ComboBox
• Výběr/design/... v přípravě
• Properties
• Související články
• Ke stažení v přípravě

Ukázka

Zdrojová tabulka

Poznámka: Zdrojová tabulka obsahuje i dynamicky definované názvy. Po vložení záznamu se rozsah tabulky automaticky rozšíří (zvětší).

Jeden sloupec dat - staticky

Do ComboBox je potřeba vložit údaj z jednoho sloupce v tabulce, bez záhlaví daného sloupce. Data potřebujeme z oblasti A2:A6 na listě ComboBox.

Properties:

ColumcCount 1 ListRows 5 RowSource ComboBox!A2:A6

Jeden sloupec dat dynamicky

V ComboBox potřebuji mít dynamicky vkládaná data, přidají-li se na listu data, tak potřebuji, aby se stejné hodnoty přidaly i do ComboBoxu. Využijeme dynamickou oblast. Více o dynamicky definované oblasti v samostatném článku zde.

Definice dynamické oblasti:

Jmeno =POSUN(ComboBox!$B$2; 0; 0; POČET2(ComboBox!$B$2:$B489); 1)

Properties:

ColumcCount 1 ListRows 8 RowSource Jmeno

Poznámka: V Properties lze doplňovat údaj ListRows také dynamicky, podle počtu položek.

Více sloupců - staticky i dynamicky

Jeden sloupec zobrazit je jednoduché, ale jak jich zobrazit více? Potřebujete zvolit zaměstnance a mít v CobmboBoxu (seznamu) jen ID daného zaměstnance je málo, stejně tak jako příjmení (nebudeme vědět kterého z Nováku zvolit).

ColumcCount 1 ListRows 8 RowSource ComboBox!A2:B10

Pro natavení šířky jednotlivých sloupců v ComboBox:

ColumnWidths 20 pt;40 pt;40 pt;30pt

Definice dynamické oblasti:

Jmeno =POSUN(ComboBox!$A$2; 0; 0; POČET2(ComboBox!$B$2:$B481); 4)

Více o dynamické oblasti v samostatném článku zde.

Pak jen nastavit zdroj řádku pro ComboBox.

RowSource Tabulka1

Více sloupců včetně záhlaví

Pokud chcete mít v ComboBox záhlaví. Jako záhlaví se použije první řádek zdrojové z tabulky v RowSource.

ColumnHeads True

Více sloupců včetně skrytých

Chcete-li z tabulky některé údaje skrývat, stačí použít v ColumnWidths 0pt:

ColumnWidths 0 pt;30 pt;0 pt;30 pt

Přidat/smazat záznamy do/z ComboBox

Smazat v ComboBox1 všechny záznamy:

ComboBox1.Clear

Přidat do ComboBox1 tři záznamy (ovoce):

With ComboBox1 .AddItem "Jablko" .AddItem "Hruška" .AddItem "Třešeň" End With

Lze přidat do ComboBox1 tři záznamy (zeleniny):

With ComboBox1 .AddItem "Mrkev" .AddItem "Česnek" .AddItem "Cibule" End With

Nebo využít pole Array

ComboBox1.List = Array("Mrkev", "Česnek", "Cibule")

Další ukázky v přípravě

Zobrazit již umíte a následně jak vyčíst, upravit design, atd. Příklady doplním časem.

Přečíst x-tou hodnotu

Jak zjisti obsah ComboBox.

polozka = ComboBox1.List(1)

Poznámka lze využít i v cyklu For když víme kolik máme položek...

Počet záznamo v ComboBox

Jak zjisti počet položek v ComboBox.

polozka = ComboBox1.ListCount

Odstranit x-tou položku

Jak odstranit x-tou položku. Pokud není potřeba odstranit vše jen tu vybranou.

polozka = ComboBox3.RemoveItem(1)

Properties

Seznam základních vlastností prvku ComboBox (Výběrové pole). Okno vlastností můžeme zobrazit klávesou F4.

• (Name)
• AutoSize
• AutoTab
• AutoWordSelect
• BackColor
• BackStyle
• BorderColor
• BorderStyle
• BoundColumn
• ColumnCount
• ColumnWidths
• ControlSource
• ControlTipText
• DragBehavior
• DropButtonStyle
• Enabled
• EnterFieldBehavior
• Font
• ForeColor
• Height
• HelpContextID
• HideSelection
• IMEMode
• Left
• ListRows
• ListStyle
• ListWidth
• Locked
• MatchEntry
• MatchRequired
• MaxLength
• MouseIcon
• MousePointer
• RowSource
• SelectionMargin
• ShowDropButtonWhen
• SpecialEffect
• Style
• TabIndex
• TabStop
• Tag
• Text
• TextAlign
• TextColumn
• Top
• TopIndex
• Value
• Visible
• Width

Podrobněji v článku Vlastnosti ComboBox

Související články

Může vás dále zajímat:

• Vlastnosti ComboBox
• Ovládací prvky - formuláře ve VBA

Ke stažení

Soubor ke stažení je v přípravě.

Závěrem

Využíváte ve formuláři ComboBox? Máte nějaké zajímavé skripty, můžete se pochlubit v komentářích.

Článek byl aktualizován: 19.09.2020 11:06

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím jsem jediný z ČR v kategorií Excel). Své vědomosti a zkušenosti dávám k dispozici i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 15 let. Zdarma je zde přes 1.000 návodu, tipů a triků, včetně přes 250 různých šablon, sešitů.

           

Komentáře