Hur ställer man in en kolumnbredd för ett Excel-kalkylblad med VBA?

Uppdaterad: augusti 2021; Fungerar på Excel 365, 2019, 2016.

I dagens självstudiekurs för Excel-automatisering kommer vi att lära oss hur du snabbt ändrar bredden på en kalkylbladskolumn efter behov – men programmatiskt med VBA (Visual Basic for Applications).

Förutsättningar

För att skriva VBA-kod måste du först och främst se till att din utvecklarflik är aktiverad. Om du är osäker på proceduren, se till att titta närmare på vår detaljerade procedur .

• Öppna Microsoft Excel på din Windows-dator .
• På menyfliksområdet träffar du Developer .
• Tryck på kommandot Visual Basic . Detta öppnar VBA Editor .
• I den vänstra projektutforskaren markerar du ett specifikt ark där du ska infoga din kod. Alternativt kan du infoga en ny modul eller lägga till vår kod till en befintlig VBA-modul.

Ställa in en kolumnbredd

I det här exemplet väljer vi en kolumn i det aktiva arbetsbladet och ändrar det därefter.

• Använd VBA Editor, Kopiera följande kod till ditt kalkylblad eller din 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 kod genom att trycka på F5 eller välj Kör >> Kör Sub eller Form.
• Spara ditt arbete genom att trycka på Arkiv >> Spara eller diskikonen.

Ändra bredden på ett intervall med flera kolumner

I det här exemplet väljer vi ett intervall av kolumner och ändrar sedan bredden.

Du kan använda koden på samma sätt som beskrivs i föregående 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

Nästa steg

Börjar du med VBA? Se till att titta på VBA-grunderna för Excel-guiden .