|
▼つん さん:
>一応マクロも組んでみた。
>
>Sub test()
>
> Dim r As Range
>
> For Each r In Selection
> If r.Row = 1 Then
> If r.Value < r.Offset(0, 1).Value Then
> r.Interior.ColorIndex = 8
> End If
> Else
> If r.Value < r.Offset(, 1).Value And r.Value < r.Offset(-1, 0).Value Then
> r.Interior.ColorIndex = 36
> ElseIf r.Value < r.Offset(0, 1).Value Then
> r.Interior.ColorIndex = 8
> ElseIf r.Value < r.Offset(-1, 0).Value Then
> r.Interior.ColorIndex = 35
> End If
> End If
> Next r
>
>End Sub
>
>
>なんか、べたな感じですね^^;
>もちっとスマートなやり方はないのか!?
つん様 早速のコード有難うございました。テストの結果うまくいかなかったので
コードの上から9行目の括弧のなかを(0, 1)としたら答えてくれましたがこれでよいのでしょうか。アドバイス宜しくお願いいたします。
|
|