公差を設定して判定するマクロの続き
質問No.9150010の続きです。
上記の質問で下記のようなご回答を頂きました。
E列の数値に対してB４セルに入力されている公差の数値に
H列とK列の数値が入っているか調べるマクロです。
下記のマクロで完璧に行えるようになりましたが
もしE列の数値に対して、公差内に入っていない数値がH列とK列にあった場合
その公差内に入っていないセルのみを赤く塗りつぶすには下記のマクロにどうのように追加すればよいでしょうか？
パターンとしてはH列もしくはK列のどちらかのみが公差内に入っていない時もあれば
両方とも公差内に入っていない場合もあります。
Sub 判定仮本物()
Dim i As Integer, j As Integer
Dim k As Double
Range(Cells(3, "L"), Cells(32, "L")).ClearContents
Range(Cells(3, "E"), Cells(32, "K")).Interior.ColorIndex = 0
k = Cells(4, 2) 'B4セルの値
For i = 3 To 32
If Abs(Cells(i, "E") - Cells(i, "H")) <= k And Abs(Cells(i, "E") - Cells(i, "K")) <= k Then
If i Mod 2 = 1 Then
Union(Cells(i, "E"), Cells(i, "H"), Cells(i, "K")).Interior.ColorIndex = 6
Cells(i, "L") = "OK"
Else
Union(Cells(i, "E"), Cells(i, "H"), Cells(i, "K")).Interior.ColorIndex = 40
Cells(i, "L") = "OK"
End If
End If
Next
If WorksheetFunction.CountIf(Range("L3:L32"), "OK") > 29 Then
MsgBox "データチェックOK(^O^)b"
End If
End Sub
お礼
temtecomai2さん お世話になります。 こういうやり方があるのですね！ System.Drawing.ColorTranslator.FromHtml("#CCFF99") ASP.Net 初心者の自分としましては大変助かりました。 ありがとうございました。