Si të vendosni ngjyrën e shkronjave të tekstit Excel me VBA?

Në këtë tutorial do të mësojmë se si të përdorim Visual Basic për Aplikime (VBA) për të modifikuar madhësinë dhe stilin e tekstit në një qelizë Excel bazuar në përmbajtjen e qelizës. Ky tutorial zbatohet për Excel 365, 2021, 2019 dhe 2016.

Paraprake

Nëse jeni i ri në zhvillimin e Excel VBA, unë do t'ju rekomandoj që përpara se të kaloni tutorialin, të shikoni në abetaren tonë makro Excel VBA.

Përpara se të filloni të kodoni, duhet të aktivizoni skedën tuaj të zhvilluesit në Excel në Shirit, pasi përndryshe nuk do të keni mundësi të hyni në Redaktorin tuaj Visual Basic.

Ndryshoni vetitë e tekstit të qelizave Excel me VBA

Përcaktoni tabelën tuaj

Ne do të fillojmë duke përcaktuar një spreadsheet Excel që do ta përdorim si shembull. Mos ngurroni ta përdorni për të ndjekur këtë tutorial.

• Hapni Microsoft Excel dhe krijoni një libër pune të ri Excel të aktivizuar për makro ( .xlsm ) të quajtur Excel_Macros.xlsm
• Ruani Spreadsheet tuaj në diskun tuaj lokal.
• Në fletën e punës Sheet1 , shkoni përpara dhe shtoni tabelën më poshtë:

• Tani, nga Shiriti, goditi Formulat .
• Pastaj shtypni Përcaktoni emrin .
• Përcaktoni një gamë të emërtuar në të cilën do të aplikoni kodin tuaj VBA siç tregohet më poshtë dhe shtypni OK .

Përdorni vetinë Cell.Font VBA për të ndryshuar ngjyrën dhe stilin e shkronjave

• Kaloni te skeda Zhvilluesi .
• Më pas shkoni përpara dhe shtypni butonin Visual Basic .
• Në anën e majtë të Project Explorer , theksoni projektin Excel_Macros.xlsm më pas shtypni Insert dhe zgjidhni Modulin .
• Do të krijohet një modul i ri VBA i quajtur Module1 .
• Vazhdoni dhe ngjisni kodin e mëposhtëm në modulin e krijuar rishtazi:

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

• Shtypni butonin Ruaj në redaktorin tuaj të Visual Basic.
• Tani shtypni Run dhe më pas zgjidhni Run Sub/UserForm (ose thjesht shtypni F5).
• Kaloni te fleta juaj e punës Sheet1 dhe vini re ndryshimet. Regjistrimeve tuaja të tabelës iu caktuan kode të shumta ngjyrash sipas tekstit të tyre (duke përdorur funksionin e ngjyrave RGB), dhe ne gjithashtu vendosëm që teksti të jetë i theksuar dhe të rrisim madhësinë e tij.

• Nëse nuk e keni ruajtur kodin tuaj, shtypni butonin Save (ose Ctrl+S), pastaj ruani edhe librin tuaj të punës.

Hyni në makro VBA tuaj

• Vini re se kodi juaj është gjithmonë i disponueshëm për t'u ekzekutuar nga komanda Macros e vendosur në skedën View (ose alternativisht te Zhvilluesi | Macros)