Excel 编程控制图表数据点颜色

来源：百度知道 编辑：UC知道 时间：2024/05/28 01:57:54
通过程序设置，控制不同数据点的颜色变化
希望通过VBA 实现，因为里面要有条件判定的，谢谢
是这样的，要求用折线图展示一些数据，但是折线图中的数据点要在数据满足某些条件下，显示为不同的颜色，起到突出显示的作用，请高手详细指点，不胜感激

起始条件个是很实用，有的时候不必编成。
举个例子：
A1=1, A2=0。当等于1时为红字，粉背景；当等于0时，为棕色字，深黄背景。

Sub Macro1()
'
' Macro1 Macro
'

'
Columns("A:A").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=1"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16383844
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13551615
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=0"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With S