|
実験データのデータ数字差のチェックをしています。
実験データをA列(1回目)とB列(2回目)にデータを明記して
A列とB列のデータ差をInputBoxから入力してデータチェックをしています。
結果をC列に明示しています。
InputBoxに数字が入力していない状態で「OK」を押すと『エラー』が
でます、また「キャンセル」を押すと『0の差が・・・』と出ます。
これを「入力しなおしてください」などのメッセージにしたいの
ですが、どのようなコードを付け加えれば良いのでしょうか。
Sub HikakuSa()
Dim R As Range
Dim MyR As Range
Dim Cdata As Integer
Range("C6", Range("C65536").End(xlUp)).ClearContents
Set MyR = Range("A6", Range("A65536").End(xlUp))
Cdata = Application.InputBox("" & Chr(13) & "A列の数字とB列の数字の比較をする" _
& Chr(13) & "数字を入力してください", "A列数字>B列数字の比較")
For Each R In MyR
If R.Value - R.Offset(, 1).Value >= Cdata Then
R.Offset(, 2).Value = Cdata & "以上の差があります"
End If
Next
End Sub
|
|