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