Како подесити боју фонта текста у Екцел-у помоћу ВБА?

У овом водичу ћемо научити како да користимо Висуал Басиц за апликације (ВБА) за измену величине и стила текста у Екцел ћелији на основу садржаја ћелије. Овај водич се примењује за Екцел 365, 2021, 2019 и 2016.

Прелиминари

Ако сте нови у развоју Екцел ВБА, препоручићу вам да пре него што прођете кроз туторијал погледате наш Екцел ВБА макро пример.

Пре него што почнете да кодирате, требало би да омогућите картицу програмера у Екцел -у на траци, јер у супротном нећете моћи да приступите свом Висуал Басиц Едитору.

Промените својства текста ћелије у Екцел-у помоћу ВБА

Дефинишите своју табелу

Почећемо тако што ћемо дефинисати Екцел табелу коју ћемо користити као пример. Слободно га користите да бисте пратили овај водич.

• Отворите Мицрософт Екцел и креирајте нову Екцел радну свеску са омогућеним макроима ( .клсм ) под називом Екцел_Мацрос.клсм
• Сачувајте табелу на локалном диску.
• На радном листу Схеет1 , само напред и додајте табелу испод:

• Сада, са траке, притисните Формуле .
• Затим притисните Дефиниши име .
• Дефинишите именовани опсег на који ћете применити свој ВБА код као што је приказано испод и притисните ОК .

Користите својство Целл.Фонт ВБА да промените боју и стил фонта

• Пређите на картицу Програмер .
• Следеће само напред и притисните дугме Висуал Басиц .
• На левој страни Пројецт Екплорер , означите пројекат Екцел_Мацрос.клсм , а затим притисните Инсерт и изаберите Модуле .
• Биће креиран нови ВБА модул под називом Модул1 .
• Само напред и налепите следећи код у новокреирани модул:

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

• Притисните дугме Сачувај у свом Висуал Басиц уређивачу.
• Сада притисните Рун , а затим изаберите Рун Суб/УсерФорм (или једноставно притисните Ф5).
• Пређите на радни лист Схеет1 и приметите промене. Вашим уносима у табели је додељено више кодова боја у складу са њиховим текстом (користећи функцију РГБ боје), а такође смо поставили да текст буде подебљан и повећали његову величину.

• Ако нисте сачували свој код, притисните дугме Сачувај (или Цтрл+С), а затим такође сачувајте радну свеску.

Приступите свом ВБА макроу

• Имајте на уму да је ваш код увек доступан за покретање из команде Макрои која се налази на картици Приказ (или алтернативно у Програмер | Макрои)