Hoe een Excel-spreadsheetkolombreedte instellen met VBA?

Bijgewerkt: augustus 2021; Werkt op Excel 365, 2019, 2016.

In de Excel-automatiseringstutorial van vandaag leren we hoe we snel de breedte van een werkbladkolom kunnen wijzigen als dat nodig is - maar programmatisch met VBA (Visual Basic for Applications).

Vereisten

Om VBA-code te schrijven, moet u er eerst en vooral voor zorgen dat uw ontwikkelaarstabblad is ingeschakeld. Als u niet zeker bent van de procedure, bekijk dan zeker onze gedetailleerde procedure .

• Open Microsoft Excel op uw Windows-computer .
• Druk op het hoofdlint op Developer .
• Druk op de Visual Basic -opdracht. Hiermee wordt de VBA-editor geopend .
• Markeer in de projectverkenner aan de linkerkant een specifiek blad waarin u uw code invoegt. Als alternatief kunt u een nieuwe module invoegen of onze code toevoegen aan een bestaande VBA-module.

Eén kolombreedte instellen

In dit voorbeeld zullen we één kolom in het actieve werkblad selecteren en dienovereenkomstig aanpassen.

• Gebruik de VBA-editor en kopieer de volgende code naar uw werkblad of module.

Sub Set_Column_Width()

Dim MySheet As Worksheet
Set MySheet = ActiveSheet

' Select one or multiple columns, set your column width as needed

With MySheet.Columns("B")

    .ColumnWidth = 50
End With

End Sub

• Voer uw code uit door op F5 te drukken of kies Uitvoeren >> Voer sub of formulier uit.
• Sla uw werk op door op Bestand >> Opslaan of op het schijfpictogram te drukken.

Breedte van een bereik met meerdere kolommen wijzigen

In dit voorbeeld kiezen we een reeks kolommen en wijzigen we de breedte.

U kunt de code op dezelfde manier toepassen als beschreven in de vorige sectie.

Sub Set_Column_Range_Width()

Dim MySheet As Worksheet

Set MySheet = ActiveSheet

' Set your column width as needed
With MySheet.Range("A:F")

    .ColumnWidth = .ColumnWidth * 1.5
End With

End Sub

Volgende stappen

Beginnen met VBA? Zorg ervoor dat u de basisprincipes van VBA voor de Excel-gids bekijkt .