|
▼あい さん:
条件の意味合いが今ひとつ分かりにくいのですが・・・最終結果から判断すると
Sub test()
Dim i As Integer
For i = 1 To 10
If Cells(i, 1) <> "" Then Cells(i, 1).Font.ColorIndex = 4
Next i
For i = 1 To 10
If Cells(i, 1) <> "" And Cells(i, 1).Offset(1) <> "" Then _
Cells(i, 1).Offset(1).Font.ColorIndex = 3
Next
End Sub
こんな事でしょうか?
この条件は10行まで行くとこの一現象で維持していないため
変動した結果を見ました。
>条件1.A1が未記入(ブランクセル)
>条件2.A2が未記入(ブランクセル)
>表示 A2はセルの色は無し
>
>条件1.A1が記入(セルにデータあり)
>条件2.A2が未記入(ブランクセル)
>表示 A2はセルの色を青にする
>
>条件1.A1が記入(セルにデータあり)
>条件2.A2が記入(セルにデータあり)
>表示 A2はセルの色を赤にする
>
>上記"A2"のところをA3、A4〜A10と変化させたいです。
>よろしくお願いいたします。
|
|