Macros para dar formato en Excel.

Los siguientes macros son muy útiles ya que permiten dar formato a celdas, los siguientes ejemplos trabajan con la celda activa.

ActiveCell.Font.Bold = ‘True Convierte en Negritas la fuente (texto) de la celda activa.
ActiveCell.Fonto.Bold = ‘False …’ Desactiva las Negritas de la celda activa.

Si quieres especificar la celda que tiene que cambiar a Negritas entonces debes poner Range, Ejemplo:

Range(“A1”).Font.Bold = True ‘Convierte en negritas la fuente de la celda A1.

Para convertir a negritas un rango de celdas escribimos:

Range(“A1:A10”).Font.Bold = True ‘Convierte en negritas la fuente del rango de celdas A1:A10.

También puedes seleccionar la celda A1 y después cambiar el formato a Cursiva de la celda seleccionada:

Range(“A1”).Select …’Selecciona la celda A1
Selection.Font.Italic = True …’Convierte a Cursiva la celda seleccionada

Para subrayar el texto de la celda A1 utilizamos:

Range(“A1”).Font.Underline = xlUnderlineStyleSingle

Si queremos doble subrayado:

Range(“A1”).Font.Underline = xlUnderlineStyleDouble

Podemos también cambiar el nombre y tamaño de la fuente de la celda A1:

Range(“A1”).Font.Size = 18
Range(“A1”).Font.Name = “Arial”

O el color de la fuente de A1:

Range(“A1”).Font.ColorIndex = 5 …’Convierte a color azul la fuente de la celda A1.
Range(“A1”).Font.Color = RGB( 255, 0 , 0 ) …’Convierte a color rojo la fuente de la celda A1.

Se utiliza Interior para cambiar el color de una celda en lugar de Font:

Range(“A1”).Interior.ColorIndex = 5 …’Convierte a color azul la celda A1.
Range(“A1”).Interior.Color = RGB( 255, 0 , 0 ) …’Convierte a color rojo la celda A1.

Para combinar celdas utilizamos MergeCells:

Range(“A1:B1”).MergeCells = True …’Combina las celdas A1:B1.

Para descombinarlas utilizamos:

Range(“A1:B1”).MergeCells = False

Si deseamos ajustar el texto ponemos WrapText:

Range(“A1:B1”).WrapText = True …’False si queremos deshabilitar el ajuste de texto.

Estos sencillos códigos ya podemos crear una macro que cambie los formatos de las diferentes celdas o rangos a nuestro gusto y de manera automática.

Fuente:


ecap

Macro para obtener 56 colores de VBA

Bookmark the permalink.

Leave a Reply

Your email address will not be published. Required fields are marked *