14. marts 2014 - 10:19Der er
2 kommentarer og 1 løsning
Automatisk rækkehøjde i excel
Hej Alle.
Jeg ved dette spørgsmål har været slået op på siden før, men de løsninger som er kommet hjælper ganske enkelt ikke mig.
Jeg synes selv jeg er ret habil ift. excel (dog ikke ift. makroer osv.)
Mit problem er det simple spørgsmål, at min rækkehøjde ikke følger med når jeg laver en ombrydning af en celle. Dvs. at det kun er den første linje som er synlig. Det drejer sig om flere celler som er flettet.
Følgende hjælper IKKE: - at formaterer cellen. - at sætte autojuster til (tilpas automatisk) - at ophæve fletning og ombryde med enkelt celle.
Jeg har yderligere prøvet at indsætte nogen af de VBA koder som folk foreslår, men det autojusterer bare alle række til 1 linje.
Jeg har yderligerer et ønske om at standard højde for en celle skal være 18, men ved ikke om det er muligt når celle også skal autojusterer?
Håber meget der er en excel brain som kan hjælpe...
Jeg vil gerne sende et udklip af arket hvis der er en som mener det kan hjælpe.
Hos Computerworld it-jobbank er vi stolte af at fortsætte det gode partnerskab med folkene bag IT-DAY – efter vores mening Danmarks bedste karrieremesse for unge og erfarne it-kandidater.
Du kan ikke angive en fast rækkehøjde og samtidigt sætte den til autojustering.
Hvis du først har sat rækkehøjden til en bestemt værdi, så kan du efterfølgende autojustere rækkerne, ved at markere dem og dobbeltklikke imellem 2 rækker.
Private Sub Worksheet_selectionChange(ByVal Target As Excel.Range) Dim CurrentRowHeight As Single, MergedCellRgWidth As Single Dim CurrCell As Range Dim ActiveCellWidth As Single, PossNewRowHeight As Single If ActiveCell.MergeCells Then With ActiveCell.MergeArea If .Rows.Count = 1 And .WrapText = True Then Application.ScreenUpdating = False CurrentRowHeight = .RowHeight ActiveCellWidth = ActiveCell.ColumnWidth For Each CurrCell In Selection MergedCellRgWidth = CurrCell.ColumnWidth + MergedCellRgWidth Next .MergeCells = False .Cells(1).ColumnWidth = MergedCellRgWidth .EntireRow.AutoFit PossNewRowHeight = .RowHeight .Cells(1).ColumnWidth = ActiveCellWidth .MergeCells = True .RowHeight = IIf(CurrentRowHeight > PossNewRowHeight, _ CurrentRowHeight, PossNewRowHeight) End If End With End If End Sub
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
