MS Excel

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?

Zaslat odpověď >

Dingo(6.8.2014 12:44)#020913

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

kp57(7.8.2014 22:05)#020946

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

Dingo(8.8.2014 11:38)#020959

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.

Příloha: zip