表格数字分颜色的问题(附件已上传，请帮忙）

lqf334

在一表格中：C、D、E、F、G、I列中的数，想指定某些数为红色、某些数为黄色、某些数为绿色，A、B两列不要改，不知VBA要怎样写  把Sheet1n改成sheet2的形式
红色：01 02 07 08 12 13 18 19 23 24 29 30 34 35 40 45 46  
蓝色:03 04 09 10 14 15 20 25 26 31 36 37 41 42 47 48
绿色:05 06 11 16 17 21 22 27 28 32 33 38 39 43 44 49

用函数分色就有个问题，0头的数分不了

[ 本帖最后由 lqf334 于 2009-3-20 23:32 编辑 ]

LangQueS

建议楼主压缩上传Excel问题附件并加以说明或做出模拟结果，以便大家了解和解答。(编辑已发贴即可补充上传附件)

如何发表新话题和上传附件:
http://club.excelhome.net/thread-45649-1-1.html

发帖的技巧:
http://club.excelhome.net/thread-176339-1-1.html

lqf334

附件上传完毕

HHAAMM

这个用条件格式就可以吧！！

LangQueS

检索对照表设置字体颜色.rar (36.43 KB, 下载次数: 68)

2009-3-20 23:57 上传

点击文件名下载附件

HHAAMM

是这样吗？
Sub test()
Dim a, b, c, aa(2), Ra As Range, j%, i%
a = Split("3 01 02 07 08 12 13 18 19 23 24 29 30 34 35 40 45 46", " ")
b = Split("11 03 04 09 10 14 15 20 25 26 31 36 37 41 42 47 48", " ")
c = Split("4 05 06 11 16 17 21 22 27 28 32 33 38 39 43 44 49", " ")
aa(0) = a: aa(1) = b: aa(2) = c
For Each Ra In Range("c1:i18")
    For j = 0 To 2
        For i = 1 To UBound(aa(j))
            If Val(aa(j)(i)) = Ra.Value Then
                Ra.Font.ColorIndex = Val(aa(j)(0))
                Exit For
            End If
        Next i
    Next j
Next
End Sub

lqf334

先谢谢大家，却去试试

zeze0708

thanks a lot !