用vba的characters给单元格所有数字3标记红色

阿煮

问题在Sheet2里面,单元格[A1:B4]中。
如果包含"我我",那么该单元格所有"我我"字体标红。
如果包含35,那么该单元格所有35字体标红。
如果包含3,那么该单元格所有3字体标红。
但是数字35和3测试有的结果不对。比如B2单元格有35,运行后并没有变颜色。
请大神帮改下代码看如何实现~
谢谢

半百

强制改为文本

yynrzwh

这不是代码的问题，手工都上不了色

ykcbf1100

数字是无法直接标注字体颜色的，必须先转为文本方式。

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf() '//2024.4.10
   
2.     st = "35"
   
3.     With Sheets("Sheet2")
   
4.         r = .Cells(Rows.Count, 1).End(3).Row
   
5.         arr = .[a1].Resize(r, 2)
   
6.         .Cells.Font.ColorIndex = 0
   
7.         For i = 1 To r
   
8.             For j = 1 To 2
   
9.                 .Cells(i, j) = "'" & .Cells(i, j).Value
   
10.                 s = CStr(arr(i, j))
    
11.                 For x = 1 To Len(s)
    
12.                     If Mid(s, x, 2) = st Then
    
13.                         .Cells(i, j).Characters(x, Len(st)).Font.ColorIndex = 3
    
14.                     End If
    
15.                 Next
    
16.             Next
    
17.         Next
    
18.     End With
    
19. End Sub
    

复制代码

阿煮

半百 发表于 2024-4-10 09:58
强制改为文本

测试成功 谢谢

阿煮

ykcbf1100 发表于 2024-4-10 10:25
数字是无法直接标注字体颜色的，必须先转为文本方式。

附件供参考。。。

可以了 蟹蟹