Excel VBA質問箱 IV

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

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


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

21643 / 76733

←次へ　｜　前へ→


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

初VBＡ - 09/2/23(月) 17:24 -


	引用なし

	パスワード

▼トトさん：

>1 to 24
>１～４は１行目
>５～８は２行目
>・・・
>２１～２４は６行目
>（色変えは６行目まで？）
>
>1 to 70 は列番号
>1～30　はSheet1 の A～AD
>31～60 はSheet2 の A～AD
>61～70 はSheet3 の A～J
>と勝手に判断させていただきます。
>

先程の質問説明不足で申し訳ありません。
配列の法則性等の解釈は完璧です。

質問です。
For i = 1 To 24 Step 4
　　For myLooP = 1 To 30

　　　　If myDATA(i, myLooP) = "1" Or myDATA(i + 1, myLooP) = "1" Then
　　　　　　Worksheets("Sheet1").Cells(i, myLooP).Select
　　　　　　　With Selection.Interior
　　　　　　　　.ColorIndex = 6
　　　　　　　　.Pattern = xlSolid
　　　　　　 End With
　　　　End If
　　　　
　　　　If myDATA(i + 2, myLooP) = "1" Or myDATA(i + 3, myLooP) = "1" Then
　　　　　　Worksheets("Sheet1").Cells(i, myLooP).Select
　　　　　　　 With Selection.Interior
　　　　　　　　.ColorIndex = 3
　　　　　　　　.Pattern = xlSolid
　　　　　　　 End With
　　　　End If
　　　　
　　Next myLooP
Next i

上記のコードだと１行、５行、９行の背景色が変わります。
iが１，５，９と増える為、色々試してみましたが・・
１行～６行まで連番にするにはどうすればいいですか？
宜しくお願いします。

0 hits

▼

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