Excel VBA質問箱 IV

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

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


17277 / 76732 ←次へ | 前へ→

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

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

【64911】隔行塗りつぶし の変則処理 yukio 10/3/26(金) 15:41 質問
【64915】Re:隔行塗りつぶし の変則処理 Jaka 10/3/26(金) 16:22 発言
【64919】Re:隔行塗りつぶし の変則処理 yukio 10/3/26(金) 17:59 お礼
【64922】Re:隔行塗りつぶし の変則処理 ん? 10/3/26(金) 20:44 発言
【64924】Re:隔行塗りつぶし の変則処理 yukio 10/3/26(金) 21:49 お礼
【64928】Re:隔行塗りつぶし の変則処理 ん? 10/3/26(金) 23:51 発言
【64933】Re:隔行塗りつぶし の変則処理 yukio 10/3/27(土) 13:51 お礼
【64934】Re:隔行塗りつぶし の変則処理 ん? 10/3/27(土) 14:19 発言
【64939】Re:隔行塗りつぶし の変則処理 yukio 10/3/28(日) 10:41 お礼
【64935】Re:隔行塗りつぶし の変則処理 SS 10/3/27(土) 14:54 発言
【64940】Re:隔行塗りつぶし の変則処理 yukio 10/3/28(日) 10:53 お礼

17277 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free