归类填充颜色，不一样的填充不一样的底纹

zhuangyongjin

归类填充颜色，不一样的填充不一样的底纹

zhuangyongjin

pureshadow 发表于 2016-1-5 11:18
这个不需要VBA，条件格式就可以了
公式用：

谢谢你
但是，我还要做其它的一些操作，用VBA比较方便

zhuangyongjin

roych 发表于 2016-1-5 16:22
写得有点啰嗦，有时间再优化呗。

详见附件。

谢谢您
代码测试了下，一直运行过程，颜色会一直改变

zhuangyongjin

pureshadow 发表于 2016-1-7 11:21
这个呢

谢谢您
测试了下，如果跳行录入数据，会出现相邻两行的数据不一样，但颜色一样

zhuangyongjin

roych 发表于 2016-1-7 10:09
附件已更新，请自行下载。

谢谢您，您的方法可行
不过，里面有一句代码我不理解                m.Interior.Color = RGB(0, 192, 0)
                If m.Interior.Color = k.Interior.Color Then   
                    m.Interior.Color = vbYellow
                End If当 m <>k时，单元格填充的是绿色。
然后，当单元格的颜色等于k的颜色，那么单元格的颜色就是黄色，但是k表示A3，本来就是黄色啊，那么这个条件If m.Interior.Color = k.Interior.Color 怎么会成立呢

zhuangyongjin

roych 发表于 2016-1-8 08:43
请留意 set k=m

谢谢你，现在明白了。
现在这个表格，可以弄成黄色和绿色两种颜色，如果我想要弄成黄色、绿色、蓝色三种颜色，需要怎么修改代码呢