|
こんにちは。
かみちゃん さん、横から失礼します。
>Sub Test()
> 'C1の数値がA1の数値よりも10大きい場合
> If Range("C1").Value - Range("A1").Value = 10 Then
> 'B1のセルを赤色にする。
> Range("B1").Interior.ColorIndex = 3
> End If
> 'C1の数値がA1の数値よりも10少ない場合
> If Range("A1").Value - Range("C1").Value = 10 Then
> 'B1のセルを赤色にする。
> Range("B1").Interior.ColorIndex = 3
> End If
>End Sub
かみちゃんさんのコードをちょいとダイエットしてみました。
Sub Test()
'C1の数値よA1の数値に10の差がある場合
If Abs(Range("C1").Value - Range("A1").Value) = 10 Then
'B1のセルを赤色にする。
Range("B1").Interior.ColorIndex = 3
End If
End Sub
これで、「10大きい場合」「10ちいさい場合」両方に
対応すると思います。どかなー?
ところで、IF関数を使って、とおっしゃってるのだから、
もしかして、VBAを使わずに、ということなんでしょうか?
それやったら、B1 にIF関数を埋め込んで、さらに条件付き書式を
設定すればいいかな?
|
|