[엑셀] 꺽은선 차트 그래프에서 범위를 벗어났을 경우 강조하는 엑셀 매크로 및 사용법

Theme 꺽은선 차트 그래프에서 범위를 벗어났을 경우 강조하는 엑셀 매크로 및 사용법 Comments 그래프에서 범위를 벗어났을 경우에 강조하는 법

꺽은선 차트 그래프에서 범위를 벗어났을 경우 강조하는 엑셀 매크로 및 사용법

Sub Macro2()
Dim 색 As Long, rng As Range, i As Long
With ActiveSheet
Set rng = .Range("c3:q5")
For i = 3 To 17
If .Cells(3, i) > .Cells(4, i) Or .Cells(3, i) < .Cells(5, i) Then
If .Cells(3, i) > .Cells(4, i) Then 색 = 3
If .Cells(3, i) < .Cells(5, i) Then 색 = 5
.ChartObjects("chart 1").Activate
   ActiveChart.ChartArea.Select
   ActiveChart.SeriesCollection(1).Select
   ActiveChart.SeriesCollection(1).Points(i - 2).Select
   With Selection.Border
       .ColorIndex = 56
       .Weight = xlMedium
       .LineStyle = xlContinuous
   End With
   With Selection
       .MarkerBackgroundColorIndex = 색
       .MarkerForegroundColorIndex = 색
       .MarkerStyle = xlCircle
       .MarkerSize = 9
       .Shadow = False
   End With
   End If
   Next
   End With
End Sub