Ik heb een cel met gewikkelde tekstinhoud in Excel en ik wil de cel zo formatteren dat de hoogte zich aanpast aan de inhoud die zich over meerdere regels kan uitstrekken. Hoe kan ik dit gedrag bereiken?
Vanaf http://support.microsoft.com/kb/149663
Volg de volgende stappen om de hoogte van de rij aan te passen aan alle tekst in een cel:
Selecteer de rij.
In Microsoft Office Excel 2003 en in eerdere versies van Excel wijst u in het menu Format naar Row en klikt u vervolgens op AutoFit.
In Microsoft Office Excel 2007 klikt u op het tabblad Home, klikt u op Formatteren in de groep Cellen en klikt u vervolgens op AutoFit Row Height.
werkt ook als alle rijen zijn geselecteerd.
Merk op dat autofit niet werkt op samengevoegde cellen. U moet het handmatig doen.
Zie dit Microsoft-antwoord: U kunt de AutoFit-functie niet gebruiken voor rijen of kolommen die samengevoegde cellen bevatten in Excel
Als het niet automatisch gebeurt, plaats dan je cursor over de kleine lijn tussen de rijnummers (ex: tussen 1 en 2) en dubbelklik, dit zal de grootte van de rij aanpassen (direct boven de kleine lijn, in het voorbeeld: 1) zodat alles zichtbaar is (vanuit een vertikaal aspect).
De enige manier waarop ik het kan laten werken zoals verwacht is door het hele vel te markeren met CTRL-A, de “Wrap Text” knop in de werkbalk te ontklikken en het dan opnieuw te selecteren. Er veranderen geen andere instellingen, maar elke rij is nu de “juiste” hoogte voor de inhoud.
Een VBA-oplossing is het gebruik van:
Call Application.ActiveCell.AutoFit
Ik heb de volgende VB-code gemaakt om de header-rij te wijzigen wanneer een cel binnen een bereik (B2:B1500) omdat datumwaarden boven 12/28/2014 de header een waarschuwing zouden laten zien dat deze data, in een timesheet, naar Week1 van 2015 zouden gaan:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
' The variable KeyCells contains the cells that will
' cause an Action when they are changed.
Set KeyCells = Range("B2:B1500")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
' Change the height of the header row when one of the defined cdlls is changed
Rows("1:1").EntireRow.AutoFit
End If
End Sub