Saltar al contenido
PROGRAMAR EN VBA MACROS DE EXCEL

Como establecer alto ancho ocultar mostrar filas y columnas

(adsbygoogle = window.adsbygoogle || []).push({});

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.

Suscribe a nuestro canal de You Tube para recibir en tu correo vídeos explicativos sobre macros interesantes, como  por ejemplo formulario que crea un listado de todas las hojas para poder luego seleccionarlas, buscar en listbox mientras escribes en textbox, ordenar hojas libro excel por su nombre, conectar Excel con Access y muchos ejemplos más.

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.


(adsbygoogle = window.adsbygoogle || []).push({});

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      

Entradas relacionadas

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Comentarios (6)

Hi my family member! I want to say that thispost is amazing, nice written and include almost all important infos.I’d like to peer more posts like this .

Responder

hello!,I like your writing so much! share we communicate more about your post on AOL? I need an expert on this area to solve my problem. May be that’s you! Looking forward to see you.

Responder

I not to mention my friends were found to be checking out the good tactics on the blog then at once got a horrible suspicion I never thanked the web blog owner for them. All of the young boys happened to be as a result thrilled to study all of them and already have actually been enjoying these things. We appreciate you truly being really thoughtful and then for opting for variety of fine ideas most people are really wanting to be aware of. Our sincere regret for not expressing appreciation to you sooner.

Responder

very nice put up, i certainly love this website, carry on it

Responder

I’ve been absent for some time, but now I remember why I used to love this web site. Thanks , I will try and check back more frequently. How frequently you update your site?

Responder

Hmm is anyone else encountering problems with the images on this blog loading? I’m trying to figure out if its a problem on my end or if it’s the blog. Any responses would be greatly appreciated.

Responder