Excel VBA質問箱 IV

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

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


4409 / 76734 ←次へ | 前へ→

【77948】Re:一定以上の数値に色づけをしたい
発言  β  - 16/2/15(月) 21:24 -

引用なし
パスワード
   ▼初心者A さん:

処理例です。

コメントした通りデータ行数はA1を参照しなくても取得できますので A1 は無視しています。
比べるべき数字 5 であたり、10 であったり、変更のつど、マクロを修正するのは感心しませんので
セルに入力して指定します。仮に、そのセルを A2 にします。

Sample1 は条件付書式に色塗りを任せます。Sample2は比較して色塗りします。
βとしては Sample1 がおすすめです。

Sub Sample1()

  With Range("A1", ActiveSheet.UsedRange)   'このシートのA1から使用領域最後までの領域
    .Columns("B").Formula = "=SUM(C1:G1)"  '使用領域のB列に、数式を一括設定。
  End With
  
  With Columns("B")
    .FormatConditions.Delete
    .FormatConditions.Add Type:=xlExpression, Formula1:= _
            "=AND($A$2<>"""",B1<>"""",SUM(C1:G1)>$A$2)"
    With .FormatConditions(1).Interior
      .PatternColorIndex = xlAutomatic
      .ColorIndex = 7
      .TintAndShade = 0
    End With
  End With

End Sub

Sub Sample2()
  Dim c As Range
  
  With Range("A1", ActiveSheet.UsedRange)   'このシートのA1から使用領域最後までの領域
    .Columns("B").Formula = "=SUM(C1:G1)"  '使用領域のB列に、数式を一括設定。
  End With
  
  Columns("B").Interior.ColorIndex = xlNone  '処理前に色をクリア
  
  For Each c In Range("B1", Range("B" & Rows.Count).End(xlUp))
    If c.Value > Range("A2").Value Then c.Interior.ColorIndex = 7
  Next
  
End Sub
5 hits

【77942】一定以上の数値に色づけをしたい 初心者A 16/2/15(月) 14:44 質問[未読]
【77943】Re:一定以上の数値に色づけをしたい β 16/2/15(月) 17:07 発言[未読]
【77944】Re:一定以上の数値に色づけをしたい β 16/2/15(月) 17:15 発言[未読]
【77945】Re:一定以上の数値に色づけをしたい 初心者A 16/2/15(月) 18:54 回答[未読]
【77946】Re:一定以上の数値に色づけをしたい β 16/2/15(月) 19:14 発言[未読]
【77949】Re:一定以上の数値に色づけをしたい 初心者A 16/2/15(月) 21:59 回答[未読]
【77950】Re:一定以上の数値に色づけをしたい β 16/2/16(火) 7:44 発言[未読]
【77951】Re:一定以上の数値に色づけをしたい 初心者A 16/2/16(火) 16:29 お礼[未読]
【77947】Re:一定以上の数値に色づけをしたい yuto 16/2/15(月) 21:01 回答[未読]
【77948】Re:一定以上の数値に色づけをしたい β 16/2/15(月) 21:24 発言[未読]

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