Change font color for a part of text in cell

by

You can use Characters cell’s property like :

Cells(1,1).Characters(Start:=2, Length:=3).Font.Color = RGB(255, 0, 0)

This should be a good start :

Sub vignesh()
Dim StartChar As Integer, _
    LenColor As Integer

For i = 1 To 5
    With Sheets("Sheet1").Cells(i, 1)
        StartChar = InStr(1, .Value, "|")
        If StartChar <> 0 Then
            LenColor = Len(.Value) - StartChar + 1
            .Characters(Start:=StartChar, Length:=LenColor).Font.Color = RGB(255, 0, 0)
        End If
    End With
Next i

End Sub

More Related Contents:

  1. Save excel file multiple times with file names in another workbook.
  2. Read/Parse text file line by line in VBA
  3. How do I find the last column with data?
  4. Excel VBA: Answer gets “stuck”
  5. How to insert a picture into Excel at a specified cell position with VBA
  6. Save multiple sheets to .pdf
  7. Having multiple Excel instances launched, how can I get the Application Object for all of them?
  8. filter out multiple criteria using excel vba
  9. Excel VBA autofilter all but three
  10. How can I create a calendar input in VBA Excel?
  11. Cells.Find() Raises “Runtime Error 91: Object Variable or With Block Not Set”
  12. Excel VBA code to copy a specific string to clipboard
  13. Merge values of column B based on common values on column A
  14. How to import a table from web page (with “div class”) to excel?
  15. Excel VBA – Range.Copy transpose paste
  16. How do you get a Range to return its Name?
  17. Changing the date format to yyyy-mm-dd
  18. Delete all duplicate rows Excel vba
  19. In Excel, can I use a hyperlink to run vba macro?
  20. Select Newest Record and Create New Table of Unique Values in Excel
  21. How to delete rows in Excel based on criteria using VBA?
  22. Macro to export MS Word tables to Excel sheets
  23. VBA WinHTTP to download file from password proteced https website
  24. Excel VBA – select multiple columns not in sequential order
  25. How to check whether certain sheets exist or not in Excel-VBA? [duplicate]
  26. Application.WorksheetFunction.Match method
  27. Excel – Using COUNTIF/COUNTIFS across multiple sheets/same column
  28. Excel Hide/Show all tabs on Ribbon except custom tab
  29. Macros Not Showing Up in Macro Table
  30. Excel telling me my blank cells aren’t blank

Leave a Comment