| |
▼さとう さん：
こんばんは、えーとこんな感じでしょうか。
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 = "Ｄ" And .Cells(j, 1).Value = "" Then
.Cells(j, 1).Interior.ColorIndex = 3
ElseIf .Cells(j - 1,1).Value = "" And .Cells(j, 1).Value = "Ｄ" Then
.Cells(j - 1, 1).Interior.ColorIndex = 5
End If
Next i
End With
End Sub
>▼さとう さん：
>>A3とA4の文字列を比べて
>>同じならそのまま
>>A3が”Ｄ”で A4が空白のとき A4を赤で塗りつぶす
>>A3が空白で A4が”Ｄ”のとき A4を赤で塗りつぶす
>>これを4行ごとにA7とA8、A11とA12・・・・という風に
>>縦横に実行してA3:D20の範囲をチェックするマクロってできますか？
>
>よく見ると間違ってました＞＜
>A3が空白で A4が”Ｄ”のとき A4を青で塗りつぶす
>なので一つの条件式にできないってことです。
>
>整理すると
>A3とA4の文字列を比べて
>同じならそのまま
>A3が”Ｄ”で A4が空白のとき A4を赤で塗りつぶす
>A3が空白で A4が”Ｄ”のとき A4を赤で塗りつぶす
>これを4行ごとにA7とA8、A11とA12・・・・という風に
>縦横に実行してA3:D20の範囲をチェックするマクロってできますか？
>
>他に２つの条件式があるので条件付書式では４つになるので無理なのでマクロにしたい。ってことなのですが。
>
>よろしくお願いします
|
|
SS
- 09/7/2(木) 20:02 -
