• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: VBA combobox

Zaslal/a charmie 22.7.2014 15:04

Nedaří se mi naplnit položkami combobox v excelu 2013. Jediné co se mi daří, je naplnit ho přes vlastnosti zadáním oblasti, která obsahuje jednotlivé položky.
Postupuju tak, že vytvořím combobox z menu ActiveX controls, umístím ho na list. Pak otevřu editor, vyberu "This Workbook" a "Open" a vložím:

Private Sub Workbook_Open()
With Sheet1.ComboBox1
.AddItem “První”
.AddItem “Druhý”
.AddItem “Třetí”
End With
End Sub

Combobox se ale nenaplní. Můžete někdo poradit, co dělám špatně? Dík Předem

Zaslat odpověď >

---

€Ł мσşqμΐτσ(22.7.2014 15:21)#020637

ahoj apostrof máš špatně
ne “První”
ale "První"citovat

charmie(22.7.2014 20:50)#020639

Tím to není, jen jsem to špatně zkopíroval. Pro jistotu jsem znovu vyzkoušel, stále nefunguje. Přitom na webu je spousta návodů a vypadá to, že se při tom snad ani nedá nic zkazit citovat

Pavlus(22.7.2014 22:14)#020640

Jelikož jsi nevložil přílohu, tak můžeme dále jenom hádat. Uvozovky již byly zmíněny a další chyba v samotném kódu není.
Já osobně si myslím, že jsi ten kód jenom zkopíroval a nepochopil ;-). Hádám, že máš český Office, takže nemáš pojmenovaný list ve VBA editoru jako Sheet1, nýbrž jako List1. Takže klasická chyba techniky "Ctr+c, Ctrl+v". Ale jak říkám, jenom hádám, případně se omlouvám.
Jinak se nabízí i další možnosti. Např. musíš mít povolená makra, a je třeba si uvědomit, že ta událost se umísťuje do ThisWorkbook a provede se až při znovuotevření sešitu...
P.

Př.:
Private Sub Workbook_Open()
With List1.ComboBox1
.AddItem "První"
.AddItem "Druhý"
.AddItem "Třetí"
End With
End Subcitovat

charmie(22.7.2014 22:29)#020641

Ano, ctrl-c/ctrl-v má svoje úskalí, změnu názvu listů jsem přehlédl. Dík.citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse