V příloze je doplněný kód pro to cos popsal
Příloha: 
56285_tabulka.zip (66kB, staženo 28x)
citovat56285_tabulka.zip (66kB, staženo 28x)
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: zobrazení tabulky ve formuláři
MS Excel
Téma: zobrazení tabulky ve formuláři 
Zaslal/a PavDD 7.3.2024 8:01
Zdravím,chi se zeptat , jestli jde ve formuláři zobrazit část listu excelu, tzn jako tabulku.
Označím si oblast(např A1:Q8) a zobrazím ji ve formuláři. Je na to nějaký prvek?
Díky
Příloha: 56275_tabulka.zip (63kB, staženo 6x)
56275_tabulka.zip (63kB, staženo 6x)super,Děkuji
a jak by se dalo vybrat jen některé sloupce ? např sl A,N,O
'Set rgOblast = Range("B5").CurrentRegion - je asi vyber celé tabulky že ?citovat
a jak by se dalo vybrat jen některé sloupce ? např sl A,N,O
'Set rgOblast = Range("B5").CurrentRegion - je asi vyber celé tabulky že ?citovat
...a šířka sloupců ve form se přebírá z tabulky , nebo se dá taky nějak upravit, zúžit?citovat
Bylo mi předem jasné, že další požadavky na listbox budou přibývat. Pokud bys chtěl do listboxu posílat jenom některé sloupce, tak i to jde, ale lze tam poslat celou tabulku, akorát některé sloupce dostanou nulovou šířku, takže v listboxu nebudou vidět. Třeba takhle (jak jsi chtěl, pouze sloupce A;N;O):
With .ListBox1
.ColumnCount = iSloupcu 'urči počet sloupců
.ColumnWidths = "100pt;0pt;0pt;0pt;0pt;0pt;0pt;0pt;0pt;0pt;0pt;0pt;0pt;100pt;100pt;0pt;0pt;"
.RowSource = rgOblast.Address
End With
Ale počet sloupců máme proměnlivý, kdežto šířky sloupců jsou dány natvrdo - což není zrovna košér. To jen pro ilustraci, správně by se ten řetězec pro šířky musel vytvořit ve smyčce... Ale máš zde odpověď na svojí otázku ohledně šířky sloupců v listboxu.
Spíš jsem očekával, že z povahy listboxu v něm budeš potřebovat zvolit některý řádek (nebo více řádků: podle nastavení vlastnosti MultiSelect) a po kliknutí na nějaký button s tím výběrem pak něco udělat.citovat
With .ListBox1
.ColumnCount = iSloupcu 'urči počet sloupců
.ColumnWidths = "100pt;0pt;0pt;0pt;0pt;0pt;0pt;0pt;0pt;0pt;0pt;0pt;0pt;100pt;100pt;0pt;0pt;"
.RowSource = rgOblast.Address
End With
Ale počet sloupců máme proměnlivý, kdežto šířky sloupců jsou dány natvrdo - což není zrovna košér. To jen pro ilustraci, správně by se ten řetězec pro šířky musel vytvořit ve smyčce... Ale máš zde odpověď na svojí otázku ohledně šířky sloupců v listboxu.
Spíš jsem očekával, že z povahy listboxu v něm budeš potřebovat zvolit některý řádek (nebo více řádků: podle nastavení vlastnosti MultiSelect) a po kliknutí na nějaký button s tím výběrem pak něco udělat.citovat
Děkuju za tip. Poperu se zatím s tímhle, uvidím co bude stačit a vyhovovat. Je to ve fázi vývoje .
Děkuju.citovat
Děkuju.citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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.
RSS nejnovější články