| |
▼ぼこ さん：
こんにちは、こんな方法があると思います。
データのある最終行LastRは取得出来ているものとして
For i=1 To LastR
If Range("A" & i) = "0" And Range("B" & i) = "0" Then
・
・
・
End If
Next i
>A1="0" かつ B1="０" ならば，
>Ｂ１セルの色は何もなし。
>それ以外は，
>B１セルの色を赤くする。
>
>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
>
>これを次に，
>A２="０" かつ B２="０" ならば，
>Ｂ２セルの色は何もなし。
>それ以外は，
>B２セルの色を赤くする。
>
>といったように，データのある最終行まで同様の処理を行いたい
>のですが，どのように記述したらよいでしょうか？
|
|
MI
- 09/11/23(月) 6:54 -
