|
以下2つのコードを1つにまとめたいです。
If Then など使うのでしょうか?
Sub TEST20()
Dim Con
'条件付き書式を削除
Range("D22:X24").FormatConditions.Delete
'条件を、0~20に設定して、オブジェクトに格納
Set Con = Range("D22:X24").FormatConditions.Add(Type:=xlExpression, Formula1:="=And(0<=D22, D22<=20)")
'条件成立で、背景色を「水色」
Con.Interior.ColorIndex = 38
End Sub
Sub TEST25()
Dim Con
'条件付き書式を削除
Range("D22:X24").FormatConditions.Delete
'条件を、0~20に設定して、オブジェクトに格納
Set Con = Range("D22:X24").FormatConditions.Add(Type:=xlExpression, Formula1:="=And(21<=D22, D22<=25)")
'条件成立で、背景色を「緑色」
Con.Interior.ColorIndex = 7
End Sub
|
|