< návrat zpět

MS Excel

Téma: Přizpůsobení výšky řádku na sloučených buňkách rss

Zaslal/a bach1 6.8.2019 8:26

Dobrý den potřebuji poradit, jak - asi nejlépe makrem přizpůsobit výšku řádku na sloučených buňkách, kde je nastaveno zalamování textu, dle délky textu bezprostředně po přechodu na další buňku.
Buňky, které se mají takto přizpůsobovat jsou označeny žlutě v příloze. Děkuji moc za pomoc.

Příloha: zip43869_list_zakaznika_vzor.zip (22kB, staženo 39x)
Zaslat odpověď >
marjankaj(6.8.2019 20:22)#043876
avatar
Skus toto makro
koef je približný počet znakov v zlúčenej bunke.

Private Sub Worksheet_Change(ByVal Target As Range)
koef = 36
If Target.Column = 7 Then koef = 54
vyska = (Int(Len(Target) / koef) + 1) * 15
Target.RowHeight = WorksheetFunction.Max(Target.RowHeight, vyska)
End Sub
Příloha: xls43876_list_zakaznika_vzor.xls (125kB, staženo 49x)
citovat
bach1(6.8.2019 20:27)#043877
avatar
Bohužel nejsem tak zdatný, chtěl jsem aby se to aplikovalo po zápisu do těch žlutých buněk. Můžete mi s tím prosím pomoci v tom přiloženém vzoru? Děkuji.citovat
marjankaj(6.8.2019 20:46)#043878
avatar
priložil som suborcitovat
bach1(6.8.2019 21:21)#043879
avatar
Funguje, jen to zkolabuje pokud z té buňky ten text vymažu.citovat
bach1(6.8.2019 21:24)#043880
avatar
pokud zmenším text , tak se to nepřepočte a zůstane tam řádek navíccitovat
marjankaj(7.8.2019 1:43)#043883
avatar
daj tam písmo curier.
Příloha: xls43883_list_zakaznika_vzor.xls (124kB, staženo 100x)
citovat
bach1(7.8.2019 6:34)#043884
avatar
Díky funguje 9citovat
bach1(7.8.2019 7:30)#043887
avatar
Ještě to má vadu, pokud to seřadím vzestupně dle data po otevření sešitu, je tam na to makro, tak se ty buňky nepřepočtou, nebo tam zůstávají mezery, nebo se to nedotáhne.
Můžete prosím na to hodit oko, co by to ještě chtělo?
Děkuji moc za pomoc.
Příloha: zip43887_list_zakaznika_vzor1.zip (32kB, staženo 33x)
citovat
lubo(7.8.2019 15:01)#043893
avatar
Kdysi jsem něco podobného dělal. Nemám čas hledat ani psát.

Idea: Vzít šířku sloučené buňky, nastavit ji na první sloupec sloučené buňky, zrušit sloučení, nechat excel, aby výsku řádku nastavil. Povolit sloučení, vrátit původní šířku prvního sloupce.

Tady by šlo nastavit dva sloupce vpravo na šířku sloučených buněk a vzorcem tam doručit text.

Celkem ok, hodí se na konci nastavit automatickou výšku řádku a tu zafixovat.citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje