MS Excel

Téma: Hodnoty Listboxu

Zaslal/a speedmax1 26.10.2010 9:57

Ahoj, chtěl bych se zeptat zda lze data do listboxu generovat automaticky. Třeba nějakým součtem count. O co se mi jedná...

Mám list ve kterém jsou v jednom sloupci data řazená za sebou v řádcích. Tyto data může uživatel podle svých potřeb přidávat nebo mazat. Nelze se tedy odkazovat na stálou oblast buněk. Nemůžu bohužel zaslat příklad protože mi v tom brání firewall. Stačilo by mě nakopnout kódem.

Děkuju za pomoc.

Zaslat odpověď >

Poki(26.10.2010 13:50)#002884

mozna takto: Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i, j As Integer

'odstraneni vsech polozek z Listboxu
For j = 1 To ListBox1.ListCount
ListBox1.RemoveItem 0
Next

'ovlozeni vsech polozek ze sloupce A do Listboxu
For i = 1 To List1.Cells(65000, 1).End(xlUp).Row
If Not IsEmpty(List1.Cells(i, 1)) Then
ListBox1.AddItem List1.Cells(i, 1)
End If
Next
End Subcitovat

speedmax1(1.11.2010 10:37)#002938

Ahoj Poki, řešení funguje bezvadně. Už se mi konečně podařilo zakomponovat jej do svého projektu. Díky za pomoccitovat

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.