如何在Excel中突出显示单元格？

Question

假设我有一个单元格值“移动成就”，所以当我选择这个单元时，所有单元都具有“移动”和“移动”。应该突出“成就”价值观。

所有这些细胞应该突出显示：“移动成就”或“成就移动”或“abc移动成就”或“移动abc成就”或“移动abc xyz成就”＆amp;等等。

我的问题是： 如何使用函数直接在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