如何使用代码让表格中的某些单词标红的呢？

爱你所选0922

各位大佬可以帮忙解答下的吗？


表格10，我是想将D列中的bag和size标红，大佬帮我写了如下代码，顺利解决了这个问题，当表格11也需要标红时，却发现存在了错误，有大佬可以帮忙解答下的吗？


表格10的代码如下（需求：将表格D列中的bag和size标红）


Sub test()
ar = [A1].End(4).Row
arr = Array("bag", "size")
  For i = 2 To ar
     For j = 0 To 1
       n = InStr(Range("D" & i), arr(j))
       If n > 0 Then
          With Range("D" & i).Characters(n, Len(arr(j))).Font
             .ColorIndex = 3
             .Bold = True
          End With
       End If
    Next
Next
End Sub


表格11的需求如下，可以帮忙解答下的吗？


需求一：如果使用代码将表格中的pink和Iris Purple标红？
需求二：如何使用代码将D列中的pink和for标红的呢？

我使用表格10中的代码并略改了下，代码如下，可是显示“下标越界”。请问是哪里出错了的吗？（只是将bag、size改成了pink和for）

Sub test()
ar = [A1].End(4).Row
arr = Array("pink", "for")
  For i = 2 To ar
     For j = 0 To 1
       n = InStr(Range("D" & i), arr(j))
       If n > 0 Then
          With Range("D" & i).Characters(n, Len(arr(j))).Font
             .ColorIndex = 3
             .Bold = True
          End With
       End If
    Next
Next
End Sub

半百

试了没问题

爱你所选0922

半百 发表于 2024-4-2 15:29
试了没问题

表格10是没有问题的，而表格11是有问题的呢