Nadat u een werkblad met VBA hebt gemanipuleerd, kan het nodig zijn om uw kolommen automatisch aan te passen om het mooist mogelijke eindresultaat te presenteren. Hier leest u hoe u kolommen automatisch kunt aanpassen met VBA.
Kolom automatisch aanpassen met VBA
Deze code past automatisch in de kolommen A en B. De automatische aanpassing wordt toegepast op het actieve blad.
1 | Kolommen ("A:B").Gehele kolom.Automatisch aanpassen |
Alle gebruikte kolommen automatisch aanpassen
Wat als u alle gebruikte kolommen in een werkblad automatisch wilt aanpassen? Gebruik de bovenstaande methode in combinatie met Tel het aantal gebruikte kolommen en een lus.
De volgende code past automatisch alle gebruikte kolommen aan met behulp van VBA:
1234567891011 | Sub AutofitAllUsed()Dim x als geheel getalVoor x = 1 Naar ActiveSheet.UsedRange.Columns.CountKolommen(x).Gehele kolom.autofitVolgende xEinde sub |