• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

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

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: 43869_list_zakaznika_vzor.zip (22kB, staženo 38x)

Zaslat odpověď >

---

marjankaj(6.8.2019 20:22)#043876

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: 43876_list_zakaznika_vzor.xls (125kB, staženo 48x)

citovat

bach1(6.8.2019 20:27)#043877

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

priložil som suborcitovat

bach1(6.8.2019 21:21)#043879

Funguje, jen to zkolabuje pokud z té buňky ten text vymažu.citovat

bach1(6.8.2019 21:24)#043880

pokud zmenším text , tak se to nepřepočte a zůstane tam řádek navíccitovat

marjankaj(7.8.2019 1:43)#043883

daj tam písmo curier.

Příloha: 43883_list_zakaznika_vzor.xls (124kB, staženo 95x)

citovat

bach1(7.8.2019 6:34)#043884

Díky funguje citovat

bach1(7.8.2019 7:30)#043887

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: 43887_list_zakaznika_vzor1.zip (32kB, staženo 31x)

citovat

lubo(7.8.2019 15:01)#043893

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse