Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

39886 / 76732

←次へ　｜　前へ→


	【41950】エラーの処理対応について

実験太郎 - 06/8/26(土) 20:27 -


	引用なし

	パスワード

実験データのデータ数字差のチェックをしています。
実験データをA列(１回目）とB列(２回目)にデータを明記して
A列とB列のデータ差をInputBoxから入力してデータチェックをしています。
結果をC列に明示しています。
InputBoxに数字が入力していない状態で「OK」を押すと『エラー』が
でます、また「キャンセル」を押すと『０の差が･･･』と出ます。
これを「入力しなおしてください」などのメッセージにしたいの
ですが、どのようなコードを付け加えれば良いのでしょうか。

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

1 hits

▼

【41950】エラーの処理対応について 実験太郎 06/8/26(土) 20:27

≪