Excel VBA質問箱 IV

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

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


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

34047 / 76738

←次へ　｜　前へ→


	【47906】InputBoxを使って数値の入力と条件適合まで繰り返し

tamachan - 07/3/26(月) 12:59 -


	引用なし

	パスワード

InputBoxを使用して数値の入力はできるのですが、入力された数値が条件に適合しない場合に繰り返しInputBoxとMsgBoxを表示して入力するようにしたいのですが教えてください。条件は、 Range("E22") = 1 の場合に Range("I31") に 1以上の数値をInputBoxから入力したときにエラーメッセージと再入力InputBoxを表示させたいのです。 1が入力されるまでこの表示を繰り返し行うにはどのようにしたらよいでしょうか。 Sub 階数警告するメッセージボックス() 　　　 Sheets("設定").Select 値 = InputBox("数値を入れてください") Range("I31").Value = 値　　　　　If Range("E22") = 1 And 値 > 1 Then 　　　タイトル = "階数が1層です" 　　　メッセージ = "割増設定はできません" 　　　スタイル = vbCritical + vbRetryCancel　　　　　　　　　　 MsgBox メッセージ, スタイル, タイトル　　End If 　　'この先のマクロの設定を教えてください。 End Sub