Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


19588 / 76732 ←次へ | 前へ→

【62574】Re:背景色
質問  トキノハジメ  - 09/7/31(金) 22:04 -

引用なし
パスワード
   ▼つん さん:
>一応マクロも組んでみた。
>
>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)としたら答えてくれましたがこれでよいのでしょうか。アドバイス宜しくお願いいたします。
88 hits

【62566】背景色 トキノハジメ 09/7/31(金) 13:52 質問
【62567】Re:背景色 つん 09/7/31(金) 14:15 発言
【62568】Re:背景色 つん 09/7/31(金) 15:12 発言
【62574】Re:背景色 トキノハジメ 09/7/31(金) 22:04 質問
【62588】Re:背景色 つん 09/8/3(月) 9:07 発言
【62597】Re:背景色 トキノハジメ 09/8/5(水) 8:01 お礼

19588 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free