|
▼初心者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
|
|