|
▼さとう さん:
こんばんは、えーとこんな感じでしょうか。
For j = 4 To 20 Step 4 の方が良いのかな?
Sub test()
Dim i As Integer, j As Integer
With Worksheets("Sheet1")
For i = 1 To 5
j = 4 * i
If .Cells(j - 1, 1).Value = .Cells(j, 1).Value Then
'そのまま
ElseIf .Cells(j - 1,1).Value = "D" And .Cells(j, 1).Value = "" Then
.Cells(j, 1).Interior.ColorIndex = 3
ElseIf .Cells(j - 1,1).Value = "" And .Cells(j, 1).Value = "D" Then
.Cells(j - 1, 1).Interior.ColorIndex = 5
End If
Next i
End With
End Sub
>▼さとう さん:
>>A3とA4の文字列を比べて
>>同じならそのまま
>>A3が”D”で A4が空白のとき A4を赤で塗りつぶす
>>A3が空白で A4が”D”のとき A4を赤で塗りつぶす
>>これを4行ごとにA7とA8、A11とA12・・・・という風に
>>縦横に実行してA3:D20の範囲をチェックするマクロってできますか?
>
>よく見ると間違ってました><
>A3が空白で A4が”D”のとき A4を青で塗りつぶす
>なので一つの条件式にできないってことです。
>
>整理すると
>A3とA4の文字列を比べて
>同じならそのまま
>A3が”D”で A4が空白のとき A4を赤で塗りつぶす
>A3が空白で A4が”D”のとき A4を赤で塗りつぶす
>これを4行ごとにA7とA8、A11とA12・・・・という風に
>縦横に実行してA3:D20の範囲をチェックするマクロってできますか?
>
>他に2つの条件式があるので条件付書式では4つになるので無理なのでマクロにしたい。ってことなのですが。
>
>よろしくお願いします
|
|