数据变动时能否使背景颜色不动

panan123_0

应该不会，不行你用前面那个按钮的。

gdwying

panan123_0 发表于 2011-12-15 11:38
应该不会，不行你用前面那个按钮的。

我也觉得那个好用，只是多了一段颜色而已，谢谢你！

panan123_0

那用这个代码
去掉第四个颜色
Sub 三等分颜色()
x = 6
o = Round((Range("a65536").End(xlUp).Row - 1) / 3, 0)
For i = 2 To Range("a65536").End(xlUp).Row Step o
Rows(i & ":" & i + o - 1).Interior.ColorIndex = x
x = x + 1
e = e + 1
If e = 3 Then Exit Sub
Next
End Sub

gdwying

panan123_0 发表于 2011-12-16 08:19
那用这个代码
去掉第四个颜色
Sub 三等分颜色()

好的，我先去试试，谢谢，如有问题，我再来请教！

gdwying

panan123_0 发表于 2011-12-16 08:19
那用这个代码
去掉第四个颜色
Sub 三等分颜色()

用这个代码覆盖有按钮的那个sheet1中的代码，执行时还是有四个颜色，不知道为什么？

panan123_0

不可能，我加了条件就循环3次。见附件

gdwying

panan123_0 发表于 2011-12-16 10:52
不可能，我加了条件就循环3次。见附件

这次就没有四色了，谢谢你的帮助，非常感谢！