[已解决]如何对相同组合进行着色?

zhouxingyu

请教:如何找出相同的组合并进行着色区分?说明示例见附件,多谢!
数值着色.zip (12.62 KB, 下载次数: 11)

2015-7-12 10:00 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

qh8600

2015-7-12 10:58

(, 下载次数: 13)

上传

点击文件名下载附件
楼主试试

跳转到最佳答案楼层

baksy

附件

天天EP

一列中,A4、A5要连续?

天天EP

1. Sub 数值着色()
   
2.     Dim c As Range, rg As Range, rng As Range
   
3.     Dim N1 As Double, N2 As Double
   
4.     N1 = [a4].Value
   
5.     N2 = [a5].Value
   
6.     Set rg = Range("A4:G18")
   
7.     For Each c In rg
   
8.         If c.Value = N1 Or c.Value = N2 Then
   
9.             If rng Is Nothing Then
   
10.                 Set rng = c
    
11.             Else
    
12.                 Set rng = Union(rng, c)
    
13.             End If
    
14.         End If
    
15.     Next
    
16.     rng.Select
    
17.     rng.Font.ColorIndex = 3
    
18. End Sub
    

复制代码

zhouxingyu

天天EP 发表于 2015-7-12 10:15
一列中,A4、A5要连续?

是的,a4和a5是连续的.产生效果如示例.

zhouxingyu

天天EP 发表于 2015-7-12 10:17

代码把不连续的也包含了.能否再改改?非常感谢!

zhouxingyu

baksy 发表于 2015-7-12 10:13
附件

老大:代码在何处?谢谢!

天天EP

zhouxingyu 发表于 2015-7-12 10:21
代码把不连续的也包含了.能否再改改?非常感谢!

试试我的代码能否符合你的要求

zhouxingyu

天天EP 发表于 2015-7-12 10:26
试试我的代码能否符合你的要求

别的没问题,就是把不连续的也给包含了.能否再完善下?多谢.

天天EP

zhouxingyu 发表于 2015-7-12 10:28
别的没问题,就是把不连续的也给包含了.能否再完善下?多谢.

已包含不连续的