Com configurar lamplada de columna dun full de càlcul dExcel amb VBA?

Actualitzat: agost de 2021; Funciona amb Excel 365, 2019, 2016.

Al tutorial d'automatització d'Excel d'avui, aprendrem a canviar ràpidament l'amplada d'una columna de full de treball segons sigui necessari, però amb programació mitjançant VBA (Visual Basic per a aplicacions).

Requisits previs

Per escriure codi VBA, primer haureu d'assegurar-vos que la vostra pestanya de desenvolupador estigui habilitada. Si no esteu segur del procediment, assegureu-vos de consultar el nostre procediment detallat .

• Al vostre ordinador Windows, obriu Microsoft Excel .
• A la cinta principal, toqueu Desenvolupador .
• Premeu l' ordre de Visual Basic . Això obrirà l' editor VBA .
• A l'explorador de projectes del costat esquerre, ressalteu un full específic en el qual inserireu el vostre codi. Alternativament, podeu inserir un mòdul nou o afegir el nostre codi a un mòdul VBA existent.

Configuració d'una amplada de columna

En aquest exemple, seleccionarem una columna del full de treball actiu i la modificarem en conseqüència.

• Utilitzant l'Editor VBA, copieu el codi següent al vostre full de treball o mòdul.

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

• Executeu el vostre codi prement F5 o seleccioneu Executar >> Executar sub o Formulari.
• Deseu el vostre treball prement Fitxer >> Desa o la icona de disc.

Canvia l'amplada d'un rang de columnes múltiples

En aquest exemple escollim un rang de columnes i, a continuació, canviem l'amplada.

Podeu aplicar el codi de la mateixa manera que es descriu a la secció anterior.

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

Propers passos

Començar amb VBA? Assegureu-vos de consultar els conceptes bàsics de VBA per a la guia d'Excel .