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 .