excel同列不同颜色数据条

Question

条件是大于50%的用蓝色数据条标记
小于50%的用红色数据条标记
既要体现出数据条长短，又要用红蓝颜色区分50%上下的
数据有很多，不能逐一选定；
数据每日都有变化，可能今天该数值大于50%，明天就变成小于50%了
（用条件格式也行，不用条件格式也行）

最终结果就像下图这样

回答方法能够实现上述功能的，追加50分

Answer 1

'添加sheetchange事件代码，单元格数值变动时自动刷新

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

If Target.Column = 3 Then '假如数据在C列

Target.Select

If Target.Value <= 0.5 Then
' With Cells(Target.Row, Target.Column).Interior
With Target.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255 '红色
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Else
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent1 '蓝色
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
End If
End Sub

追问

大侠，VBA小生不会啊……有没有其他方法啊？

追答

没有其它方法，想要高级运用，就必须自己扩展。

使用并不繁杂，具体使用方法如下：

1、点击工具样“开发工具”－“visual Basic”，进行vb环境；
2、双击左侧树内的节点“ThisWorkBook”，右侧编辑窗内的两个下拉框显示为“通用”和“声明”。
3、把我回复的代码粘贴进去，两个下拉框应改变为“Workbook”和“SheetChange”，保存后关闭该VB环境。
好了，在C列里输入百分比数据，看看单元格颜色是不是变化了。

注：如果数据不在C列，按上面的操作方法，重新进行前两步，找到下面的语句（就是第二句）：

If Target.Column = 3 Then '假如数据在C列

按照你想修改单元格颜色的列名修改该语句的数字“3”就可以了。列名“A、B、C、D、E、F、...”，分别对应“1、2、3、4、5、....”

追问

木有效果……
按照你的步骤做了，可能是我太笨了吧……

追答

还有一个最简单的。

Answer 2

直接用excel的条件格式就好了。 直接百度一下，资料很多的

追问

这位仁兄，你用条件格式做一下呗
成功的话妥妥给你最佳答案！

追答

选中整列，点击开始-条件格式-突出显示单元格规则-大于 输入0.6，选择需要的颜色。
然后同样选择小于，输入0.6，选择需要的颜色即可。

Answer 3

好像只能有VB，要不就比较复杂

Answer 4

这个怎么弄？？

Answer 5

你好，你的问题已经解决了么？我有相同的问题想请教一下，能稍微指点一下么？