Excel VBA質問箱 IV

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

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


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

17273 / 76732

←次へ　｜　前へ→


	【64915】Re:隔行塗りつぶし　の変則処理

Jaka - 10/3/26(金) 16:22 -


	引用なし

	パスワード

▼yukio さん：
>　　　　　　 r = r + 1　←ループで使う変数を外で変えるものじゃないです。
　　　　　　　　　　　　それに、ここで変えても、
　　　　　　　　　　　　下のforで0からって書いてます。
　　　　　　　　　　　　ん？？
　　　　　　　　　　　　こんなところで、変数を使いまわすものではないです。
>　　　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
とかにすればいいんじゃないですか？
ぱっと見で流れ読んでないけど。

0 hits

▼

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