Upřesnění: teď jsem pochopil, že konstanta 950, jak uvádím v souboru, je ve skutečnosti výška štítku, (Label1.Height), když se změní výška štítku na listu, musí se změnit i tohle číslo.citovat
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: Velikost okna excelu podle počtu řádků
MS Excel
Téma: Velikost okna excelu podle počtu řádků 
Zaslal/a Dingo 6.8.2014 10:27
Ahoj, dělal jsem si pro sebe takovou věc, kdy na základě pohybu myši nad rámečkem se mi přepíše obsah buňky pod kurzorem do text.pole.
Mám totiž sloupec vzorců, kde jsou výsledkem dlouhé texty, ale v listu chci mít vidět hodně dalších sloupců, řádky stejně vysoké, atd. nechci použít přizpůs.buňky textu.
Funguje mi to, jen mám problém s tím, když okno excelu není zarovnané přesně na počet řádků, to mi trochu posune spočítanou hranici mezi řádky. Víc je k pochopení v příloze. Excel 2013.
Nevíte někdo, zde se dá nastavit velikost okna aplikace Excel nějak řízeně, aby se zobrazil celý počet řádků a dole nebyl vidět jen proužek posledního řádku?
Příloha: 
20910_soubor.zip (38kB, staženo 26x)
20910_soubor.zip (38kB, staženo 26x)Snad SUM(Rows.Height) aSub Resize()
With Application
.WindowState = xlNormal
.Left = 1
.Top = 1
.Width = 500
.Height = 600
End With
End Sub
No už jsem něco podobného dělal. Měnil jsem Top i Height Labelu, aby nebyl mimo ActiveWindow. Naplnil jsem POLE Rows().Top a pak v POLI vyhledával (MATCH) odpovídající hodnoty. Při tom mohly být Rows().Height různé.citovat
With Application
.WindowState = xlNormal
.Left = 1
.Top = 1
.Width = 500
.Height = 600
End With
End Sub
No už jsem něco podobného dělal. Měnil jsem Top i Height Labelu, aby nebyl mimo ActiveWindow. Naplnil jsem POLE Rows().Top a pak v POLI vyhledával (MATCH) odpovídající hodnoty. Při tom mohly být Rows().Height různé.citovat
Dík za odpověď.
Udržovat výšku tvaru jen v zobrazeném okně je dobrý nápad. Ale stejně mi uniká závislost součtu výšky řádků a výšky okna Excelu. Když jsem to zkoušel např. na 30 řádků a výšce 14,4 >> nastavím .Height = 432 a pak vidím jen 20 řádků a kousek. Nevím.
Do svého řešení jsem přidal zvýraznění řádku a možnost zapnutí/vypnutí na CheckBox. V ostrém sešitu to potom celkem jde používat.
Udržovat výšku tvaru jen v zobrazeném okně je dobrý nápad. Ale stejně mi uniká závislost součtu výšky řádků a výšky okna Excelu. Když jsem to zkoušel např. na 30 řádků a výšce 14,4 >> nastavím .Height = 432 a pak vidím jen 20 řádků a kousek. Nevím.
Do svého řešení jsem přidal zvýraznění řádku a možnost zapnutí/vypnutí na CheckBox. V ostrém sešitu to potom celkem jde používat.
Příloha: 20959_soubor_upr.zip (27kB, staženo 27x)
citovat20959_soubor_upr.zip (27kB, staženo 27x)No snad to bude ono.
Příloha: 20971_pohyb-mysi_v2.zip (33kB, staženo 36x)
citovat20971_pohyb-mysi_v2.zip (33kB, staženo 36x)Ano, to je to, co jsem potřeboval !! Děkuju. Teď si to musím víc rozebrat pro úplné pochopení, ale funguje to!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