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

gdwying · 发表于 2011-12-14 10:12

有一组数据，如附件表：　名称　　　总成绩（排序主键），假设为12个，分为三档，每档用一个颜色做背景，总成绩变化时，可能上一个档，也可能下一个档，在这变化时能否做到背景颜色不动吗？

panan123_0 · 发表于 2011-12-14 10:22

本帖最后由 panan123_0 于 2011-12-14 10:26 编辑

关键你拿什么分3档我看了你附件没有啥规律啊
我猜下是不是有12个人总分前4的一档中间4个人一档最后4个一档。
如果总数有24个人那么总分前8个的一档中间8个人一档最后8个一档。
是这样吗

gdwying · 发表于 2011-12-14 10:46

是的，按数据量除以3的平均数分档，谢谢！

gdwying · 发表于 2011-12-14 10:47

panan123_0 发表于 2011-12-14 10:22
关键你拿什么分3档我看了你附件没有啥规律啊
我猜下是不是有12个人总分前4的一档中间4个人一档最后 ...

是的，按数据总量除以3的平均数分档，谢谢！

panan123_0 · 发表于 2011-12-14 11:15

数据正好能被3整除三等分，不能话就分4分

gdwying · 发表于 2011-12-14 15:09

panan123_0 发表于 2011-12-14 11:15
数据正好能被3整除三等分，不能话就分4分

谢谢你的帮助。可能是我的描述不清楚，让你产生了误解。我的意思是表中的数据只分三档，余数就放在最后一档，这样能行吗？不过你这方法也可以用了，只是觉得多了一点而已，非常感谢了！

panan123_0 · 发表于 2011-12-15 08:35

看看数据改变就执行

gdwying · 发表于 2011-12-15 09:01

panan123_0 发表于 2011-12-15 08:35
看看数据改变就执行

我测试了一下，在执行 Macro1 Macro时出错，提示为：对象不支持该属性或方法。出错代码为：438。出错时指向语句： .ColorIndex = 6 我不知道如何处理，辛苦你看看，谢谢！

panan123_0 · 发表于 2011-12-15 09:08

我这里好好的
Private Sub Worksheet_Change(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
x = 6
e = 0
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 · 发表于 2011-12-15 11:04

panan123_0 发表于 2011-12-15 09:08
我这里好好的
Private Sub Worksheet_Change(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNon ...

我对照了一下，代码没有错，可能是我的版本问题吧，不然还会有什么问题呢？

		自动登录	找回密码
密码			免费注册

[求助] 数据变动时能否使背景颜色不动