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?
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen