Hvordan indstilles kolonnebredden for et Excel-regneark med VBA?

Opdateret: august 2021; Virker på Excel 365, 2019, 2016.

I dagens Excel-automatiseringsvejledning lærer vi, hvordan du hurtigt ændrer bredden af ​​en regnearkskolonne efter behov – men programmæssigt ved hjælp af VBA (Visual Basic for Applications).

Forudsætninger

For at skrive VBA-kode skal du først og fremmest sikre, at din udviklerfane er aktiveret. Hvis du er usikker på proceduren, så sørg for at se nærmere på vores detaljerede procedure .

• Åbn Microsoft Excel på din Windows-computer .
• På hovedbåndet hit Developer .
• Tryk på Visual Basic -kommandoen. Dette åbner VBA Editor .
• Fremhæv et specifikt ark, hvor du vil indsætte din kode i projektopdageren til venstre. Alternativt kan du indsætte et nyt modul eller tilføje vores kode til et eksisterende VBA-modul.

Indstilling af én kolonnebredde

I dette eksempel vælger vi én kolonne i det aktive regneark og ændrer det i overensstemmelse hermed.

• Brug VBA Editor til at kopiere følgende kode til dit regneark eller modul.

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

• Kør din kode ved at trykke på F5 eller vælg Kør >> Kør Sub eller Form.
• Gem dit arbejde ved at trykke på Filer >> Gem eller diskikonet.

Skift bredden af ​​et område med flere kolonner

I dette eksempel vælger vi en række kolonner og ændrer derefter bredden.

Du kan anvende koden på samme måde som beskrevet i det foregående afsnit.

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

Næste skridt

Starter du med VBA? Sørg for at se nærmere på VBA basics for Excel guide .