|
いろいろ試しても解決できませんでした。ご教示をお願いします。
内容は、隔行の塗りつぶし をしているのですが、ページの区切りに
塗りつぶしなし を1行を追加しています。
MaxRows = Sheets("Sheet1").UsedRange.Rows.Count
y = MaxRows
For y = 1 To 46 Step 2
Sheets("Sheet1").Select
Range("B50:F50").Rows(y).Interior.ColorIndex = 3
Range("B97:F97").Rows(y).Interior.ColorIndex = 3
Range("B144:F144").Rows(y).Interior.ColorIndex = 3
Range("B191:F191").Rows(y).Interior.ColorIndex = 3
Range("B238:F238").Rows(y).Interior.ColorIndex = 3
Range("B285:F285").Rows(y).Interior.ColorIndex = 3
−以下続ける−
Next y
これに、変数を追加して、
For y = 1 To 46 Step 2
Sheets("Sheet1").Select
r = r + 1
For r = 0 To r Step 1
MyRows = 50 + (47 * r)
Range(Cells(MyRows, 2), Cells(MyRows, 6)).Rows(y).Interior.ColorIndex = 3
Next r
Next y
で、実行してみましたが、最初の2ページ分は、OKなんですが、次の2ページ分の最初の1行が塗りつぶし にならず、次の次の2ページ分のは、最初と2番目が塗りつぶし にならず,順次増加していきます。コードに間違いがあるようなのですが、
何らかの方法はないものでしょうか。アドバイスをお願いします。
|
|