Excel VBA質問箱 IV

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

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


19594 / 76732 ←次へ | 前へ→

【62568】Re:背景色
発言  つん  - 09/7/31(金) 15:12 -

引用なし
パスワード
   一応マクロも組んでみた。

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


なんか、べたな感じですね^^;
もちっとスマートなやり方はないのか!?
80 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 お礼

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