Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

17283 / 76738

←次へ　｜　前へ→


	【64911】隔行塗りつぶし　の変則処理

yukio - 10/3/26(金) 15:41 -


	引用なし

	パスワード

いろいろ試しても解決できませんでした。ご教示をお願いします。
内容は、隔行の塗りつぶし　をしているのですが、ページの区切りに
塗りつぶしなし　を１行を追加しています。
　　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
で、実行してみましたが、最初の２ページ分は、OKなんですが、次の２ページ分の最初の１行が塗りつぶし　にならず、次の次の２ページ分のは、最初と２番目が塗りつぶし　にならず，順次増加していきます。コードに間違いがあるようなのですが、
何らかの方法はないものでしょうか。アドバイスをお願いします。

0 hits

▼

【64911】隔行塗りつぶし　の変則処理 yukio 10/3/26(金) 15:41

≪