Excel VBA質問箱 IV

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

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


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

46980 / 76732

←次へ　｜　前へ→


	【34718】Re:インプットボックスの入力文字制限

Kein - 06/2/10(金) 15:14 -


	引用なし

	パスワード

いちおう、このように変更すればよいでしょう。

Sub Get_TelNumber()
　 Dim TelNum As String
　 Dim x As Integer, y As Integer
　
　 Do
　　　TelNum = InputBox("電話番号を入力して下さい")
　　　If TelNum = "" Then Exit Sub
　　　If Not IsNumeric(Right(TelNum, 4)) Then GoTo NLine
　　　x = InStr(1, TelNum, "-")
　　　y = InStrRev(TelNum, "-", -1)
　　　If x = 0 Or y = 0 Or x = y Then GoTo NLine
　　　If Not IsNumeric(Left(TelNum, x - 1)) Then
　　　　 GoTo NLine
　　　ElseIf Not IsNumeric(Mid(TelNum, x + 1, y - 1 - x)) Then
　　　　 GoTo NLine
　　　Else
　　　　 Exit Do
　　　End If
NLine:
　　　MsgBox "入力した値は電話番号として認識できません", 48
　 Loop
　 MsgBox TelNum
End Sub

ただし、123456-78910-3333 というような値も電話番号として認識してしまいます。
これを防ぐには
>If x = 0 Or y = 0 Or x = y Then GoTo NLine
を、Select Case 構文に変更して、"x や y が特定の位置範囲にあったときのみ
処理を進める。それ以外は NLine に飛ばす" というコードに書き直します。
そこはあなたが努力して、やってみて下さい。

2 hits

▼

【34664】インプットボックスの入力文字制限 ERIKO 06/2/9(木) 15:07