Kuidas määrata Exceli teksti fondi värvi VBA-ga?

Selles õpetuses õpime kasutama Visual Basic for Applications (VBA) teksti suuruse ja stiili muutmiseks Exceli lahtris lahtri sisu põhjal. See õpetus kehtib Excel 365, 2021, 2019 ja 2016 jaoks.

Eelvoorud

Kui olete Exceli VBA arenduses uus, soovitan teil enne õpetuse läbimist tutvuda meie Exceli VBA makroaabitsaga.

Enne kodeerimise alustamist peaksite lindil lubama Excelis oma arendaja vahekaardi , vastasel juhul ei pääse te Visual Basicu redaktorile juurde.

Muutke oma Exceli lahtri teksti atribuute VBA abil

Määratlege oma arvutustabel

Alustuseks määratleme Exceli tabeli, mida kasutame näitena. Kasutage seda selle õpetuse järgimiseks.

• Avage Microsoft Excel ja looge uus makrotoega Exceli töövihik ( .xlsm ) nimega Excel_Macros.xlsm
• Salvestage oma arvutustabel kohalikule kettale.
• Jätkake töölehel Sheet1 ja lisage allolev tabel:

• Nüüd klõpsake lindilt valikut Valemid .
• Seejärel klõpsake nuppu Määra nimi .
• Määratlege nimega vahemik, millele rakendate oma VBA-koodi, nagu allpool näidatud, ja klõpsake nuppu OK .

Kasutage fondi värvi ja stiili muutmiseks atribuuti Cell.Font VBA

• Liikuge vahekaardile Arendaja .
• Järgmisena minge edasi ja vajutage nuppu Visual Basic .
• Tõstke vasakpoolses Project Exploreris esile projekt Excel_Macros.xlsm , seejärel vajutage nuppu Lisa ja valige Moodul .
• Luuakse uus VBA moodul nimega Module1 .
• Jätkake ja kleepige vastloodud moodulisse järgmine kood:

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

• Klõpsake Visual Basicu redaktoris nuppu Salvesta .
• Nüüd klõpsake nuppu Käivita ja seejärel valige Käivita alam/kasutajavorm (või vajutage lihtsalt klahvi F5).
• Liikuge töölehele Sheet1 ja märkige muudatusi. Teie tabelikirjetele määrati vastavalt nende tekstile mitu värvikoodi (kasutades RGB värvifunktsiooni), samuti määrasime teksti paksuks ja suurendasime selle suurust.

• Kui te pole oma koodi salvestanud, vajutage nuppu Salvesta (või Ctrl+S), seejärel salvestage ka töövihik.

Juurdepääs oma VBA makrole

• Pange tähele, et teie kood on alati saadaval, et saaksite käivitada käsu Macros, mis asub vahekaardil Vaade (või alternatiivselt jaotises Arendaja | Makrod).