Hvordan angi en kolonnebredde for et Excel-regneark med VBA?

Oppdatert: august 2021; Fungerer på Excel 365, 2019, 2016.

I dagens Excel-automatiseringsveiledning vil vi lære hvordan du raskt endrer bredden på en regnearkkolonne etter behov – men programmatisk ved hjelp av VBA (Visual Basic for Applications).

Forutsetninger

For å skrive VBA-kode, må du først og fremst sørge for at utviklerfanen er aktivert. Hvis du er usikker på prosedyren, sørg for å se nærmere på vår detaljerte prosedyre .

• Åpne Microsoft Excel på Windows-datamaskinen .
• På hovedbåndet hit Developer .
• Trykk på Visual Basic - kommandoen. Dette vil åpne VBA Editor .
• I prosjektutforskeren på venstre side markerer du et spesifikt ark der du skal sette inn koden din. Alternativt kan du sette inn en ny modul eller legge til koden vår til en eksisterende VBA-modul.

Innstilling av én kolonnebredde

I dette eksemplet velger vi én kolonne i det aktive regnearket og endrer det tilsvarende.

• Bruk VBA Editor, Kopier følgende kode til regnearket eller modulen.

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

• Kjør koden din ved å trykke på F5 eller velg Kjør >> Kjør Sub eller Form.
• Lagre arbeidet ditt ved å trykke på Fil >> Lagre eller Disk-ikonet.

Endre bredden på et område med flere kolonner

I dette eksemplet velger vi en rekke kolonner, og endrer deretter bredden.

Du kan bruke koden på samme måte som beskrevet i forrige avsnitt.

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

Neste skritt

Begynner du med VBA? Sørg for å se på VBA grunnleggende for Excel-veiledning .