[已解决]找遍了几天网上高手 还没解决的问题 数值的部分设置颜色 请看附件

chenwenke

数值的部分设置颜色  相同数据显示颜色问题

最佳答案

月排行榜 / 总排行榜

dsmch

2014-5-8 20:28

1. Sub Macro1()
   
2. Dim arr, i&, j%
   
3. arr = Range("a1").CurrentRegion
   
4. [b:b].Font.ColorIndex = 0
   
5. For i = 1 To UBound(arr)
   
6.     x = arr(i, 1): y = arr(i, 2)
   
7.     For j = 1 To Len(y)
   
8.         If InStr(x, Mid$(y, j, 1)) Then
   
9.             Cells(i, 2).Characters(j, 1).Font.ColorIndex = 3
   
10.         End If
    
11.     Next
    
12. Next
    
13. End Sub
    

复制代码

跳转到最佳答案楼层

su45

对数值某个部份设置为其他颜色，VBA也不行！

chenwenke

VBA可以的  我不会那个

su45

你换个思路行吗？比如说，有相同的数，在第三列显示出来

dsmch

B列数据必须是文本格式，这个不改变，楼主的要求就像用画的饼，一味要求填饱肚子一样

chenwenke

我是新手  我在学习呀   一串数据 a1： 156     在b1：258    在b1里面  条件格式怎么设置不了在b1+b1相同数据5  单独显示功能呢  求解啊   分开在c1里面显示可以  都是合并在一起了就不显示了

nj.chen

继续学习

dsmch

1. Sub Macro1()
   
2. Dim arr, i&, j%
   
3. arr = Range("a1").CurrentRegion
   
4. [b:b].Font.ColorIndex = 0
   
5. For i = 1 To UBound(arr)
   
6.     x = arr(i, 1): y = arr(i, 2)
   
7.     For j = 1 To Len(y)
   
8.         If InStr(x, Mid$(y, j, 1)) Then
   
9.             Cells(i, 2).Characters(j, 1).Font.ColorIndex = 3
   
10.         End If
    
11.     Next
    
12. Next
    
13. End Sub
    

复制代码

dsmch

文本格式……

chenwenke

dsmch 发表于 2014-5-8 20:29
文本格式……

就是这样的  怎么那个按键我就做不出来呢   能不能麻烦下   具体操作内容呀