Excel VBA質問箱 IV

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

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


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

47059 / 76807

←次へ　｜　前へ→


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

ERIKO - 06/2/10(金) 14:06 -


	引用なし

	パスワード

Kein さん

ありがとうございます。

この場合、「4桁の局番 & "-" & 4桁の番号」ということは
****-****という形のみということになるのでしょうか？

できれば、「***-***-****」の形でしかも、***部分の桁数を限定しないようにしたいのですが・・・

たとえば、「03-1234-5678」や「092-123-4567」のどちらにも対応できるような形にできますか？

すみません。よろしくお願いいたします。

▼Kein さん：
>正規表現を使うのが最も確実ですが、あえて簡単にやるなら
>
>Sub Get_TelNumber()
>　 Dim TelNum As String
>　
>　 Do
>　　　TelNum = InputBox("電話番号を入力して下さい")
>　　　If TelNum = "" Then Exit Sub
>　　　If Len(TelNum) <> 9 Then GoTo NLine
>　　　If IsNumeric(Left(TelNum, 4)) And _
>　　　Mid(TelNum, 5, 1) = "-" And _
>　　　IsNumeric(Right(TelNum, 4)) Then Exit Do
>NLine:
>　　　MsgBox "入力した値は電話番号として認識できません", 48
>　 Loop
>　 MsgBox TelNum
>End Sub
>
>4桁の局番 & "-" & 4桁の番号　という値のみを、電話番号として扱ってます。

0 hits

▼

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