Ako nastaviť farbu písma textu Excel pomocou VBA?

V tomto návode sa naučíme, ako používať Visual Basic for Applications (VBA) na úpravu veľkosti a štýlu textu v bunke Excelu na základe obsahu bunky. Tento návod platí pre Excel 365, 2021, 2019 a 2016.

Prípravné zápasy

Ak ste nováčikom vo vývoji Excel VBA, odporúčam vám, aby ste si predtým, ako prejdete návodom, prezreli náš makro základ pre Excel VBA.

Pred začatím kódovania by ste mali povoliť kartu vývojára v Exceli na páse s nástrojmi, pretože inak nebudete mať prístup k editoru jazyka Visual Basic.

Zmeňte vlastnosti textu bunky Excel pomocou jazyka VBA

Definujte svoju tabuľku

Začneme definovaním excelovej tabuľky, ktorú použijeme ako príklad. Neváhajte ho použiť na sledovanie tohto návodu.

• Otvorte program Microsoft Excel a vytvorte nový zošit programu Excel s povoleným makrom ( .xlsm ) s názvom Excel_Macros.xlsm
• Uložte si tabuľku na lokálny disk.
• V pracovnom hárku Sheet1 pokračujte a pridajte tabuľku nižšie:

• Teraz na páse stlačte Vzorce .
• Potom stlačte Definovať názov .
• Definujte Pomenovaný rozsah, na ktorý použijete kód VBA, ako je uvedené nižšie, a stlačte tlačidlo OK .

Na zmenu farby a štýlu písma použite vlastnosť Cell.Font VBA

• Prejdite na kartu Vývojár .
• Ďalej pokračujte a stlačte tlačidlo Visual Basic .
• Na ľavej strane Project Explorer zvýraznite projekt Excel_Macros.xlsm , potom stlačte Vložiť a vyberte Modul .
• Vytvorí sa nový modul VBA s názvom Module1 .
• Pokračujte a vložte nasledujúci kód do novovytvoreného modulu:

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

• Kliknite na tlačidlo Uložiť v editore jazyka Visual Basic.
• Teraz stlačte Run a potom vyberte Run Sub/UserForm (alebo jednoducho stlačte F5).
• Presuňte sa na pracovný hárok Sheet1 a všimnite si zmeny. Vašim položkám v tabuľke bolo priradených viacero farebných kódov podľa ich textu (pomocou funkcie farieb RGB) a text sme tiež nastavili tak, aby bol tučný a zväčšil sme jeho veľkosť.

• Ak ste svoj kód neuložili, stlačte tlačidlo Uložiť (alebo Ctrl+S) a potom tiež uložte zošit.

Prístup k makru VBA

• Všimnite si, že váš kód je vždy k dispozícii na spustenie pomocou príkazu Makrá, ktorý sa nachádza na karte Zobraziť (alebo alternatívne v časti Vývojár | Makrá)