|
ponponです。こんばんは。
色つけの部分だけ、よくわからないのですが・・・
まとめると、
項目1がAAAの時、
項目2がBBBまたは,CCCまたは,DDD,または,BBBを含む文字列の場合に 赤
項目1がBBBの時
項目2がCCCまたは,EEEの場合に 赤
項目1がCCCの時
項目2がFFFの場合に 赤
ということではないのですか?
項目1は、A列、項目2は、D列で考えています。
違っていたらすみません。
Sub test()
Dim myRng As Range
Dim r As Range
With Worksheets("sheet1")
Set myRng = .Range("A2", Range("A65536").End(xlUp))
For Each r In myRng
Select Case r.Value
Case Is = "AAA"
If r.Offset(0, 3).Value = "BBB" Or _
r.Offset(0, 3).Value = "CCC" Or _
r.Offset(0, 3).Value = "DDD" Or _
r.Offset(0, 3).Value <> "*BBB*" Then
r.Offset(0, 3).Interior.ColorIndex = 3
End If
Case Is = "BBB"
If r.Offset(0, 3).Value = "CCC" Or _
r.Offset(0, 3).Value = "EEE" Then
r.Offset(0, 3).Interior.ColorIndex = 3
End If
Case Is = "CCC"
If r.Offset(0, 3).Value = "FFF" Then
r.Offset(0, 3).Interior.ColorIndex = 3
End If
End Select
Next
End With
End Sub
|
|