Como configurar o ancho da columna dunha folla de cálculo de Excel con VBA?

Actualizado: agosto de 2021; Funciona en Excel 365, 2019, 2016.

No titorial de automatización de Excel de hoxe aprenderemos a cambiar rapidamente o ancho dunha columna da folla de traballo segundo sexa necesario, pero mediante programación usando VBA (Visual Basic para aplicacións).

Requisitos previos

Para escribir código VBA, antes de nada, terás que asegurarte de que a túa pestana de programador estea activada. Se non estás seguro sobre o procedemento, asegúrate de consultar o noso procedemento detallado .

• No seu ordenador Windows, abra Microsoft Excel .
• Na cinta principal toque Desenvolvedor .
• Preme o comando Visual Basic . Isto abrirá o Editor de VBA .
• No explorador de proxectos do lado esquerdo, resalta unha folla específica na que inserirás o teu código. Alternativamente, pode inserir un novo módulo ou engadir o noso código a un módulo VBA existente.

Configurando o ancho dunha columna

Neste exemplo, seleccionaremos unha columna da folla de traballo activa e modificala en consecuencia.

• Usando o Editor de VBA, copie o seguinte código na súa folla de traballo ou módulo.

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

• Executa o teu código premendo F5 ou selecciona Executar >> Executar Sub ou Formulario.
• Garda o teu traballo premendo Ficheiro >> Gardar ou a icona Disco.

Cambia o ancho dun intervalo de varias columnas

Neste exemplo escollemos un intervalo de columnas , despois cambiamos o ancho.

Podes aplicar o código do mesmo xeito que se describe na sección 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

Próximos pasos

Comezando con VBA? Asegúrate de consultar os conceptos básicos de VBA para a guía de Excel .