Pole se seznamem čili ComboBox

Úvodní stránka | Blog | Excel VBA | Pole se seznamem čili ComboBox

    • Pole se seznamem (anglicky ComboBox), je kombinovaný ovládací prvek sestávající z textového pole (samostatně jako TextBox) a seznamu (ListBox). Někdy mu také podomácku říkám „roletka“. Umožňuje zadání vstupu ručně či výběr ze seznamu přednastavených položek.

    Abychom mohli daný prvek nasadit na listu, musíme si nejprve zobrazit na Pásu karet kartu Vývojář.

    Excel 2010 - karta Vývojář
    Excel 2010 – karta Vývojář

    Ve skupině Ovládací prvky máme možnost vložit dva typy těchto prvků – formulářový (historicky starší, jednodušší) a prvek ActiveX (podobný, ale ne identický s tím, jaký znáte z formulářů VBA).

    Pole se seznamem (ovládací prvek formuláře)

    Práci s ním jsem se pokusil shrnout v obrázku. Pozn. Slovo „formuláře“ nemá nic společného s novodobými formuláři UserForm, se kterými pracujeme níže.

    Pole se seznamem (ovládací prvek formuláře)
    Pole se seznamem (ovládací prvek formuláře)

    Výběr probíhá přes tlačítko Vložit a samotné vykreslení pak s pomocí myšky. Pokud chcete prvek zarovnat do mřížky, přidržte klávesu ALT. Pro editaci a přesun jej vždy vybírejte pravým tlačítkem myši. Vlastnosti najdete v kontextovém menu pod volbou Formát ovládacího prvku. Otevřený dialog nese stejný název. Možnosti jsou vcelku strohé a zřejmé. Okno po úpravám zavřeme a před použitím prvku už stačí jen zbavit jej zaměření (klepneme myškou jinam).

    Provázaná buňka kdo ví proč vrací pořadí vybrané položky a k jejímu obsahu nám dopomůže až vyhledávací funkce (např. INDEX). Spojení funguje obousměrně, změna čísla v buňce má za následek výběr odpovídající položky v prvku (nula a menší číslo prvek vyčistí).

    U prvku formuláře nezměníte barevnost ani písmo, neumí zobrazit více sloupců a v seznamu není možné vyhledávat ani se přesouvat mezi položkami kolečkem myši. Prvku lze přiřadit makro (viz také pravé tlačítko myši). Ve VBA spadá tento prvek do kolekce Shapes (název se na listu ukazuje v Poli názvů).

    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    Sub PrvekFormularePristup()

        Dim shpPrvek As Shape

        Dim strPropojenaBunka As String
        Dim strZdrojDat As String

        Set shpPrvek = ActiveSheet.Shapes("stahovací 1")

        'vlastnosti pod ControlFormat nebo DrawingObject
        strPropojenaBunka = shpPrvek.ControlFormat.LinkedCell
        strZdrojDat = shpPrvek.ControlFormat.ListFillRange

    End Sub

    Pole se seznamem (ovládací prvek ActiveX)

    I zde by měl napovědět hodně obrázek.

    Pole se seznamem (ovládací prvek ActiveX)
    Pole se seznamem (ovládací prvek ActiveX)

    Výběr a vykreslení se děje stejně jako v předchozím případě. Excel se přitom přepíná do Režimu návrhu a v něm také probíhají veškeré úpravy. Stačí klepnout v Pásu karet na Vlastnosti a pohrát si v otevřeném dialogu s názvem Properties (znáte možná už z editoru VBA). Nejpodstatnější jsou pro tuto chvíli vlastnosti ListFillRange (zdroj dat) a LinkedCell (propojená buňka), na zbytek se podíváme později. Na rozdíl od prvku formuláře vrací tento prvek primárně obsah vybrané položky.

    Makro je zpravidla vázáné na událost Change tohoto prvku. Stačí na ComboBox poklepat v Režimu návrhu a Excel vás přepne do editoru VBA. Prvek je umístěn v modulu daného listu. Procedura níže je ukázkou toho, jak makrem vracet pořadí vybrané položky.

    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    Private Sub ComboBox1_Change()

        With ComboBox1
           
            'zápis pořadí položky do buňky
            'nebyla vybrána položka .. ListIndex = -1
            'první položka ... ListIndex = 0
            Range("C20").Value = .ListIndex + 1

        End With

    End Sub
    ComboBox na listu v editoru VBA
    ComboBox na listu v editoru VBA

    Pokud máme hotovo, vypneme Režim návrhu a je to.

    Pozn. Ani jeden z prvků (formuláře, ActiveX) neumí vybírat více položek naráz, k tomu účelu slouží ListBox (o něm zase někdy jindy). V rámci položek se nemohou objevit obrázky (nastudujte prvek Microsoft ImageComboBox). Grafický vzhled ComboBoxu pod VBA neřídí XP styly (nedoporučuji měnit manifest pro Excel.exe!).

    Jak naplnit ComboBox daty

    Nadále budeme hovořit už jen o prvku ActiveX na formuláři UserForm. Zdrojem dat pro seznamy nemusí být nutně oblast buněk na listu. Položky lze přidávat jednotlivě (v cyklu) přes metodu AddItem nebo hromadně přiřazením pole do vlastnosti List. Nejprve základy. Přidat ComboBox na formulář (UserForm) předpokládám nepředstavuje problém.

    ComboBox na formuláři UserForm
    ComboBox na formuláři UserForm

    Okno Properties najdete v panelu nástrojů pod View / Properties Windows (klávesa F4).

    Hurá na příklady. Formuláře si můžete vyzkoušet v návaznosti na List1.

    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    Private Sub UserForm_Initialize()

        Dim i As Integer

        Dim strZnaky As String

        'ComboBox1
        '*********

        With ComboBox1

            'jednotlivé přidání položek
            .AddItem "raz"
            .AddItem "dva"
            .AddItem "tři"

        End With

        'ComboBox2
        '*********
       
        With ComboBox2

            'jednotlivé přidání položek
            .AddItem "10,25"
            .AddItem "10,50"
            .AddItem "10,75"

        End With
       
        'ComboBox3
        '*********
       
        'přiřazení položek z oblasti buněk
        'uvedení Value nutné
        ComboBox3.List = Range("B2:B4").Value
     
        'ComboBox4
        '*********
       
        'přiřazení položek z pojmenované oblasti buněk
        'uvedení Value nutné
        'ColumnCount = 2 ... dvousloupcový seznam
        'ColumnHeads = True ... hlavička (vždy z oblasti listu)
        ComboBox4.List = Range("rngTabulka").Value
       
        'ComboBox5
        '*********

        Dim arrPoleArray

        'pole položek
        arrPoleArray = Array("jablko", "hruška", "švestka")

        'přiřazení pole do prvku
        ComboBox5.List = arrPoleArray

        'ComboBox6
        '*********

        Dim arrStatickePole(1 To 3)

        arrStatickePole(1) = "ano"
        arrStatickePole(2) = "ne"
        arrStatickePole(3) = "nevím"

        'přiřazení pole do prvku
        ComboBox6.List = arrStatickePole

        'ComboBox7
        '*********

        'řetezec položek
        strOddelenePolozky = "Spejbl,Hurvínek,Mánička"

        'převedení do pole položek
        arrOddelenePolozky = Split(strOddelenePolozky, ",")

        'přiřazení pole do prvku
        ComboBox7.List = arrOddelenePolozky

        'ComboBox8
        '*********
       
        For i = 1 To 5

            'přidání položky do prvku
            ComboBox8.AddItem "Pokoj " & i

        Next i

        'ComboBox9
        '*********

        strZnaky = "abcdefghijklmnopqrstuvwxyz"

        For i = 1 To Len(strZnaky)

            'přidání položky do prvku
            ComboBox9.AddItem Mid$(strZnaky, i, 1)

        Next i

    End Sub

    Private Sub ComboBox2_Change()

        'přenos číselné hodnoty do listu
        Range("B9") = CDbl(ComboBox2.Value)

    End Sub
    Základní techniky plnění ComboBoxu
    Základní techniky plnění ComboBoxu

    Následuje ukázka, jak naplnit prvek položkami času.

    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    Private Sub UserForm_Initialize()

        Dim dtmCasOd As Date
        Dim dtmCasDo As Date
       
        Dim dtmCasKrok As Date
       
        Dim intKrokHodiny As Integer
        Dim intKrokMinuty As Integer
        Dim intKrokSekundy As Integer
       
        Dim sngCasKrok As Single
        Dim sngCasRozdil As Single
       
        Dim lngPocetJednotek As Long
       
        'dílčí jednotky kroku
        intKrokHodiny = 0
        intKrokMinuty = 30
        intKrokSekundy = 0
       
        'čas
        dtmCasKrok = TimeSerial(intKrokHodiny, intKrokMinuty, intKrokSekundy)
        sngCasKrok = 24 * dtmCasKrok
       
        'počet jednotek za den
        lngPocetJednotek = 24 / sngCasKrok
       
        'ComboBox1
        '*********
       
        'čas
        For i = 1 To lngPocetJednotek
            'přidání položky do prvku
            ComboBox1.AddItem Format((i - 1) * dtmCasKrok, "Hh:Nn")
        Next i
       
        'ComboBox2
        '*********

        'doba trvání (přes 24 hodin)
        For i = 1 To lngPocetJednotek
            'přidání položky do prvku
            ComboBox2.AddItem WorksheetFunction.Text(i * dtmCasKrok, "[hh]:mm")
        Next i
       
        'ComboBox3
        '*********
       
        'časový interval (např. směna) od-do
        dtmCasOd = TimeSerial(6, 0, 0)
        dtmCasDo = TimeSerial(14, 0, 0)

        'dílčí jednotky kroku
        intKrokHodiny = 0
        intKrokMinuty = 15
        intKrokSekundy = 0

        'čas
        dtmCasKrok = TimeSerial(intKrokHodiny, intKrokMinuty, intKrokSekundy)
        sngCasKrok = 24 * dtmCasKrok
        sngCasRozdil = 24 * (dtmCasDo - dtmCasOd)

        'počet jednotek v intervalu
        lngPocetJednotek = sngCasRozdil / sngCasKrok

        'čas
        For i = 1 To (lngPocetJednotek + 1)
            'přidání položky do prvku
            ComboBox3.AddItem Format(dtmCasOd + (i - 1) * dtmCasKrok, "Hh:Nn")
        Next i
       
    End Sub

    Private Sub ComboBox1_Change()

        'vložení hodnoty do buňky
        Range("B13").Value = ComboBox1.Value

    End Sub

    Private Sub ComboBox2_Change()

        'vložení hodnoty do buňky
        Range("B13").Value = ComboBox2.Value

    End Sub

    Private Sub ComboBox3_Change()

        'vložení hodnoty do buňky
        Range("B13").Value = ComboBox3.Value

    End Sub
    Plnění ComboBoxu - časové údaje
    Plnění ComboBoxu – časové údaje

    Když jsem uvedl čas, nemůže chybět ani datum. Tentokrát jsem zvolil praktickou ukázku s výběrem roku (ComboBox 1), měsíce (ConboBox2) a tomu odpovídajícímu počtu datumů (ComboBox3). Bonusově jsem poté přihodil k pondělním datumům ještě ISO číslo týdne roku a další vychytávky.

    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    112
    113
    114
    115
    116
    117
    118
    119
    120
    Private Sub UserForm_Initialize()

        Dim intRok As Integer

        intRok = Year(Now)

        With cboRok

            'naplnění prvku roky
            'tento rok a minulý rok
            .AddItem intRok - 1
            .AddItem intRok
           
            'předvýběr druhé položky
            .ListIndex = 1

        End With

        With cboMesic

            'naplnění prvku číselnými hodnotami
            'lze řešit v cyklu
            'zde s využitím metody Evaluate a vzorce listu
            .List = [ROW(1:12)]
           
            'předvýběr položky aktuálního měsíce
            .ListIndex = Month(Now) - 1

        End With
       
        With cboMesicDatumy
       
            'předvýběr položky aktuálního dne
            .ListIndex = Day(Now) - 1
       
        End With

    End Sub

    Private Sub cboMesic_Change()

        'volání procedury Zmena
        Call Zmena

    End Sub

    Private Sub cboRok_Change()

        'volání procedury Zmena
        Call Zmena

    End Sub

    Private Sub CommandButton1_Click()

        'vložení hodnoty do buňky
        Range("B11") = CDate(Left(cboMesicDatumy.Text, 10))

    End Sub

    Sub Zmena()

        Dim i As Integer
        Dim intRok As Integer
        Dim intMesic As Integer
        Dim intMesicPocetDni As Integer
        Dim intTydenRoku As Integer

        Dim dtmDate As Date


        'v případě chyby (neúplná data při inicializaci formuláře)
        'ukončit proceduru
        On Error GoTo Konec

        'rok
        intRok = cboRok.Value

        'měsíc
        intMesic = cboMesic.Value

        'počet dní (trik)
        intMesicPocetDni = Day(DateSerial(intRok, intMesic + 1, 0))

        With cboMesicDatumy

            'vymazání stávajících položek
            .Clear

            For i = 1 To intMesicPocetDni

                dtmDate = DateSerial(cboRok.Value, intMesic, i)

                If Weekday(dtmDate, vbMonday) > 1 Then

                    'přidání datumu do prvku
                    .AddItem Format(dtmDate, "dd.mm.yyyy")

                Else

                    'týden roku (ISO)
                    intTydenRoku = DatePart("ww", dtmDate, vbMonday, _
                        vbFirstFourDays)

                    'přidání datumu a týdne roku do prvku
                    .AddItem Format(dtmDate, "dd.mm.yyyy") & " (" & intTydenRoku & _
                        ")"

                End If

            Next i

            'předvýběr první položky
            .ListIndex = 0

        End With

    Konec:

    End Sub
    Plnění ComboBoxu - datum
    Plnění ComboBoxu – datum

    Pokračujeme závislými seznamy otevřených sešitů a listů v nich.

    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    Private Sub UserForm_Initialize()

        Dim wkbSesit As Workbook

        'ComboBox1
        '*********

        'pro každý otevřený sešit
        For Each wkbSesit In Application.Workbooks

            'přidání názvu sešitu do prvku
            cboSesity.AddItem wkbSesit.Name

        Next wkbSesit
       
        'předvýběr aktivního sešitu
        cboSesity.Value = ActiveWorkbook.Name

    End Sub

    Private Sub cboSesity_Change()

        Dim shtList As Object

        Dim strPolozka As String

        'vybraná položka (sešit)
        strPolozka = cboSesity.Value

        'pro prvek s listy
        With cboListy

            'vymazání stávajících položek
            .Clear

            'pro každý list v aktivním sešitu
            For Each shtList In Workbooks(strPolozka).Sheets

                'přidání názvu listu do prvku
                .AddItem shtList.Name

            Next shtList

            'je vybrán aktivní sešit?
            If strPolozka = ActiveWorkbook.Name Then

                'předvýběr aktivního listu
                .Value = ActiveSheet.Name

            Else

                'předvýběr první položky
                .ListIndex = 0

            End If

        End With

    End Sub
    Plnění ComboBoxu - sešity a listy
    Plnění ComboBoxu – sešity a listy

    Když jsme načali sešity, zůstaňme ještě chvíli u výpisu souborů ze složky vybrané uživatelem. Nebude chybět filtrování přípony, ale vynecháme rekurzivní procházení podsložek.

    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    Private Sub Image1_Click()

        Dim strSlozka As String
        Dim arrPoleSouboru

        'víceúčelový dialog, zde pro výběr složky
        With Application.FileDialog(msoFileDialogFolderPicker)

            'titulek, běžně "Procházet"
            .Title = "Výběr složky"

            'výchozí styl zobrazení, zde náhledy obsahu složek
            'Windows 7, 64 bit, nefunkční
            '.InitialView = msoFileDialogViewLargeIcons

            'vícenásobný výběr složek nelze použít
            '.AllowMultiSelect = True

            'výchozí zobrazená složka, zde složka tohoto souboru
            .InitialFileName = ThisWorkbook.Path

            'popis tlačítka, běžně "OK"
            .ButtonName = "Vybrat"

            'zobrazení dialogu
            .Show

            'byla vybrána složka?
            If .SelectedItems.Count > 0 Then

                'převzetí názvu složky
                strSlozka = .SelectedItems(1)

            End If

        End With

        'načtení názvů souborů s odpovídající příponou (maska pro sešity)
        'ze složky do pole a jejich abecední setřídění
        arrPoleSouboru = epfSlozkaSoubory(strSlozka & "", "*.xl*")

        'bylo vráceno pole?
        If IsArray(arrPoleSouboru) Then
       
            'vyčištení ovládacího prvku
            cboSoubory.Clear
           
            'přiřazení pole do prvku
            cboSoubory.List = arrPoleSouboru

        Else

            'zpráva
            MsgBox "Nebyly nalezeny žádné soubory.", vbInformation + vbOKOnly

        End If

    End Sub

    Function epfSlozkaSoubory(Slozka As String, Filtr As String)

        Dim arrPole()
        Dim strSouborNazev As String
        Dim iPocet As Integer

        strSouborNazev = Dir(Slozka & Filtr)

        Do While strSouborNazev <> ""
            If strSouborNazev <> "" Then
                iPocet = iPocet + 1
                ReDim Preserve arrPole(1 To iPocet)
                arrPole(iPocet) = LCase(strSouborNazev)
            End If
            strSouborNazev = Dir()
        Loop

        If Not Len(Join(arrPole, "")) = 0 Then
            QuickSort arrPole, LBound(arrPole), UBound(arrPole)
            epfSlozkaSoubory = arrPole
        Else
            epfSlozkaSoubory = ""
        End If

    End Function

    Sub QuickSort(vArray As Variant, inLow As Long, inHi As Long)
        Dim pivot As Variant
        Dim tmpSwap As Variant
        Dim tmpLow As Long
        Dim tmpHi As Long
        tmpLow = inLow
        tmpHi = inHi
        pivot = vArray((inLow + inHi) \ 2)
        While (tmpLow < = tmpHi)
            While (vArray(tmpLow) < pivot And tmpLow < inHi)
                tmpLow = tmpLow + 1
            Wend
            While (pivot < vArray(tmpHi) And tmpHi > inLow)
                tmpHi = tmpHi - 1
            Wend
            If (tmpLow < = tmpHi) Then
                tmpSwap = vArray(tmpLow)
                vArray(tmpLow) = vArray(tmpHi)
                vArray(tmpHi) = tmpSwap
                tmpLow = tmpLow + 1
                tmpHi = tmpHi - 1
            End If
        Wend
        If (inLow < tmpHi) Then QuickSort vArray, inLow, tmpHi
        If (tmpLow < inHi) Then QuickSort vArray, tmpLow, inHi
    End Sub
    Plnění ComboBoxu - soubory ze složky
    Plnění ComboBoxu – soubory ze složky

    Jako zdroj pro ComboBox samozřejmě slouží i databáze. Zde krátká ukázka propojení z Microsoft Access.

    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    Private Sub UserForm_Initialize()

        Dim cn As Object
        Dim rs As Object
        Dim strSql As String
        Dim strConnection As String

        'připojení do databáze (Microsoft Access)
       
        'vytvoření objektu připojení
        Set cn = CreateObject("ADODB.Connection")

        'řetězec pro připojení
        strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & _
            ThisWorkbook.Path & "\databaze.mdb"

        'SQL dotaz (obec začínající na Vče... a jeho PSČ)
        strSql = "SELECT DISTINCT Obec, PSC FROM PSC WHERE Obec Like 'Vče%'"

        'připojení
        cn.Open strConnection

        'recordset
        Set rs = cn.Execute(strSql)

        'konverze (transpozice) záznamů do pole
        arrPoleObce = WorksheetFunction.Transpose(rs.GetRows)

        'přiřazení pole do prvku
        ComboBox1.List = arrPoleObce

        'uzavření spojení
        rs.Close
        cn.Close

        'uvolnění paměti
        Set rs = Nothing
        Set cn = Nothing

    End Sub
    Plnění ComboBoxu - databáze
    Plnění ComboBoxu – databáze

    V případě databází se využívají prakticky všechny způsoby načítání položek, od AddItem v cyklu po přiřazení pole (transformujeme výstupy GetRows, případně GetString, zbavujeme záznamy položek Null, upravujeme datový typ apod.). Pokud jste nedočetli před zkoušením do konce, pak vězte, že vícesloupcové ComboBoxy doprovází vlastnost ColumnCount (zde ColumnCount = 2).

    Zbývají ještě drobné tipy na vytváření seznamů bez nutnosti textových polí (názvy dnů, měsíců).

    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    Private Sub UserForm_Initialize()

        'ComboBox1
        '*********
       
        'dny týdne slovně
        For i = 1 To 7
            'přidání položky do prvku
            '24.4.2016 ... neděle
            ComboBox1.AddItem Format(DateSerial(2016, 4, 24) + i, "dddd")
        Next i
       
        'ComboBox2
        '*********
       
        'měsíce slovně
        For i = 1 To 12
            'přidání položky do prvku
            ComboBox2.AddItem Format(DateSerial(2016, i, 1) + i, "mmmm")
        Next i
       
        'ComboBox3
        '*********
       
        'měsíce slovně (německy)
        For i = 1 To 12
            'přidání položky do prvku
            ComboBox3.AddItem WorksheetFunction.Text(DateSerial(2016, i, 1) + i, _
                "[$-407]mmmm")
        Next i

    End Sub
    Plnění ComboBoxu - dny týdne a názvy měsíců jinak...
    Plnění ComboBoxu – dny týdne a názvy měsíců jinak…

    Do sytosti jsme si pohráli a ještě zbývá vážnější zastavení se u vybraných vlastností ComboBoxu.

    Vybrané vlastnosti (vícesloupcového) ComboBoxu

    ComboBox - více sloupců a vybrané vlastnosti
    ComboBox – více sloupců a vybrané vlastnosti

    BoundColumn … číslo sloupce, ze kterého se bude brát hodnota Value (1 .. první sloupec, i skrytý)

    ColumnsCount … určuje, kolik sloupců dat bude ComboBox obsahovat (včetně skrytých), pro skrytý sloupec je ColumnWidths = 0)

    ColumnWidths … šířky sloupců v bodech (palcích, centimetrech) oddělených středníky (např. 0 pt;111 pt;109 pt), pro skrytý sloupec se zapisuje 0, šířku posledního sloupce lze vynechat (součet šířek nesedí přesně s vlastností Width prvku, teoreticky Width = součet šířek + ColumnsCount – 1)

    LinkedCell … adresa propojené buňky (např. List1!D20), platí pro prvek ComboBox na listu

    ListRows … počet viditelných položek po rozbalení seznamu bez nutnosti užití posuníku

    ListWidth … šířka seznamu po rozbalení

    MatchEntry … ponechávejte na 1-fmMatchEntryComplete, vyhledávání existující položky bude tak probíhat v souladu s posloupností zadávaných znaků v textovém poli, resp. při aktivaci prvku.

    RowSource … adresa zdroje dat braného z listu (např. List1!G3:I6), platí pro prvek na formuláři UserForm, pro prvek ComboBox na listu jde o vlastnost ListFillRange

    Style … pokud uživatel nemá mít možnost zapsat do textového pole prvku vlastní hodnotu a bude pouze vybírat z existujících položek, zvolte 2-fmSTyleDropDownList

    TextColumn … ‚číslo sloupce, jehož položky se objevují po výběru ze seznamu v textovém poli a ve vlastnosti Text,
    TextColumn = -1 … zobrazí hodnotu 1. sloupce s hodnotou ColumnWidths > 0, tj. prvního viditelného
    TextColumn = 0 … zobrazí hodnotu vlastnosti ListIndex
    TextColumn = 1 … zobrazí hodnotu prvního sloupce (i skrytého)

    Na závěr
    Jsem si vědom toho, že jsem po celou dobu článku ignoroval vestavěný prvek na listu Excelu, který je jakýmsi hybridem mezi ComboBoxem a ListBoxem – seznam dostupný pod kartou Data / Ověření. V podstatě představuje jednovýběrový ListBox a zaslouží si samostatnou kapitolu a článek… Padlááá.

    Příloha
    excel_ovladaci_prvky_combobox.zip

    Uložit článek jako PDF