| |
もも さん、こんばんは
>変数iが２枚目のシートに移動したとき、初期値の「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
あまりしっかり見てませんが、
For Each mySht In Worksheets
の直後で、「ｉ」の値を「１」に初期化してやればいいんじゃないですか？
そしたら、シートが変わるたびに「１」からはじまるような気がします。
|
|
つん
- 04/9/17(金) 23:44 -
