Excel VBA質問箱 IV

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

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


21661 / 76732 ←次へ | 前へ→

【60462】Re:複数のCSVのデータを読込で代入したい
発言  トト  - 09/2/23(月) 13:52 -

引用なし
パスワード
   ▼初VBA さん:
> (1)or(2)が1だったら
> セル(A1,1)の背景赤
> (3)or(4)が1だったら
> セル(A1,1)の背景黄色
(1)が1 かつ(3)が1となるような事は無いのでしょうか?

> セル(A1,1)
> セル(A1,2)
> セル(A2,1)
とは何を指すのでしょうか?(Cell(1,1) ? Range("A1") ?)


上記コード内の変数 myDATA と考えて良いのですよね?
1 to 24 、 1 to 70
での法則性などが提示されてないので、

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
と勝手に判断させていただきます。

【60420】にて書いた
> For i = 1 to 24
>   For myLooP = 1 to 70 '??でよい?
>     If myDATA(i, myLooP) = 1 Then
>       '〜 色変え 〜
>     End If
>   Next myLooP
> Next i

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と続けても良いかと思います。

1 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 お礼

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