| |
ponponです。こんばんは。
色つけの部分だけ、よくわからないのですが・・・
まとめると、
項目１がAAAの時、
項目２がBBBまたは,CCCまたは,DDD,または,BBBを含む文字列の場合に 赤
項目１がBBBの時
項目２がCCCまたは,EEEの場合に 赤
項目１がCCCの時
項目２がFFFの場合に 赤
ということではないのですか？
項目１は、A列、項目２は、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
|
|
ponpon
- 05/4/14(木) 21:40 -
