Hoe kolombreedte automatisch aanpassen in Excel?

In Excel kunt u de kolombreedte snel aanpassen om de celinhoud te passen door gebruik te maken van de functie Kolombreedte Automatisch Aanpassen. Soms wilt u dat de kolombreedte automatisch wordt bijgewerkt op basis van de langste tekst in die kolom, wat betekent dat wanneer u lange tekst invoert in een cel, de kolombreedte automatisch wordt aangepast om de lengte van de inhoud te passen. Is dit mogelijk in Excel?

Kolombreedte automatisch aanpassen met VBA-code

Kolombreedte automatisch aanpassen met sneltoetsen

Kolombreedte automatisch aanpassen met VBA-code

Het lijkt erop dat het automatisch bijwerken van de kolombreedte op basis van de lengte van de celinhoud een interessante truc is. U kunt de volgende VBA-code gebruiken om dit te voltooien.

1. Houd de toetsen ALT + F11 ingedrukt, en het venster Microsoft Visual Basic for Applications wordt geopend.

2. Dubbelklik vervolgens op ThisWorkbook in de VBA Project-objecten in het linkerpaneel om een leeg modulevenster te openen, en kopieer en plak vervolgens de volgende VBA-code in de Module:

VBA-code: kolombreedte automatisch aanpassen in werkboek

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Update 20141127
Dim xCol, xoutCol
xCol = Target.Column
If xCol > 52 Then
xoutCol = Chr(Int((xCol - 1) / 52) + 64) & _
Chr(Int((xCol - 27) / 26) + 64) & _
Chr(Int((xCol - 27) Mod 26) + 65)
ElseIf xCol > 26 Then
xoutCol = Chr(Int((xCol - 1) / 26) + 64) & _
Chr(Int((xCol - 1) Mod 26) + 65)
Else
xoutCol = Chr(xCol + 64)
End If
Columns(xoutCol & ":" & xoutCol).AutoFit
End Sub

3. Sla vervolgens deze code op en sluit deze, en nu, wanneer u lange tekst invoert in een cel, zal de kolombreedte worden aangepast om de inhoud automatisch te passen.

Kolombreedte automatisch aanpassen met sneltoetsen

Als u meerdere kolommen hebt waarvan een deel van de celinhoud verborgen is zoals in de onderstaande schermafbeelding te zien is, wilt u de kolombreedtes tegelijkertijd aanpassen om ze aan hun inhoud aan te passen. De volgende sneltoetsen kunnen u helpen.

1. Selecteer het gegevensbereik waarvan u de kolombreedte wilt aanpassen.

2. Houd de Alt-toets ingedrukt en druk op H + O + I, en nu zijn uw kolombreedtes onmiddellijk aangepast aan hun inhoud. Zie schermafbeelding:

Opmerking: Als u Excel 2003 of een eerdere versie gebruikt, moet u deze sneltoetsen gebruiken: ALT + O + C + A.

Gerelateerde artikelen:

Hoe rijhoogte van samengevoegde cellen automatisch aanpassen in Excel?

Hoe rijhoogte of kolombreedte aanpassen om tekst in Excel te passen?