excel同列不同颜色数据条

etc

'添加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 WithElse With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorAccent1 '蓝色 .TintAndShade = 0 .PatternTintAndShade = 0 End WithEnd IfEnd IfEnd Sub