|
▼ぼこ さん:
こんにちは、こんな方法があると思います。
データのある最終行LastRは取得出来ているものとして
For i=1 To LastR
If Range("A" & i) = "0" And Range("B" & i) = "0" Then
・
・
・
End If
Next i
>A1="0" かつ B1="0" ならば,
>B1セルの色は何もなし。
>それ以外は,
>B1セルの色を赤くする。
>
>sub test()
>
>If Range("A1") = "0" And Range("B1") = "0" Then
>Range("B1").Select
> With Selection.Interior
> .ColorIndex = xlNone
> End With
>Else
>Range("B1").Select
> With Selection.Interior
> .ColorIndex = 3
> .Pattern = xlSolid
> End With
>End If
>End sub
>
>これを次に,
>A2="0" かつ B2="0" ならば,
>B2セルの色は何もなし。
>それ以外は,
>B2セルの色を赤くする。
>
>といったように,データのある最終行まで同様の処理を行いたい
>のですが,どのように記述したらよいでしょうか?
|
|