公差を設定して判定するマクロ
規格を設けて判定するマクロについて教えてください。
下記のようなマクロがあるとき、現在はE列、H列、K列が同じ数値の場合は
塗りつぶしが行われるようになっています。
これを少し改造して、B4セルに公差の数値を入力した時
E列の数値を基準とし、H列、K列がE列からB4セルに入力した公差内なら色を付けるような
マクロを組みたいです。
例えばB4セルに2と入力してあるとします。
E列の数値が4.2だとした場合
H列は2.2、K列は6.2ならE列の数値の±2なので塗りつぶしされる。
E列の数値にB4セルの入力した数値の±をH列、K列を超える場合は
塗りつぶしは行わない、という感じです。
わかりずらい説明で申し訳ありませんが、宜しくお願いします。
Sub 判定仮()
Dim i As Integer, j As Integer
Range(Cells(3, "L"), Cells(32, "L")).ClearContents
Range(Cells(3, "E"), Cells(32, "K")).Interior.ColorIndex = 0
For i = 3 To 32
If WorksheetFunction.CountIf(Rows(i), Cells(i, "E")) > 2 Then
If Cells(i, "E").Row Mod 2 = 1 Then
Union(Cells(i, "E"), Cells(i, "H"), Cells(i, "K")).Interior.ColorIndex = 6
Cells(i, "L") = "OK"
Else
If Cells(i, "E").Row Mod 2 = 0 Then
Union(Cells(i, "E"), Cells(i, "H"), Cells(i, "K")).Interior.ColorIndex = 40
Cells(i, "L") = "OK"
End If
End If
End If
Next
If WorksheetFunction.CountIf(Range("L3:L32"), "OK") > 29 Then
MsgBox "データチェックOK(^O^)b"
End If
End Sub
お礼
お答えありがとうございました。 やはり基準値から低くても問題はあるんですね…。勉強になりました!