Excel VBA質問箱 IV

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

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


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

21703 / 76807

←次へ　｜　前へ→


	【60495】Re:複数のCSVのデータを読込で代入したい

初VBＡ - 09/2/24(火) 10:30 -


	引用なし

	パスワード

▼トトさん：

>For i = 1 to 24 Step 4
>　　For myLooP = 1 to 30
>　　　　'判断基準の見直しは必要？
>　　　　If myDATA(i, myLooP) = 1 Or myDATA(i + 1, myLooP) = 1 Then
>　　　　　　'～色変え赤～
>　　　　End If
>　　　　If myDATA(i + 2, myLooP) = 1 Or myDATA(i + 3, myLooP) = 1 Then
>　　　　　　'～色変え黄～
>　　　　End If
>　　Next myLooP
>Next i
>と出来るかと思います。
>
>Sheet1 ～ 3 へ分割する方法は【60413】のコード内に示していますので、
>参考にして下さい。
>上記 myLooP = 1 to 30 ～ Next myLooP の後に
>myLooP = 31 to 60 ～ Next myLooPと続けても良いかと思います。

今までのご教授ありがとうございました。
やりたい事がなんとかできました。

>上記 myLooP = 1 to 30 ～ Next myLooP の後に
>myLooP = 31 to 60 ～ Next myLooPと続けても良いかと思います。
の件につきまして、質問なんですが、

myLooP = 31 to 60 ～ Next myLooPを、myLooP = 1 to 30 ～ Next myLooP の下
に入れると、
For文で指定された変数は既に使用されています。とコンパイルエラーがでます。
myLooP = 1 to 30 ～ Next myLooP の中には挿入できないんですか？

4 hits

▼

【60410】複数のCSVのデータを読込で代入したい 初VBＡ 09/2/20(金) 11:22