大神求助！！！单元格函数公式中的随机位置随机个数关键词高亮

youxianwei

大神求助！！！单元格函数公式中的随机位置随机个数关键词高亮

youxianwei

已有基础代码

Sub excelvba》所有含单元格中重复出现关键词》字体高亮》【爱疯答案】》()
Application.EnableEvents = True '代码结束前，专治死机
t = Timer
    Dim 关键词变量, reg, match, matchs, x
    Set reg = CreateObject("VBScript.RegExp")
   
    reg.Global = True
   
    关键词变量 = "计算公式"
                   '自定义
    For Each x In ActiveSheet.UsedRange
        If InStr(x, 关键词变量) Then
            x.Font.ColorIndex = xlAutomatic
            reg.Pattern = 关键词变量
            Set matchs = reg.Execute(x)
            For Each match In matchs
                x.Characters(Start:=match.FirstIndex + 1, Length:=match.Length).Font.Color = -65281
                x.Characters(Start:=match.FirstIndex + 1, Length:=match.Length).Font.Bold = True
            Next
        End If
    Next
MsgBox "结束！-用时=" & Timer - t & "秒"
Application.EnableEvents = True '代码结束前，专治死机
End Sub

爱疯

建议举例说明，比如：
1）什么位置上，什么内容需要高亮？
2）什么位置上，什么内容需要高亮？
。。。

youxianwei

黄色区域是if函数公式不是常量，用原代码无法识别高亮变量只能高亮自定义常量关键词

youxianwei

e列有的单元格是if（）函数公式，这里面的字符所包含的关键词都无法用原代码高亮，因为是公式变量不是常量。

爱疯

注意，只可以从中选择一种方式！

方式1：保留公式            不可对公式设颜色。
方式2：不保留公式
            可对公式设颜色。只需先把公式转成值，加一句代码即可，其它不变

...
    For Each x In ActiveSheet.UsedRange
        x.Value = x
        If InStr(x, 关键词变量) Then

...

youxianwei

哦，鱼和熊掌，不可兼得啊，谢谢您的指点

youxianwei

爱疯 发表于 2016-11-1 11:18
注意，只可以从中选择一种方式！

方式1：保留公式            不可对公式设颜色。

大神，再次求助，退而求其次，如果不想原位替换-将d列-复制到-e列（注意！仍然保留一样的公式和计算结果，我尝试复制列粘贴，但是公式会随着列号变化而出错）-再将e列公式里内容-变成值-代码该怎么写？

。。。value只是当前显示的值，看来得去除开头的等号，才能把公式里所有情况的值都显示出来，以上思路还是不对