MS Excel

Téma: Naplnenie AxtiveX ComboBoxu v liste napevno

Zaslal/a elninoslov 20.5.2016 9:51

Zdravím Vás.

Prosím Vás, už sa tu trápim, ide vôbec naplniť dvojstĺpcový ActiveX ComboBox na liste (nie na formulári), hodnotami napevno makrom ? Bez ListFillRange, bez akejkoľvek oblasti, proste z poľa hodnôt.

.AddItem xxx - nepozná
.List = Array - nepozná

Ďakujem.

Zaslat odpověď >

eLCHa(20.5.2016 11:42)#031574

Normálně mi funguje With ComboBox1
.Clear

.AddItem "1.1"
.List(.ListCount - 1, 1) = "1.2"
End With 'ComboBox1citovat

elninoslov(20.5.2016 12:13)#031575

Už som na to prišiel, je potreba
ActiveSheet.Shapes("ComboBox1").OLEFormat.Object.Object
ja som to skúšal o jedno ".Object" menej, preto to nešlo :)

Aj tak ďakujem.

PS: a dá sa potom urobiť aj
.List = arr 'polecitovat

eLCHa(20.5.2016 13:19)#031576

Nerozumím tomu, že jedete přes Shapes. Proč?citovat

elninoslov(20.5.2016 13:54)#031577

Ach tá bodka (pred "cbNazev")...
Dnes robím 3 veci naraz, a štvrtá je na ceste. Aj tak to vyzerá.
Sub NaplnCombo()
Dim a()
With ThisWorkbook.Worksheets("Pokus")
a = .Cells(1, 6).Resize(3, 2).Value
With .Shapes("cbNazov").OLEFormat.Object.Object
.Clear
.List = a
End With
End With
End Sub

Sub NaplnCombo2()
Dim a()
With ThisWorkbook.Worksheets("Pokus")
a = .Cells(1, 6).Resize(3, 2).Value
With .cbNazov
.Clear
.List = a
End With
End With
End Sub
Ďakujem, fungujú obe.citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.