Como dar formato a las fuentes en Excel - PROGRAMAR EN VBA MACROS DE EXCEL

Seguramente en un sin número de caso cuando se está realizando una macro se debe dar formato a las distintas celdas, presentándose el problema que algo tan simple no se recuerda como se hacer; pues bien este post tiene como finalidad recordar como dar formato a las fuentes en Excel; anteriormente se trabajó con cadenas de texto, tal vez te interese como trabajar con cadenas de texto, en ese caso visita el link.

Se ha publicado contenido relacionado con los formatos de fuente de Excel que quizás sean de utilidad como son: como establecer ancho alto mostrar ocultar filas y columnas, establecer color y bordes de celdas, determinar color de celdas, sumar celdas de un mismo color.

Si necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet.

Descargando el ejemplo desde el link del final tendrás acceso a un archivo que contiene los mismos códigos que el que se muestra seguidamente, código con el cual se puede dar distintos tipos de formatos a la fuentes de Excel, como ser: color, tamaño, tipo, alineación, cursiva, mayúscula, etc.

Para establecer el formato Negrita en la celda C2 se usa:
Range(«C2»).Font.Bold = True

Si se requiere establecer una fuente en especial se usa el código que sigue, debiendo poner el nombre correcto de la fuente requerida:
Range(«C3»).Font.Name = «Arial»

Para establecer el tamaño de la fuente se utiliza:

Range(«C4»).Font.Size = 8

Si se desea subrayar la fuente, se puede usar:

Range(«C5»).Font.Underline = xlUnderlineStyleSingle

Para dar un vista de letra cursiva se debe utilizar:

Range(«C6»).Font.Italic = True

Siempre es preciso establecer el color de la fuente, se puede hacer con, teniendo la precaución de elegir el número del color deseado:

Range(«C7»).Font.Color = -16776961

Para la alineación horizontal de la fuente Derecha, Izquierda, Centrado, Justificado y Distribuido se usan los siguientes códigos respectivamente

Range(«C8»).HorizontalAlignment = xlRight

Range(«C9»).HorizontalAlignment = xlLeft

Range(«C10»).HorizontalAlignment = xlCenter

Range(«C11»).HorizontalAlignment = xlJustify

Range(«C12»).HorizontalAlignment = xlDistributed

Si se precisa dar formato para alineación vertical de la fuente, se utiliza para centrar, superior e inferior los siguientes códigos:

Range(«C13»).VerticalAlignment = xlCenter

Range(«C14»).VerticalAlignment = xlTop

Range(«C15»).VerticalAlignment = xlBottom

Para transformar en Mayúscula y Minúscula se usa:

Range(«C16») = UCase(Range(«C16»))

Range(«C17») = LCase(Range(«C17»))

Considera aportar a los fines de seguir manteniendo el sitio, 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
‘Negrita
Range(«C2»).Font.Bold = True
‘Fuente Arial
Range(«C3»).Font.Name = «Arial»
‘Tamaño fuente 12
Range(«C4»).Font.Size = 8
‘Subrayado
Range(«C5»).Font.Underline = xlUnderlineStyleSingle
‘Cursiva
Range(«C6»).Font.Italic = True
‘Color rojo
Range(«C7»).Font.Color = -16776961
‘Alineación horizontal derecha
Range(«C8»).HorizontalAlignment = xlRight
‘Alineación horizontal izquierda
Range(«C9»).HorizontalAlignment = xlLeft
‘Alineación horizontal centro
Range(«C10»).HorizontalAlignment = xlCenter
‘Alineación horizontal justificado
Range(«C11»).HorizontalAlignment = xlJustify
‘Alineación horizontal distribuido
Range(«C12»).HorizontalAlignment = xlDistributed
‘Alineación vertical superior
Range(«C13»).VerticalAlignment = xlCenter
‘Alineación vertical centro
Range(«C14»).VerticalAlignment = xlTop
‘Alineación vertical inferior
Range(«C15»).VerticalAlignment = xlBottom

‘Mayúscula
Range(«C16») = UCase(Range(«C16»))
‘Minúscula
Range(«C17») = LCase(Range(«C17»))
Application.ScreenUpdating = True
End Sub
Sub borraformato()
Application.ScreenUpdating = False
Range(«c2:c17»).ClearFormats
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