MS Excel

Téma: Listbox - multiselect

Zaslal/a Away 12.8.2016 15:47

Ahoj,

z listboxu si tahám do proměnné název zdrojového souboru, který se dále používá. Když je možné vybrat pouze jednu hodnotu vše funguje tak jak má, avšak nevím, jak to udělat pokud je tam multiselect. Je to možné nějak elegantně řešit? Popřípadě někam vypsat zdroj a pak se orientovat např. na ";" mezi slovy a dále to nějak použít?

Děkuji za pomoc

zdroj = ListBox1.Value a používám to pro otevření vhodného sešitu Application.Workbooks.Open ("C:\Users\mn\Desktop\makro\" & fir & "\" & zdroj)

Zaslat odpověď >

syd(12.8.2016 19:00)#032325

Zdravim,

napr.:
dim nazevsouboru as string
dim i as integer

for i = 0 to me.listbox1.listcount - 1
if me.listbox1.selected(i) then
nazevsouboru = me.listbox1.list(i)
'zde otevrete soubor a provedete dalsi makro...
Application.Workbooks.Open("C:\Users\mn\Desktop\makro\" & fir & "\" & nazevsouboru)
end if
next i

Je treba cyklus a postupne overit, zda byla polozka vybrana a potom s polozkou pracovat.

sydcitovat

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.