Como configurar a cor da fonte do texto de Excel con VBA?

Neste titorial, aprenderemos a usar Visual Basic para aplicacións (VBA) para modificar o tamaño e o estilo do texto nunha cela de Excel en función do contido da cela. Este titorial aplícase a Excel 365, 2021, 2019 e 2016.

Preliminais

Se es novo no desenvolvemento de Excel VBA, recomendarei que antes de pasar polo titorial consultes o noso manual de macros de Excel VBA.

Antes de comezar a codificar, debes activar a pestana de programador en Excel na fita, xa que, se non, non poderás acceder ao teu Editor de Visual Basic.

Cambia as propiedades do texto das celas de Excel con VBA

Define a túa folla de cálculo

Comezaremos definindo unha folla de cálculo de Excel que usaremos como exemplo. Non dubide en usalo para seguir este tutorial.

• Abra Microsoft Excel e cree un novo libro de traballo de Excel habilitado para macros ( .xlsm ) chamado Excel_Macros.xlsm
• Garda a túa folla de cálculo na túa unidade local.
• Na folla de traballo Sheet1 , vai adiante e engade a seguinte táboa:

• Agora, desde a cinta, preme Fórmulas .
• A continuación, prema Definir nome .
• Define un intervalo con nome no que aplicarás o teu código VBA como se mostra a continuación e prema Aceptar .

Use a propiedade VBA Cell.Font para cambiar a cor e o estilo da fonte

• Move á pestana Programador .
• A continuación, vai adiante e preme o botón Visual Basic .
• No Explorador de proxectos do lado esquerdo , resalte o proxecto Excel_Macros.xlsm , prema Inserir e seleccione Módulo .
• Crearase un novo módulo VBA chamado Module1 .
• Continúa e pega o seguinte código no módulo recén creado:

Sub Color_Cell_Text_Condition()

Dim MyCell As Range
Dim StatValue As String
Dim StatusRange As Range

Set StatusRange = Range("Completion_Status")

'loop through all cells in the range
For Each MyCell In StatusRange

StatValue = MyCell.Value

'modify the cell text values as needed.
Select Case StatValue

    'green
    Case "Progressing"
    With MyCell.Font
        .Color = RGB(0, 255, 0)
        .Size = 14
        .Bold = True
     End With

    'orange
    Case "Pending Feedback"
    With MyCell.Font
        .Color = RGB(255, 141, 0)
        .Size = 14
        .Bold = True
    End With
    
    'red
    Case "Stuck"
    With MyCell.Font
        .Color = RGB(255, 0, 0)
        .Size = 14
        .Bold = True
    End With

End Select

Next MyCell

End Sub

• Preme o botón Gardar no teu editor de Visual Basic.
• Agora preme Executar e despois selecciona Executar Sub/Formulario de usuario (ou simplemente preme F5).
• Move á túa folla de traballo Sheet1 e observa os cambios. As entradas das túas táboas foron asignadas a varios códigos de cores segundo o seu texto (utilizando a función de cor RGB) e tamén configuramos o texto en negrita e aumentamos o seu tamaño.

• Se non gardou o código, prema o botón Gardar (ou Ctrl+S) e, a continuación, garda tamén o seu libro de traballo.

Acceda á súa macro VBA

• Teña en conta que o seu código sempre está dispoñible para executalo desde o comando Macros situado na pestana Ver (ou alternativamente en Programador | Macros)