WISDOMBYDATA
  • BLOG
    • Blog Guide
    • Blog History
  • EXCEL
    • Functions & Formulas
    • VBA & Macros
    • VLOOKUP
    • Pivot Tables
    • Conditional Formatting
    • Tricks & Shortcuts
  • BI
    • SAP BOBJ/BW
    • Tableau
  • SQL
  • ABOUT
    • About WBD
    • About Me

Highlight only a part of the text within a cell in MS Excel

5/13/2018

0 Comments

 

We all know how to highlight the entire content of a cell in MS Excel. i.e. by going to the ribbon and changing the color in the “Font” section of the “Home” tab. Here is a macro that will enable you to highlight only specific key words within selected cells:
Sub Highlight()
Application.ScreenUpdating = False
 
Dim A As Long
Dim B As Long
Dim C As Long
Dim Range As Range
Dim Word As String
Dim Var As String
Word = InputBox("Enter the text string to highlight")
 
C = Len(Word)
For Each Range In Selection
With Range
     B = UBound(Split(Range.Value, Word))
     If B > 0 Then
         Var = ""
         For A = 0 To B - 1
            Var = Var & Split(Range.Value, Word)(A)
           .Characters(Start:=Len(Var) + 1, Length:=C).Font.ColorIndex = 6
           Var = Var & Word
Next
        End If
              End With
Next Range
Application.ScreenUpdating = True
End Sub

Let’s test the macro on the data set below:
Picture
I will use the macro above to only highlight the word “Franco” in yellow:
Picture
Select the range that you want to apply the macro to. Upon running the macro, a window will pop up asking for the word to be highlighted. Enter the word and press “Ok”.
Picture
Here is the outcome:
Picture
Note that a variety of colors could be chosen for the purpose of highlighting selected words. In order to choose each color, change the ColorIndex (line 18 of the code above) based on the following illustration.
Picture
Reference:  https://msdn.microsoft.com/en-us/vba/excel-vba/articles/colorindex-property

0 Comments

Your comment will be posted after it is approved.


Leave a Reply.

    Categories

    All
    BI
    EXCEL
    MISC
    SQL

    Archives

    June 2020
    May 2020
    April 2020
    March 2020
    February 2020
    December 2019
    November 2019
    October 2019
    September 2019
    August 2019
    July 2019
    June 2019
    May 2019
    April 2019
    March 2019
    February 2019
    January 2019
    December 2018
    November 2018
    October 2018
    September 2018
    August 2018
    July 2018
    June 2018
    May 2018
    April 2018
    March 2018
    September 2017
    August 2017
    July 2017
    June 2017
    May 2017
    April 2017
    March 2017
    February 2017
    January 2017
    December 2016
    November 2016
    October 2016
    September 2016
    August 2016
    July 2016
    June 2016
    May 2016
    April 2016
    March 2016
    February 2016
    May 2015
    April 2015
    March 2015
    February 2015
    January 2015
    December 2014
    November 2014
    October 2014
    September 2014
    August 2014
    April 2014
    March 2014
    February 2014
    January 2014
    December 2013
    November 2013

Picture
  • BLOG
    • Blog Guide
    • Blog History
  • EXCEL
    • Functions & Formulas
    • VBA & Macros
    • VLOOKUP
    • Pivot Tables
    • Conditional Formatting
    • Tricks & Shortcuts
  • BI
    • SAP BOBJ/BW
    • Tableau
  • SQL
  • ABOUT
    • About WBD
    • About Me