|
よろしくお願いします。
10枚のシートがあります。
その中の9枚のシートのデータから9枚のグラフシートができています。
シートの名前はばらばらですが、グラフシートは1番目、2番目で選択していきます。
データは
人名(A列)、時間(O列)、月間基準値(P列)、年間基準値(Q列)
の4つあり、O列の「時間」の値がP列の「月間基準値」の値を超えたら、「時間」を表す棒グラフの色を赤色にかえたいのですが、
以下のようなマクロだと、
変数iが2枚目のシートに移動したとき、初期値の「1」ではなくなってしまいます。
これを、シートが変わるたびに、変数iが「1」から始まるようにするには
どのようにすればよいのでしょうか?
うまく説明ができず申し訳ありませんが、
お力をお借りしたいと思います。
Sub chartsmente()
Dim mySht As Worksheet
Dim i As Integer
Dim c As Integer
i = 1
C = 1
For Each mySht In Worksheets
If mySht.Name <> "基本データ" Then
mySht.Select
Do While Cells(3 + i, "O").Value <> ""
If mySht.Cells(3 + i, "O").Value > Cells(3 + i, "P").Value Then
Charts(c).Select
ActiveChart.SeriesCollection(1).Points(i).Select
With Selection.Interior
.ColorIndex = 3
End With
End If
i = i + 1
Loop
End If
C = C + 1
Next
End Sub
|
|