单元格里面指定关键字自动变色

ba3259878266

某个单元格包含某个关键字时，这个关键字变颜色  谢谢各位老师帮忙

等待哪位高手要解决  谢谢各位老师帮忙

quqiyuan

附件附件。。。

ba3259878266

quqiyuan 发表于 2024-11-17 21:39
附件附件。。。

谢谢老师帮忙

quqiyuan

ba3259878266 发表于 2024-11-17 21:46
谢谢老师帮忙

你的关键字火中是分开两个字呢还是作为一个词组呢，我看c列没有火中的词组。。

ba3259878266

quqiyuan 发表于 2024-11-17 21:54
你的关键字火中是分开两个字呢还是作为一个词组呢，我看c列没有火中的词组。。

老师  是分开的  谢谢

quqiyuan

如果是分开的是单个字，相对简单点，仅供参考测试。。。。

quqiyuan

代码如下。。。。
Sub test()
    Dim wb As Workbook, sht As Worksheet
    Set wb = ThisWorkbook
    Set sht = wb.Sheets("sheet1")
    s = Split("火 中")
    Set d = CreateObject("scripting.dictionary")
    For i = 0 To UBound(s)
        ss = s(i)
        If ss <> Empty Then
            If Not d.exists(ss) Then
                n = n + 1
                d(ss) = n
            End If
        End If
    Next
    With sht
        r = .Cells(Rows.Count, 3).End(3).Row
        arr = .Range("c1:c" & r)
        .Range("c1:c" & r).Font.ColorIndex = 1
        For i = 1 To UBound(arr)
            sss = arr(i, 1)
            If sss <> Empty Then
                For j = 1 To Len(sss)
                    If d.exists(Mid(sss, j, 1)) Then
                        .Cells(i, 3).Characters(j, 1).Font.ColorIndex = 3
                    End If
                Next
            End If
        Next
    End With
    Beep
    Set d = Nothing
End Sub

quqiyuan

审核中，看看能不能上文件。。。

taller

quqiyuan

改进下，可以对词组也可以匹配。。。。