[已解决]如何使用VBA代码实现条件格式的功能？

v-cand

如图片

最佳答案

月排行榜 / 总排行榜

gufengaoyue

2015-7-22 16:04

新建 WinRAR 压缩文件.rar (11.34 KB, 下载次数: 10)

2015-7-22 17:19 上传

点击文件名下载附件

跳转到最佳答案楼层

爱疯

Sub test()
    Dim rng As Range, x As Range, d As Object
    Application.ScreenUpdating = False
    Set d = CreateObject("scripting.dictionary")

    Set rng = [h2:k2]    '图例
    For Each x In rng
        d(x.Value) = x.Interior.Color
    Next

    Set rng = [a2].CurrentRegion    '数据
    For Each x In rng
        x.Interior.Color = d(x.Value)
    Next
End Sub

2.rar (11.96 KB, 下载次数: 3)

2015-7-22 15:56 上传

点击文件名下载附件

这么写只为好理解。
如果数据太多，可能会慢。

gufengaoyue

新建 WinRAR 压缩文件.rar (11.34 KB, 下载次数: 10)

2015-7-22 17:19 上传

点击文件名下载附件

v-cand

gufengaoyue 发表于 2015-7-22 16:04

这个怎么运行？好像不行

爱疯

v-cand 发表于 2015-7-22 16:48
这个怎么运行？好像不行

3楼的回复是：当修改数据区中的值时，自动修改填充色。

比如，把B2的值改成4，再看 。。。。

v-cand

爱疯 发表于 2015-7-22 15:58
Sub test()
    Dim rng As Range, x As Range, d As Object
    Application.ScreenUpdating = False

老师，能不能把没有符合的值就不填充，也就是没有底色或者为白色，   然后这个代码中如果隔一行没有数据时下面的就不能实现了,实际中会有隔行没有任何数据的，这个能不能修改下呢？

gufengaoyue

v-cand 发表于 2015-7-22 17:01
老师，能不能把没有符合的值就不填充，也就是没有底色或者为白色，   然后这个代码中如果隔一行没有数据时 ...

附件已更新。
输入的值如果不在规定的范围中，则底色不显示。

爱疯

Sub test()
    Dim rng As Range, x As Range, d As Object
    Application.ScreenUpdating = False
    Set d = CreateObject("scripting.dictionary")

    Set rng = [h2:k2]    '图例
    For Each x In rng
        d(x.Value) = x.Interior.Color
    Next

    Set rng = [a2].CurrentRegion    '数据
    For Each x In rng
        If d.exists(x.Value) Then x.Interior.Color = d(x.Value)
    Next
End Sub
3.rar (11.37 KB, 下载次数: 2)

2015-7-22 17:25 上传

点击文件名下载附件

v-cand

gufengaoyue 发表于 2015-7-22 16:04

因为我是把表格的数据都做好了，然后再使用你的那段代码，不能自动填充，以及当下拉时所有单元格都是一个颜色（数据不一样时），需要每一个单元格点进去在退出才能更改填充的颜色，请问应该怎么操作呢

v-cand

爱疯 发表于 2015-7-22 17:25
Sub test()
    Dim rng As Range, x As Range, d As Object
    Application.ScreenUpdating = False

老师，很感谢你的帮忙，这个代码在运行时出现一点小小的问题，当数据不是每行都有时，就不能填充下面的单元格了。假如A1,A2有数据，A3没有数据，A4,A5有数据时，只能对A1和A2单元格填充，而A4,A5则不能实现填充。如图片，我希望得到的是将工作表中有符合图例中的数据时就填充，不受上述隔了一行下面单元格就不填充的限制