Ga naar hoofdinhoud

Hoe kolombreedte automatisch aanpassen in Excel?

Auteur: Xiaoyang Laatst gewijzigd: 2014-11-29

In Excel kunt u de kolombreedte aanpassen aan de celinhoud door de AutoFit Kolombreedte voorzien zijn van. Soms wilt u dat de kolombreedte automatisch wordt bijgewerkt op basis van de langste tekst in die kolom, dat wil zeggen dat wanneer u een lange tekstreeks in de cel invoert, de kolombreedte automatisch wordt aangepast aan de lengte van de inhoud. Is dit mogelijk om het in Excel af te handelen?

Kolombreedte automatisch aanpassen met VBA-code

Kolommen automatisch aanpassen met sneltoetsen


pijl blauw rechts bel Kolombreedte automatisch aanpassen met VBA-code

Het lijkt erop dat de kolombreedte automatisch wordt bijgewerkt met de lengte van de celinhoud, is een interessante truc, je kunt de volgende VBA-code gebruiken om het af te maken.

1. Houd de ALT + F11 toetsen, en het opent de Microsoft Visual Basic for Applications-venster.

2. Dubbelklik vervolgens Dit Werkboek in de VBA-project objecten in het linkerdeelvenster om een ​​lege module te openen en kopieer en plak vervolgens de volgende VBA-code in de module:

VBA-code: kolom automatisch aanpassen met in werkmap

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

doc-autofit-kolombreedte-1

3. Sla deze code vervolgens op en sluit deze. Als u nu lange tekst in een cel invoert, wordt de kolombreedte automatisch aangepast aan de inhoud.


pijl blauw rechts bel Kolommen automatisch aanpassen met sneltoetsen

Als je meerdere kolommen hebt waarvan een deel van de celinhoud verborgen is zoals in de volgende schermafbeelding, wil je de kolombreedte in één keer aanpassen aan hun inhoud. De volgende sneltoetsen kunnen u helpen.

doc-autofit-kolombreedte-1

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

2. Houd ingedrukt anders toets en druk op H+O+I, en nu zijn uw kolombreedten onmiddellijk automatisch aan hun inhoud aangepast. Zie screenshot:

doc-autofit-kolombreedte-1

Opmerking: Als u Excel 2003 en eerdere versies gebruikt, moet u deze sneltoetsen gebruiken: ALT+O+C+A.


Gerelateerde artikelen:

Hoe rijhoogte van samengevoegde cellen automatisch aanpassen in Excel?

Hoe kan ik de rijhoogte of kolombreedte aanpassen aan tekst in Excel?

Beste Office-productiviteitstools

🤖 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

Omschrijving


Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!

 

Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
saya tertarik dengan code VB yang anda terapkan tentang Cara mengisi kolom excel dengan VBA, jika pertanyaannya begini Bagaimana cara mengisi kolom dan baris tertentu di excel dnegan VBA?
jadi yang terisi adalah kolom dan barisnya secara otomatis? mohon jawabannya..
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations