| |
▼初VBＡ さん：
> (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 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と続けても良いかと思います。
|
|
トト
- 09/2/23(月) 13:52 -
