change color of cells that are in my current formula

%3CLINGO-SUB%20id%3D%22lingo-sub-3452089%22%20slang%3D%22en-US%22%3Echange%20color%20of%20cells%20that%20are%20in%20my%20current%20formula%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-3452089%22%20slang%3D%22en-US%22%3E%3CP%3EHello%2C%3C%2FP%3E%3CP%3EI%20often%20have%20huge%20spreadsheets%20where%20I%20have%20to%20add%20random%20cells%20together.%20In%20order%20to%20make%20sure%20I%20don't%20miss%20any%20cells%2C%20I%20want%20to%20change%20the%20color%20of%20my%20cells%20that%20are%20in%20my%20formula.%20So%20if%20my%20formula%20is%20SUM(A2%2BB14%2BA132%2BE719%2BJ2713)%2C%20how%20do%20tell%20Excel%20to%20change%20those%205%20cells%20to%20a%20different%20color%3F%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-3452089%22%20slang%3D%22en-US%22%3E%3CLINGO-LABEL%3EExcel%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E%3CLINGO-SUB%20id%3D%22lingo-sub-3453844%22%20slang%3D%22en-US%22%3ERe%3A%20change%20color%20of%20cells%20that%20are%20in%20my%20current%20formula%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-3453844%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F1409154%22%20target%3D%22_blank%22%3E%40Jenni_L%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%3CP%3EMaybe%20with%20VBA...%3C%2FP%3E%3CPRE%20class%3D%22lia-code-sample%20language-applescript%22%3E%3CCODE%3ESub%20SearchFormulaContents()%0A%20%20%20%20%20Dim%20c%20As%20Range%0A%20%20%20%20%20Dim%20firstAddress%20As%20String%0A%20%20%20%20%20Dim%20vSearchValue%20As%20Variant%0A%20%20%20%20%20Dim%20blnVglTotalCellContent%20As%20Boolean%0A%20%20%20%0A%20%20%20%20%20vSearchValue%20%3D%20%22%3DA1%22%0A%20%20%20%20%20blnVglTotalCellContents%20%3D%20True%0A%20%20%20%0A%20%20%20%20%20With%20Table1.Columns(1)%20'Customize%0A%20%20%20%20%20%20%20%20%20.Interior.ColorIndex%20%3D%20xlColorIndexNone%0A%20%20%20%20%20%20%20%20%20Set%20c%20%3D%20.Find(vSearchValue%2C%20%2C%20xlFormulas%2C%20xlPart)%0A%20%20%20%20%20%20%20%20%20If%20Not%20c%20Is%20Nothing%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20firstAddress%20%3D%20c.Address%0A%20%20%20%20%20%20%20%20%20%20%20%20%20do%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20blnVglTotalCellContents%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20c.Formula%20%3D%20vSearchValue%20Then%20_%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20c.Interior.ColorIndex%20%3D%206%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20else%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20c.Interior.ColorIndex%20%3D%206%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Set%20c%20%3D%20.FindNext(c)%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20c%20Is%20Nothing%20Then%20Exit%20Do%0A%20%20%20%20%20%20%20%20%20%20%20%20%20Loop%20While%20c.Address%20%26lt%3B%26gt%3B%20firstAddress%0A%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20End%20With%0Aend%20sub%3C%2FCODE%3E%3C%2FPRE%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%3CSTRONG%3EOR...%3C%2FSTRONG%3E%3CBR%20%2F%3EYou%20insert%20the%20following%20code%20into%20a%20standard%20module%3A%3CBR%20%2F%3ECode%3A%3C%2FP%3E%3CPRE%20class%3D%22lia-code-sample%20language-applescript%22%3E%3CCODE%3EOptionExplicit%0AFunction%20%3DISFORMULA(rg%20As%20Range)%20As%20Boolean%0A%3DISFORMULA%20%3D%20IIf(rg.HasFormula%2C%20True%2C%20False)%0AEnd%20function%3C%2FCODE%3E%3C%2FPRE%3E%3CP%3EThe%20new%20function%20can%20be%20used%20in%20any%20cell%20with%20%3DISFORMULA(reference)%20or%20as%20a%20rule%20description%20for%20conditional%20formatting.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EHope%20I%20could%20help%20you%20with%20these%20information.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fexcel-blog%2Fmeet-niko-chatzoudis-excel-forum-contributor%2Fba-p%2F2941385%22%20target%3D%22_blank%22%3ENikolinoDE%3C%2FA%3E%3C%2FP%3E%3CP%3EI%20know%20I%20don't%20know%20anything%20(Socrates)%3C%2FP%3E%3C%2FLINGO-BODY%3E
Occasional Visitor

Hello,

I often have huge spreadsheets where I have to add random cells together. In order to make sure I don't miss any cells, I want to change the color of my cells that are in my formula. So if my formula is SUM(A2+B14+A132+E719+J2713), how do tell Excel to change those 5 cells to a different color? 

1 Reply

@Jenni_L 

Maybe with VBA...

Sub SearchFormulaContents()
     Dim c As Range
     Dim firstAddress As String
     Dim vSearchValue As Variant
     Dim blnVglTotalCellContent As Boolean
   
     vSearchValue = "=A1"
     blnVglTotalCellContents = True
   
     With Table1.Columns(1) 'Customize
         .Interior.ColorIndex = xlColorIndexNone
         Set c = .Find(vSearchValue, , xlFormulas, xlPart)
         If Not c Is Nothing Then
             firstAddress = c.Address
             do
                 If blnVglTotalCellContents Then
                     If c.Formula = vSearchValue Then _
                     c.Interior.ColorIndex = 6
                 else
                     c.Interior.ColorIndex = 6
                 End If
                 Set c = .FindNext(c)
                 If c Is Nothing Then Exit Do
             Loop While c.Address <> firstAddress
         End If
     End With
end sub

 

OR...
You insert the following code into a standard module:
Code:

OptionExplicit
Function =ISFORMULA(rg As Range) As Boolean
=ISFORMULA = IIf(rg.HasFormula, True, False)
End function

The new function can be used in any cell with =ISFORMULA(reference) or as a rule description for conditional formatting.

 

Hope I could help you with these information.

 

NikolinoDE

I know I don't know anything (Socrates)