![avatar](./pictures/avatars/no-avatar.jpg)
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
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![xls](./plugins/extend/postattach/icons/default.png)