Excel VBA質問箱 IV

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

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


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

17276 / 76738

←次へ　｜　前へ→


	【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
>とかにすればいいんじゃないですか？
>ぱっと見で流れ読んでないけど。

早速のアドバイス有難うございます。
言われる通り、ｒ＝ｒ+1を削除し、
For r = 0 To r Step 1　だけにしまして、問題がスッキリしました。
ページが進むにつれて、単純に1,3,5,7....と塗りつぶしの予定の行が
塗りつぶしにならず、増えて行くようです。従って、２ページ分毎に変わる最初の質問の時の状態よりは、分かりよいです。
しかし、その後の処理は、いずれも無理な作業なんでしょうか？

0 hits

▼

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