Como establecer alto ancho ocultar mostrar filas y columnas




Hoy muestro como establecer el alto de fila y el ancho de columna; ya anteriormente se expusieron post relacionados con el formato en Excel como dar formato tamaño, tipo, negrita, cursiva, subrayado y color a la fuente de Excel, establecer color y bordes de celdas, determinar color de celdas, sumar celdas de un mismo color.

Si estás leyendo este post es, porque estás desarrollando un proyecto que incluye Macros en Excel; existen en internet un sin número de cursos que enseñan a programar en VBA, codificación necesaria para programar macros, de todos ellos te recomiendo unos de los mejores cursos on line que he visto en internet.






Domina Excel Hoy
Para establecer el alto de una fila se utiliza el código siguiente, que otorga a la fila 4 un alto de fila igual a 20:

Range("C4").RowHeight = 20

Si lo que necesitamos es determinar el ancho de una columna, debes utilizar el siguiente código que permite establecer un ancho de columna de 15.

Range("C5").ColumnWidth = 15

Se puede establecer que el ancho de columna y alto de filas sea automático, es decir la columna y fila se agrandarán hasta el mayor espacio que ocupan los datos contenidos en las celdas, ello se puede logra con el código:

Range("C:E").EntireColumn.AutoFit

Range("2:7").EntireRow.AutoFit


Para ocultar la fila 6 por ejemplo se usa:

Range("A6").EntireRow.Hidden = True


Otro forma de referenciar una fila entera, en este caso la fila 7, se utiliza; si necesitas aprender a seleccionar o referenciar celdas visita el link:

Rows("7:7").EntireRow.Hidden = True


Para ocultar la columna D se utiliza:

Range("D6").EntireColumn.Hidden = True


Otra forma de seleccionar la columna entera se muestra en el código que le sigue:

Columns("F:F").EntireColumn.Hidden = True


Considera la posibilidad de Aportar a los fines de seguir manteniendo el sitio, descarga desde el link del final el ejemplo; suscribe al blog para recibir en tu correo todas las actualizaciones, dispones también de un canal de You Tube donde encontrarás explicaciones de macros con mayor detalle.

Código que se inserta en un módulo



Sub DarFormato()
Application.ScreenUpdating = False

'Alto de fila
Range("C4").RowHeight = 20

'Alto automático
Range("2:7").EntireRow.AutoFit

'Ancho de columna
Range("C5").ColumnWidth = 15

'Ancho automático
Range("C:E").EntireColumn.AutoFit

'Oculta la fila 6
Range("A6").EntireRow.Hidden = True

'Otro forma de referenciar una fila entera
Rows("7:7").EntireRow.Hidden = True

'Oculta la columna D
Range("D6").EntireColumn.Hidden = True

'Otro forma de referenciar una columna entera
Columns("F:F").EntireColumn.Hidden = True

Application.ScreenUpdating = True
End Sub
Sub borraformato()
Application.ScreenUpdating = False
Range("C:E").ColumnWidth = 8
Range("2:7").RowHeight = 12
Range("D6").EntireRow.Hidden = False
Rows("7:7").EntireRow.Hidden = False
Range("D6").EntireColumn.Hidden = False
Columns("F:F").EntireColumn.Hidden = False
Application.ScreenUpdating = True
End Sub



Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.


If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends