Fuente VBA Cell
En VBA, puede cambiar las propiedades de fuente utilizando la propiedad de fuente de VBA del objeto de rango. Escriba el siguiente código en el Editor de VBA y verá una lista de todas las opciones disponibles:
1 | Rango ("A1) .Fuente. |
Discutiremos algunas de las propiedades más comunes a continuación.
Cambiar el color de la fuente
Hay varias formas de configurar los colores de la fuente.
vbColor
La forma más sencilla de establecer colores es con vbColors:
1 | Rango ("a1"). Font.Color = vbRed |
Sin embargo, está muy limitado en términos de colores disponibles. Estas son las únicas opciones disponibles:
Color: RGB
También puede establecer colores basados en RGB (rojo, verde, azul). Aquí ingresa valores de color entre 0-255 para rojo, verde y azul. Usando esos tres colores puedes hacer cualquier color:
1 | Rango ("a1"). Font.Color = RGB (255,255,0) |
Indice de color
VBA / Excel también tiene una propiedad ColorIndex. Esto hace que los colores prediseñados estén disponibles para usted. Sin embargo, se almacenan como números de índice, lo que dificulta saber qué color es qué:
1 | Rango ("a1"). Font.ColorIndex =… |
Escribimos un artículo sobre los códigos de color de VBA, incluida una lista de los códigos de ColorIndex de VBA. Allí puedes aprender más sobre los colores.
Tamaño de fuente
Esto establecerá el tamaño de fuente en 12:
1 | Rango ("a1"). Font.Size = 12 |
o hasta 16:
1 | Rango ("a1"). Font.Size = 16 |
Negrita
Es fácil establecer una fuente de celda en negrita:
1 | Rango ("A1"). Font.Bold = True |
o para borrar el formato en negrita:
1 | Rango ("A1"). Font.Bold = False |
Nombre de la fuente
Para cambiar el nombre de una fuente, use el Nombre propiedad:
1 | Rango ("A1"). Font.Name = "Calibri" |
1 | Rango ("A1"). Font.Name = "Arial" |
1 | Rango ("A1"). Font.Name = "Times New Roman" |
Estilo de celda
Excel ofrece la posibilidad de crear "Estilos" de celda. Los estilos se pueden encontrar en el Inicio Cinta> Estilos:
Los estilos le permiten guardar el formato de celda deseado. Luego, asigne ese estilo a una nueva celda y todo el formato de celda se aplicará instantáneamente. Incluyendo tamaño de fuente, color de celda, estado de protección de celda y cualquier otra cosa disponible en el menú de formato de celda:
Personalmente, para muchos de los modelos en los que trabajo, suelo crear un estilo de celda de "Entrada":
1 | Rango ("a1"). Estilo = "Entrada" |
Al usar estilos, también puede identificar fácilmente los tipos de celda en su hoja de trabajo. El siguiente ejemplo recorrerá todas las celdas de la hoja de trabajo y cambiará cualquier celda con Style = "Input" a "InputLocked":
1234567 | Atenuar celda como rangoPara cada celda en ActiveSheet.CellsSi Cell.Style = "Input", entoncesCell.Style = "InputLocked"Terminara siSiguiente celda |