Excelでセルを強調表示する方法

Question

セルの値が "Mobile achievement"なので、このセルを選択すると、 "mobile" & "achievement"の値を持つセルがすべて強調表示されます。

「モバイルアチーブメント」または「アチーブメントモバイル」または「モバイルモバイルアチーブメント」または「モバイルモバイルアチーブメント」または「モバイルモバイル広告アチーブメント」&などのすべてのセルが強調表示されます。

私の質問： 関数で直接Excelでセルを強調表示する方法はありますか？

Answer 1

次の機能を使用して結果を得ることができます。それはハイライトで一致カウントを返します。

Public Function highlightrange(texttocheck As String, r As Range) 
    Dim totalmatchcount As Integer 
    Dim matchcount As Integer 
    r.Cells.Font.ColorIndex = 0 
    matchcount = 0 
    texttocheck = Replace(texttocheck, " ", "") 
    str1 = Split(texttocheck, " ") 
    str2 = UBound(str1) 
    For i = 1 To r.Cells.Count 
     For j = 0 To str2 
      If InStr(r.Cells(i), str1(j)) > 0 Then 
       matchcount = matchcount + 1 
      End If 
     Next j 
     If matchcount = str2 + 1 Then 
      r.Cells(i).Font.ColorIndex = 8 
      totalmatchcount = totalmatchcount + 1 
     End If 
     matchcount = 0 
    Next i 
    highlightrange = totalmatchcount 
End Function