インプットBox Type:=1で空白でOK選択

Question

エクセル2003です。
インプットBOXに数値を入力してもらいます。
整数で1文字以上～8文字以内にさせたいです。
（１）キャンセル選択
（２）間違った入力
（３）未入力でOKを選択
の場合記述してある再入力を促すMsgBoxを表示させたいです。
また（２）（３）はMsgBox表示の後インプットBox入力に戻したいです。
以下に掲載した構文で行うと

（１）インプットBOXの「キャンセル」選択時
→「終了」MsgBox表示（正常）

（２）数字以外を入力した時
→Type:=1にしてある為「数値が正しくありません」
　と記述してあるMsgBoxではないが警告メッセージが表示（正常）

・９文字以上入力した場合
→「再入力」MsgBox表示（正常）

・１文字～８文字を入力した場合
→次の処理に進む（正常）

（３）何も入力せず空白の状態でインプットBoxの「OK」を選択
→記述してあるMsgBoxではなく
「入力した数式は正しくありません」と書かれたヘルプ付き警告が
表示されてしまいます。　
この時は上記同様に記述内にある
再入力を促すMsgBox
を表示させたいのですがどう記述すればいいのか分かりません。

インプットBoxのType:=1をはずせば
記述してあるMsgBoxが表示するようになりますが
今度は整数以外が入力できてしまいます。
よろしくお願いします。

Do 
指示数 = Application.InputBox("指示数を数字で入力してください ", Type:=1)
If 指示数 = "False" Then　'キャンセル選択時
MsgBox "終了します", vbExclamation, "注意"
Call 定位置　
Exit Sub　
End If
'1文字以上8文字以内の時はループを抜けて次の処理へ
If Len(指示数) <= 8 Then
Exit Do　'Loopを抜けて次の処理へ
End If
MsgBox "ケタ数が違います。再入力してください", vbCritical, "エラー！！"
Loop　'インプットBoxに戻る
---次の処理

DexMachina · Accepted Answer

No.4です。

お礼と補足欄の内容を見させていただきました。
意図通りの動きになったのでしたら何よりです。
ただ、幾つか気になる点がありましたので、補足させてください。

【StrReverseについて】
上記関数は、「123」を「321」に、「ABC」を「CBA」に、と、文字列の
並び順を逆転させます。
前回の回答では、(こちらでの勝手な解釈で)「1.0」は弾きつつ「1.」は
許可する、という動作をさせるために使用しました。
(「1.」を「.1」とし、InStr関数の第1引数に「2」を指定することで、
　反転後に先頭となる「.」を、InStr関数の判定対象から外した、と)

ですので、位置によらず「.」や「+」等を弾きたい場合は、上記関数は
不要です(汗)
(「InStr(StrReverse(指示数2), "+")」は「InStr(指示数2, "+")」で
　Ok、と)

【InStrについて】
この関数では、第4引数の指定により、全角/半角を同一とみなすか
どうかを指定できます。
(省略した場合は、モジュール先頭の「Option Compare ○○」での
　指定によって変化)

同一扱いにする場合は、
　InStr(1, 指示数, ".", vbTextCompare)
と、「vbTextCompare」(または「1」：クエリではこちらのみ有効)を
指定します。
なお、第4引数指定時は、第一引数(開始位置)も省略できなく
なるのでご注意下さい。

【数字以外を含むかどうかの判定法について】
小数点や正負の記号も含め、「0～9」の数字以外の全てを弾く
のでしたら、「Replace関数でそれらを消した後に文字が残るか
どうか」という判定方法もあるかと思いますので、参考までに・・・。
(以下、追加が必要になると思われる部分のみ記述。実際に
　組み込む場合は、適宜分割して、必要な場所に埋め込んで
　下さい：
　変数宣言は先頭、変換は「ElseIf～」の分岐の中、など)

Dim sRemain As String, i As Integer

'評価用の変数に入力値を記録
sRemain = 指示数2

'「0～9」の数字を全て空文字に変換
For i = 0 To 9
　　'変換後の値を、同じ変数に再格納
　　sRemain = Replace(sRemain, i, "")
Next

'数字全てを空文字に変換した後に、何らかの文字が残った場合
'(「1,,,,,,6」の場合、MsgBoxには「,,,,,,は入れては～」と表示されます)
If Len(sRemain) Then　　'「0」以外は条件成立扱いになります
　　MsgBox sRemain & "は入れてはいけません(>_<)" & vbCrLf & _
　　　　"再入力してください", vbCritical, "エラー!!"
End If

