[已解决]自动填充颜色

梦镜0314

求助，单元格如何自动填充颜色

最佳答案

月排行榜 / 总排行榜

爱疯

2015-6-5 09:46

Sub Click()
    Dim x
    For Each x In [e8:H8]
        x.Interior.ColorIndex = IIf(x > x.Offset(-1, 0), 3, 4)
    Next
End Sub
2.rar (8.78 KB, 下载次数: 8)

2015-6-5 09:46 上传

点击文件名下载附件

跳转到最佳答案楼层

梦镜0314

要求不使用条件格式

luowangxx

使用条件格式

梦镜0314

luowangxx 发表于 2015-6-5 09:28
使用条件格式

谢谢，要求不使用条件格式，唉，不知道怎么想的，不让使用条件格式

luowangxx

梦镜0314 发表于 2015-6-5 09:31
谢谢，要求不使用条件格式，唉，不知道怎么想的，不让使用条件格式

不使用条件格式就只能用VBA 了

梦镜0314

luowangxx 发表于 2015-6-5 09:34
不使用条件格式就只能用VBA 了

那你会吗，能教我下吗，麻烦了

luowangxx

梦镜0314 发表于 2015-6-5 09:40
那你会吗，能教我下吗，麻烦了

http://www.excelpx.com/forum.php ... 8%F1%2B%D1%D5%C9%AB

你看一下这个帖子，你可以修改一下

爱疯

Sub Click()
    Dim x
    For Each x In [e8:H8]
        x.Interior.ColorIndex = IIf(x > x.Offset(-1, 0), 3, 4)
    Next
End Sub
2.rar (8.78 KB, 下载次数: 8)

2015-6-5 09:46 上传

点击文件名下载附件

梦镜0314

爱疯 发表于 2015-6-5 09:46
Sub Click()
    Dim x
    For Each x In [e8:H8]

谢谢，太感谢啦