单元格内的文字隔行变色

aman1516

工作表3，包含关键字的，还要慢慢摸索

aman1516

琢磨了两天，终于弄懂一点点，按关键字改变所在“行”颜色的，加个循环搞掂：

1. Private Sub CommandButton2_Click()
   
2. Dim r%, i%, j%, k%, Mh, kr
   
3. Dim arr, brr
   
4. Dim reg As New RegExp
   
5. 'On Error Resume Next
   
6. Application.ScreenUpdating = False
   
7. kr = Array("参数", "警告") '
   
8. With reg
   
9.     .Global = True
   
10.     .Pattern = ".+?(\n|$)"
    
11. End With
    
12. With Worksheets("关键字")
    
13.      r = .Cells(.Rows.Count, 2).End(xlUp).Row
    
14.      For i = 1 To r
    
15.          Set Mh = reg.Execute(.Cells(i, 2).Value)
    
16.          With .Cells(i, 2)
    
17.              .Font.ColorIndex = 0
    
18.              For j = 0 To Mh.Count - 1
    
19.                  For k = 0 To UBound(kr)
    
20.                      If InStr(Mh(j), kr(k)) Then
    
21.                         With .Characters(Start:=Mh(j).firstindex, Length:=Mh(j).Length + 1).Font
    
22.                              .ColorIndex = 3
    
23.                         End With
    
24.                      End If
    
25.                  Next
    
26.              Next
    
27.          End With
    
28.      Next
    
29. End With
    
30. Application.ScreenUpdating = True
    
31. End Sub
    

复制代码

正则还是未了解透彻，本想用字符串元素数组的方法处理，但没成功

aman1516

最终OK结果， 单元格内的文字变色.rar (33.7 KB, 下载次数: 31)

2017-12-27 12:58 上传

点击文件名下载附件