[Solved] Change letter colors ?

[Craige Harper]

How to change the color of letters in a cell, mass change ???

 

[Lutfor Rahman Shimanto]

How to change the color of letters in a cell, mass change ???

Hello Craige Harper
Thanks for posting your query. You want to change the color of a particular text in a cell. We can easily do this by selecting the text and changing its color. Assuming you will do this a lot of time for various cell texts. In this case, you can use the Excel VBA code. I will show you both of these ideas.

Typical Method:
Select the desired cell >> mark the intended texts >> go to Home >> expand Font Color >> apply a color.

​

Excel VBA:
First, choose a cell >> navigate to Developer >> click on Visual Basic.

​

Choose Insert followed by Module >> paste the following code and Run.

Sub ChangeColorOfText()
    
    Dim searchText As String
    Dim rng As Range
    Dim cell As Range
    Dim startPos As Long
    Dim lenSearchText As Integer

    searchText = InputBox("Enter the specific text you want to change the color of:", "Text Color Change")

    If searchText = "" Then
        Exit Sub
    End If

    lenSearchText = Len(searchText)

    For Each rng In Selection
        rng.Font.Color = vbBlack
        startPos = InStr(1, rng.Value, searchText, vbTextCompare)

        Do While startPos > 0
            rng.Characters(startPos, lenSearchText).Font.Color = RGB(255, 0, 0)
            startPos = InStr(startPos + 1, rng.Value, searchText, vbTextCompare)
        Loop
    Next rng

End Sub

​

Consequently, the Text Color Change window will pop up. Input the intended text >> hit OK.

​

As a result, we will see an output like the below one.

​

I have attached the solution Workbook to help you understand better. Don't hesitate to contact us again if you have any more questions.

Regards
Lutfor Rahman Shimanto

 

[Lutfor Rahman Shimanto]

Thank you very much!

Hello Adamiou88

Thanks for thanking me. Welcome to ExcelDemy Forum.