Nejčastěji odpovídající uživatel
Automatické formátování - excel

Dotaz
-
Řeším problém, jak automaticky nastavit výšku řádku... V řádku jsou i sloučené buňky, a potřebuji, aby se automaticky řádek přizpůsovoval délce textu...
1. Zalomování textu v buňce, ale po zalomení nedokáže zvětšit buňku o text v dalším řádku...
2. Současně s tím by se po vymazání delšího obsahu měla výška řádku přizpůsobit na základní nastavení...
Please, help me...
Odpovědi
-
V prvom rade by bolo treba zvážiť zmenu tabuľky a odstrániť zlúčené bunky, ktoré spôsobujú zbytočné problémy. Odporúčam ich používať len v nevyhnutných prípadoch. ;-)
spraviť to ide napr. makrom od Erika Van Geta - http://www.mrexcel.com/forum/showthread.php?t=208412
Option Explicit
Sub fit_height_merged_cells()
'Erik Van Get
'060612
'use only if "center accross selection" is really not an optionDim rng As Range
Dim MergeArea As Range
Dim FC As Integer
Dim LC As Integer
Dim FCWidth
Dim TotalWidth As Double
Dim i As IntegerSet rng = Selection
Set MergeArea = rng(1).MergeAreaIf MergeArea.Address <> rng.Address Or rng.Cells.Count = 1 Then
MsgBox "Please select one MergeArea", 48, "ERROR"
Exit Sub
End IfFC = MergeArea.Column
LC = FC + MergeArea.Columns.Count - 1FCWidth = Columns(FC).ColumnWidth
For i = FC To LC
TotalWidth = TotalWidth + Columns(i).ColumnWidth
Next iApplication.ScreenUpdating = False
rng.UnMerge
rng(1).ColumnWidth = TotalWidth
rng(1).EntireRow.AutoFit
rng.Merge
Columns(FC).ColumnWidth = FCWidth
Application.ScreenUpdating = TrueEnd Sub
- Navržen jako odpověď Jan Chaloupek úterý 19. července 2011 14:53
- Označen jako odpověď Jiří JanataMember středa 20. července 2011 13:24
Všechny reakce
-
-
-
-
Dobrý deň,
pozrite tento článok http://support.microsoft.com/kb/212010/cs
Takže riešenie bude makrom.
PB
-
-
V prvom rade by bolo treba zvážiť zmenu tabuľky a odstrániť zlúčené bunky, ktoré spôsobujú zbytočné problémy. Odporúčam ich používať len v nevyhnutných prípadoch. ;-)
spraviť to ide napr. makrom od Erika Van Geta - http://www.mrexcel.com/forum/showthread.php?t=208412
Option Explicit
Sub fit_height_merged_cells()
'Erik Van Get
'060612
'use only if "center accross selection" is really not an optionDim rng As Range
Dim MergeArea As Range
Dim FC As Integer
Dim LC As Integer
Dim FCWidth
Dim TotalWidth As Double
Dim i As IntegerSet rng = Selection
Set MergeArea = rng(1).MergeAreaIf MergeArea.Address <> rng.Address Or rng.Cells.Count = 1 Then
MsgBox "Please select one MergeArea", 48, "ERROR"
Exit Sub
End IfFC = MergeArea.Column
LC = FC + MergeArea.Columns.Count - 1FCWidth = Columns(FC).ColumnWidth
For i = FC To LC
TotalWidth = TotalWidth + Columns(i).ColumnWidth
Next iApplication.ScreenUpdating = False
rng.UnMerge
rng(1).ColumnWidth = TotalWidth
rng(1).EntireRow.AutoFit
rng.Merge
Columns(FC).ColumnWidth = FCWidth
Application.ScreenUpdating = TrueEnd Sub
- Navržen jako odpověď Jan Chaloupek úterý 19. července 2011 14:53
- Označen jako odpověď Jiří JanataMember středa 20. července 2011 13:24