※これとは別に、「正規表現」を使用する方法もあります。
　 ただ、こちらはややとっつきにくいところがあるのと(→自分もまだ
　 習得未了(汗))、「実際にどの文字が問題なのか」を表示する
　 にはやや不適と思われますので、紹介のみに留めておきます(汗)
http://codezine.jp/article/detail/1655
http://officetanaka.net/excel/vba/tips/tips38.htm

DexMachina · Answer

No.2です。

> インプットBOXに空白でOKを選択時は
> 入力忘れと仮定して
> 記述した「再入力を促すMsgBox」を表示させたいのです。

でしたら、VBAのInputBox関数からApplication.InputBoxに戻す必要がありますね(汗)

前回の回答に対して、以下のように改修すれば、ご希望の動作になるかと思います。

【現状(改修部分のみ抜粋・コメントは省略)】

指示数 = InputBox("指示数を数字で入力してください")

If 指示数 = "" Then

【改修後(抜粋部分を置き換え)】

指示数 = Application.InputBox("指示数を数字で入力してください")

If 指示数 = "" Then
　　　　MsgBox "空白は指定できません"
　　ElseIf 指示数 = "False" Then

・・・以上です。
取り急ぎ、参考まで。

mu2011 · Answer

NO1です。
>全角でも半角でも受け付けるようにしています。
　⇒この処理を前倒しにする方法がベターだと思います。
　　余裕があれば、面倒ですがユーザフォームを作成して入力する方法は如何でしょうか。
　　テキストボックスのプロパティからＩＭＥモードや入力長制限を設定できますのでご検討
　　下さい。（参考サイトのＵＲＬ添付します）

参考URL：http://www.eurus.dti.ne.jp/~yoneyama/

DexMachina · Answer

横レス失礼します。「入力値を【数値とみなせる】か」は、IsNumeric関数で判定できますので、 Type引数は省略した上で、全チェックをマクロで行うのがよいかと思います。 Do 　　指示数 = InputBox("指示数を数字で入力してください") 　　'キャンセル/空白時　　If 指示数 = "" Then 　　　　'取消の確認　　◆キャンセルの取消に対応してみました◆ 　　　　If MsgBox("終了します", vbOKCancel + vbExclamation, "確認") = vbOK Then 　　　　　　Call 定位置　　　　　　Exit Sub 　　　　End If 　　'数値の場合　　ElseIf IsNumeric(指示数) Then 　　　　'小数指定時　　　　If InStr(2, StrReverse(指示数), ".") Then 　　　　　　MsgBox "整数を入力してください", vbCritical, "エラー!!" 　　　　'桁数オーバー時　　　　ElseIf Len(指示数) > 8 Then 　　　　　　MsgBox "桁数が違います。再入力してください", vbCritical, "エラー!!" 　　　　'もし0や負の数も弾きたい場合は、以下の2行の先頭の「'」を外します　　　　'ElseIf 指示数 <= 0 Then 　　　　'　　MsgBox "正の整数を入力してください", vbCritical, "エラー!!" 　　　　Else 　　　　　　Exit Do 　　　　End If 　　'数値以外　　Else　　　　　　　　　　　　　　　　 '【数値以外】　　　　MsgBox "数値を入力してください", vbCritical, "エラー!!" 　　End If Loop 【注意と説明】・If文では、関数の戻り値が「0以外の整数」や「False」以外は、Trueと　みなされるため、「IsNumeric」等に対する「=True」は省略しています。・上では「Application.InputBox」ではなく、VBA関数のInputBoxを使用して　います。キャンセル選択時の戻り値が異なるので注意してください。　(今回は取消と空白の区別が不要のようでしたので、上記の通りとしました) ・小数かどうかは、「.」の有無で判定しています。　但し、「1.」は「1」とみなすよう、末尾の「.」(→StrReverse関数で文字列を　逆順に並べ替えると先頭)は、対象から外しました。　なお、「1.0」も「1」とみなして許容する場合は、小数の判定部分を以下の　ように変更すれば対応できます：　　　　'小数指定時　　　　If 指示数 <> CLng(指示数) Then 　※強制的に整数化したものと元の値が同じなら整数、違えば小数、と。　　(InputBoxで「１．００」と指定しても、CLngの戻り値との比較時には　　　数値とみなされて判定されるようです)

mu2011 · Answer

InputメソッドのTypeを外し、次のコードを変更で如何でしょうか。
If Len(指示数) <= 8 Then　⇒　If Len(指示数) <= 8 And Val(指示数) Then

インプットBox Type:=1で空白でOK選択

No.4です。

No.2です。

この回答への補足

NO1です。

横レス失礼します。

InputメソッドのTypeを外し、次のコードを変更で如何でしょうか。

この回答への補足

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング