Excel VBA質問箱 IV

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

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


17270 / 76732 ←次へ | 前へ→

【64919】Re:隔行塗りつぶし の変則処理
お礼  yukio  - 10/3/26(金) 17:59 -

引用なし
パスワード
   ▼Jaka さん:
>>    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
>単に
>For rr = 0 To r Step 1
>とかにすればいいんじゃないですか?
>ぱっと見で流れ読んでないけど。

早速のアドバイス有難うございます。
言われる通り、r=r+1を削除し、
For r = 0 To r Step 1 だけにしまして、問題がスッキリしました。
ページが進むにつれて、単純に1,3,5,7....と塗りつぶしの予定の行が
塗りつぶしにならず、増えて行くようです。従って、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 お礼

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