Fonte de célula VBA
No VBA, você pode alterar as propriedades da fonte usando a propriedade VBA Font do objeto Range. Digite o seguinte código no Editor VBA e você verá uma lista de todas as opções disponíveis:
| 1 | Intervalo ("A1) .Font. |
Discutiremos algumas das propriedades mais comuns a seguir.
Mudar a cor da fonte
Existem algumas maneiras de definir as cores da fonte.
vbColor
A maneira mais fácil de definir cores é com vbColors:
| 1 | Intervalo ("a1"). Font.Color = vbRed |
No entanto, você está muito limitado em termos de cores disponíveis. Estas são as únicas opções disponíveis:
Cor - RGB
Você também pode definir cores com base em RGB (Red Green Blue). Aqui você insere valores de cor entre 0-255 para Vermelho, Verde e Azul. Usando essas três cores, você pode fazer qualquer cor:
| 1 | Intervalo ("a1"). Font.Color = RGB (255,255,0) |
ColorIndex
O VBA / Excel também possui uma propriedade ColorIndex. Isso torna as cores predefinidas disponíveis para você. No entanto, eles são armazenados como números de índice, o que torna difícil saber qual é a cor:
| 1 | Intervalo ("a1"). Font.ColorIndex =… |
Escrevemos um artigo sobre códigos de cores VBA, incluindo uma lista dos códigos VBA ColorIndex. Lá você pode aprender mais sobre cores.
Tamanho da fonte
Isso definirá o tamanho da fonte para 12:
| 1 | Intervalo ("a1"). Font.Size = 12 |
ou para 16:
| 1 | Intervalo ("a1"). Font.Size = 16 |
Negrito
É fácil definir a fonte de uma célula como Negrito:
| 1 | Intervalo ("A1"). Font.Bold = True |
ou para limpar a formatação em negrito:
| 1 | Intervalo ("A1"). Font.Bold = False |
Nome da fonte
Para alterar o nome de uma fonte, use o Nome propriedade:
| 1 | Intervalo ("A1"). Font.Name = "Calibri" |
| 1 | Intervalo ("A1"). Font.Name = "Arial" |
| 1 | Intervalo ("A1"). Font.Name = "Times New Roman" |
Estilo de Célula
O Excel oferece a capacidade de criar “Estilos” de células. Os estilos podem ser encontrados no Faixa inicial> Estilos:
Os estilos permitem que você salve a formatação de célula desejada. Em seguida, atribua esse estilo a uma nova célula e toda a formatação da célula será aplicada instantaneamente. Incluindo tamanho da fonte, cor da célula, status de proteção da célula e qualquer outra coisa disponível no menu de formatação da célula:
Pessoalmente, para muitos dos modelos em que trabalho, geralmente crio um estilo de célula de "Entrada":
| 1 | Intervalo ("a1"). Estilo = "Entrada" |
Ao usar estilos, você também pode identificar facilmente os tipos de células em sua planilha. O exemplo a seguir percorrerá todas as células da planilha e mudará qualquer célula com Style = “Input” para “InputLocked”:
| 1234567 | Dim Cell como RangePara cada célula em ActiveSheet.CellsSe Cell.Style = "Input" entãoCell.Style = "InputLocked"Fim sePróxima Célula |
