Change color of certain characters in a cell

by

You can use the characters(start, length) property to do this. You can also store the text in a string and loop on that, which will be faster when you work with many cells. Here is an example:

Sub RedText()

Dim i As Long
Dim text As String

text = Cells(1, 1).Value

For i = 1 To Len(text)
    If IsNumeric(Mid$(text, i, 1)) = True Then
        Cells(1, 1).Characters(i, 1).Font.Color = vbRed
    End If
Next

End Sub

More Related Contents:

  1. How do I get values from a hidden worksheet using VBA [closed]
  2. How to copy cells that contain certain text to another worksheet [closed]
  3. VBA Macro for copying and pasting columns on same excel sheet
  4. Excel VBA, code to count the # of filled cells, then find highest and 2nd highest and subtract the corresponding column #’s [closed]
  5. Levenshtein Distance in VBA [closed]
  6. VBA Runtime Error 1004 “Application-defined or Object-defined error” when Selecting Range
  7. How do I base64 encode a string efficiently using Excel VBA?
  8. Assign event handlers to controls on user form created dynamically in VBA
  9. Programmatic Access To Visual Basic Project Is Not Trusted
  10. Can I make this macro more efficient or faster?
  11. Conditional Formatting using Excel VBA code
  12. Controlling IE11 “Do you want to Open/Save” dialogue window buttons in VBA
  13. How to get the background color from a Conditional Formatting in Excel using VBA
  14. VBA Excel Populate ListBox with multiple columns
  15. VBA Integer Overflow at 70,000
  16. How to count up text of a different font colour in excel
  17. How to “flatten” or “collapse” a 2D Excel table into 1D?
  18. VBA Macro to compare all cells of two Excel files
  19. How do I use variables to set properties in VBA (Excel)
  20. VBA: Else without If Error
  21. Workbooks.Open Method in VBA
  22. Windows().Activate works on every computer except one
  23. How to highlight a cell using the hex color value within the cell?
  24. Convert RTF (Rich Text Format) code into plain text in Excel
  25. lastrow and excel table.
  26. Open a workbook from VBA and disable Workbook_Open() code?
  27. Creating form programmatically in the module using vba
  28. How to filter listbox values based on a Textbox value
  29. Find and FindNext for Excel VBA
  30. VBA inheritance, analog of super

Leave a Comment