自动标色求助

lysh9815

如同，麻烦大神帮忙

dragonthree

Range("a2").Characters(Start:=i, Length:=1).Font.ColorIndex = 3 ' 数字标色

tanglf188

lysh9815

tanglf188 发表于 2024-3-27 16:11

函数能实现吗？

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.3.27
   
2.     Dim arr, brr
   
3.     arr = [a2:d2]
   
4.     st = CStr([e2])
   
5.     Cells.Font.ColorIndex = 0
   
6.     For j = 1 To UBound(arr, 2)
   
7.         s = arr(1, j)
   
8.         For x = 1 To Len(s)
   
9.             If Mid(s, x, 1) = Mid(st, j, 1) Then
   
10.                 Cells(2, j).Characters(Start:=x, Length:=l).Font.ColorIndex = 3
    
11.             Else
    
12.                 Cells(2, j).Characters(Start:=x, Length:=l).Font.ColorIndex = 0
    
13.             End If
    
14.         Next
    
15.     Next
    
16. End Sub
    
17. 
    

复制代码

ykcbf1100

lysh9815 发表于 2024-3-27 16:16
函数能实现吗？

你想函数解决的话，应该发到函数版去才对。

saghj

dragonthree

函数一般都只能在另一个单元格可返回一个值，并不能执行一个动作。

gwjkkkkk

函数是不行了。。。