¿Cómo establecer el ancho de columna de una hoja de cálculo de Excel con VBA?

¿Cómo establecer el ancho de columna de una hoja de cálculo de Excel con VBA?

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

En el tutorial de automatización de Excel de hoy, aprenderemos cómo cambiar rápidamente el ancho de una columna de la hoja de trabajo según sea necesario, pero mediante programación usando VBA (Visual Basic para aplicaciones).

requisitos previos

Para escribir código VBA, primero y ante todo, deberá asegurarse de que su pestaña de desarrollador esté habilitada. Si no está seguro acerca del procedimiento, asegúrese de consultar nuestro procedimiento detallado .

  • En su computadora con Windows, abra Microsoft Excel .
  • En la cinta principal, presione Desarrollador .
  • Presiona el Comando de Visual Basic . Esto abrirá el Editor de VBA .
  • En el explorador de proyectos del lado izquierdo, resalte una hoja específica en la que insertará su código. Alternativamente, puede insertar un nuevo módulo o agregar nuestro código a un módulo VBA existente.

¿Cómo establecer el ancho de columna de una hoja de cálculo de Excel con VBA?

Establecer un ancho de columna

En este ejemplo, seleccionaremos una columna en la hoja de trabajo activa y la modificaremos en consecuencia.

  • Con el editor de VBA, copie el siguiente código en su hoja de trabajo o 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
  • Ejecute su código presionando F5 o seleccione Ejecutar >> Ejecutar Sub o Formulario.
  • Guarde su trabajo presionando Archivo >> Guardar o el ícono Disco.

Cambiar el ancho de un rango de varias columnas

En este ejemplo, elegimos un rango de columnas y luego cambiamos el ancho.

Puede aplicar el código de la misma manera que se describe en la 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

¿Empezando con VBA? Asegúrese de consultar los conceptos básicos de VBA para la guía de Excel .


Cómo configurar Outlook para abrir respuestas y reenvíos en una ventana emergente

Cómo configurar Outlook para abrir respuestas y reenvíos en una ventana emergente

Aprenda cómo cambiar la configuración en Microsoft Outlook para abrir respuestas y reenvíos en una ventana emergente, mejorando su eficiencia al gestionar correos electrónicos.

7 soluciones sencillas para arreglar Fallout 4 que falla en el problema de la PC

7 soluciones sencillas para arreglar Fallout 4 que falla en el problema de la PC

¿Fallout 4 se bloquea al iniciar? ¡¡No es un gran trato!! En este artículo, obtendrá las mejores y más sencillas soluciones que solucionarán el bloqueo de Fallout 4 en la PC.

[CORREGIDO] ¿Cómo arreglar el cambio de avatar de Discord demasiado rápido?

[CORREGIDO] ¿Cómo arreglar el cambio de avatar de Discord demasiado rápido?

Obteniendo Discord, ¿estás cambiando tu avatar demasiado rápido? Resuelve el error de cambio de avatar en Discord con las soluciones enumeradas en este artículo.

Solucione el error ESRV_SVC_QUEENCREEK en Windows 10/11 [3 CORRECCIONES]

Solucione el error ESRV_SVC_QUEENCREEK en Windows 10/11 [3 CORRECCIONES]

Si se pregunta cómo corregir el error ESRV_SVC_QUEENCREEK en Windows 10/11, siga estas correcciones y soluciones efectivas para resolver el problema.

[Mejores soluciones] Arreglar DS4Windows que no detecta el controlador en Windows 10

[Mejores soluciones] Arreglar DS4Windows que no detecta el controlador en Windows 10

¿DS4Windows no detecta el controlador en Windows 10? Aquí hay una solución. Pruebe estas correcciones y comience a usar el controlador con su juego de PC favorito.

[CORREGIDO] Errores de Rise of the Tomb Raider, fallas, caída de FPS, NTDLL, error al iniciar y más

[CORREGIDO] Errores de Rise of the Tomb Raider, fallas, caída de FPS, NTDLL, error al iniciar y más

Obtener errores de Rise of the Tomb Raider como bloqueos, congelamiento, FPS bajo y otros, luego siga las correcciones dadas una por una para jugar el juego fácilmente...

Cómo hacer que la semana del calendario comience con el lunes (EXPLICACIÓN)

Cómo hacer que la semana del calendario comience con el lunes (EXPLICACIÓN)

Para configurar su calendario para que comience la semana con el lunes, debe buscar en la configuración del calendario. La opción suele estar a un par de toques/clics de distancia.

Cómo exportar mensajes de chat de Discord

Cómo exportar mensajes de chat de Discord

Discord ofrece un historial de mensajes ilimitado, pero si desea exportar sus mensajes, deberá utilizar una solución alternativa. Así es cómo.

[Solucionado] El controlador WudfRd no pudo cargar el error 219 en Windows 10

[Solucionado] El controlador WudfRd no pudo cargar el error 219 en Windows 10

Si encuentra que el Driver WudfRd no pudo cargar el error con un ID de evento 219 en Windows 10, siga las correcciones que se proporcionan aquí y resuelva el error 219 de manera efectiva.

Error de instalación detenida en Xbox One [11 formas principales]

Error de instalación detenida en Xbox One [11 formas principales]

Recibir el error de detención de la instalación de Xbox One al intentar instalar juegos, luego sigue las correcciones y resuelve el error de instalación detenida en Xbox One.