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