Macros para dar formato a textos y a celdas en Excel.

Macros que te servirán para dar formato a textos y a celdas en Excel.

Dar formato a textos o a celdas por medio de Macros es algo indispensable para cualquiera que se quiere iniciar en este maravilloso mundo de Macros en Excel. Los siguientes códigos te ayudarán a crear procedimientos para dar formato a tus textos.

Estos códigos 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 = 16
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.



Si quieres conocer los números de color que aplican a ColorIndex sigue este link  Macro obtener los 56 colores de ColorIndex Excel VBA.


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.


Con 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.

En nuestro Curso de Macros podrás aprender a crear potentes aplicaciones que te ayudarán a ahorrar gran cantidad de tiempo al crear reportes, informes, consolidar datos, etc.

Contáctanos: atencioncap@ecapmexico.net
Teléfono en Guadalajara: (52) 33 1404-6565