Excel VBA質問箱 IV

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

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


21642 / 76732 ←次へ | 前へ→

【60481】Re:複数のCSVのデータを読込で代入したい
質問  初VBA  - 09/2/23(月) 17:24 -

引用なし
パスワード
   ▼トト さん:

>1 to 24
>1〜4は1行目
>5〜8は2行目
>・・・
>21〜24は6行目
>(色変えは6行目まで?)
>
>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

上記のコードだと1行、5行、9行の背景色が変わります。
iが1,5,9と増える為、色々試してみましたが・・
1行〜6行まで連番にするにはどうすればいいですか?
宜しくお願いします。
0 hits

【60410】複数のCSVのデータを読込で代入したい 初VBA 09/2/20(金) 11:22 質問
【60413】Re:複数のCSVのデータを読込で代入したい トト 09/2/20(金) 13:39 発言
【60419】Re:複数のCSVのデータを読込で代入したい 初VBA 09/2/20(金) 17:19 質問
【60420】Re:複数のCSVのデータを読込で代入したい トト 09/2/20(金) 18:18 発言
【60421】Re:複数のCSVのデータを読込で代入したい 初VBA 09/2/20(金) 19:02 質問
【60435】Re:複数のCSVのデータを読込で代入したい トト 09/2/21(土) 10:17 発言
【60452】Re:複数のCSVのデータを読込で代入したい 初VBA 09/2/23(月) 11:59 質問
【60462】Re:複数のCSVのデータを読込で代入したい トト 09/2/23(月) 13:52 発言
【60481】Re:複数のCSVのデータを読込で代入したい 初VBA 09/2/23(月) 17:24 質問
【60482】Re:複数のCSVのデータを読込で代入したい トト 09/2/23(月) 17:38 発言
【60495】Re:複数のCSVのデータを読込で代入したい 初VBA 09/2/24(火) 10:30 質問
【60496】Re:複数のCSVのデータを読込で代入したい トト 09/2/24(火) 11:30 発言
【60499】Re:複数のCSVのデータを読込で代入したい 初VBA 09/2/24(火) 17:13 お礼

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