ถ้าเคยใช้ macro ลองดู code นี้ครับ
Code:
Sub ChangeColor()
Application.ScreenUpdating = False
Dim myTarget As Integer
myTarget = [Target]
ActiveSheet.ChartObjects(1).Activate
For i = 1 To ActiveChart.SeriesCollection(1).Points.Count
If ActiveChart.SeriesCollection(1).Points(i).DataLabel.Text >= myTarget Then
ActiveChart.SeriesCollection(1).Points(i).Interior.ColorIndex = 6
ElseIf ActiveChart.SeriesCollection(1).Points(i).DataLabel.Text < myTarget Then
ActiveChart.SeriesCollection(1).Points(i).Interior.ColorIndex = 3
End If
Next i
Range("A2").Select
End Sub