VBA, строка поиска в формуле в excel

Question

Можно ли искать определенный текст в формуле с помощью vba? Например: у меня есть куча индекса (соответствие массива (массив, «критерии» 0), 0) и другие формулы суммы. Я хочу искать формулы с «индексом» и изменять цвет ячеек.

До сих пор я написал следующий код:

For Each cell In ActiveSheet.UsedRange 'color cells having formulas 
    If cell.HasFormula Then 
     Find = "*index*" 
     cell.Font.Color = indexcolor 
    End if 
Next cell 

Answer 1

Sub Changecellcolor() 

Dim formulaColor As Long 
Dim cell As Range 

LinkedCells = RGB(Red:=0, Green:=0, Blue:=255) 

    For Each cell In ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas) 
    If InStr(1, cell.Formula, "index") > 0 Then 
    cell.Font.Color = LinkedCells 
    End If 

End Sub

Answer 2

Как насчет:

Sub LookinForDory() 
    Dim r As Range, s As String 
    For Each r In ActiveSheet.UsedRange.Cells.SpecialCells(xlCellTypeFormulas) 
     s = LCase(r.Formula) 
     If InStr(1, s, "index") > 0 Then 
      r.Interior.ColorIndex = 27 
     End If 
    Next r 
End Sub