|
Jaka さん
レス有難うございます。
棒グラフのSeriesCollection(1)の色が
ColorIndex = 3,7と変わるってことですよね(違っていたらすみません)
With ActiveChart.SeriesCollection(1).Points(i).Interiorの行でエラーに
なってしまいます。なぜかわかりません。
VBAを始めたばかりで初心者であることを先に述べるべきでした。
どうぞ、ご教授くださいますようお願いします。
▼Jaka さん:
>Sub vivi()
> Dim LastRow As Long, i As Long, Acad As String
> LastRow = 5
> Application.ScreenUpdating = False
> Acad = ActiveCell.Address
> ActiveSheet.ChartObjects("グラフ 1").Activate
> For i = 1 To LastRow
> With ActiveChart.SeriesCollection(1).Points(i).Interior
> If Range("A" & i).Value >= 30 Then
> .ColorIndex = 3
> ElseIf Range("A" & i).Value >= 20 Then
> .ColorIndex = 6
> Else
> .ColorIndex = 17
> End If
> End With
> Next
> Range(Acad).Select
> Application.ScreenUpdating = True
>End Sub
|
|