Excel VBA質問箱 IV

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

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


46968 / 76732 ←次へ | 前へ→

【34731】Re:インプットボックスの入力文字制限
お礼  ERIKO  - 06/2/10(金) 16:55 -

引用なし
パスワード
   どうもありがとうございました。

自社システムに取り込むのに、数字と”-”以外が入っていなければ
(少々変な電話番号であっても)エラーは発生しないので、ぜひ使わせていただきます。

とっても助かりました!!

▼Kein さん:
>いちおう、このように変更すればよいでしょう。
>
>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 に飛ばす" というコードに書き直します。
>そこはあなたが努力して、やってみて下さい。
0 hits

【34664】インプットボックスの入力文字制限 ERIKO 06/2/9(木) 15:07 質問
【34665】Re:インプットボックスの入力文字制限 Kein 06/2/9(木) 15:29 回答
【34714】Re:インプットボックスの入力文字制限 ERIKO 06/2/10(金) 14:06 質問
【34718】Re:インプットボックスの入力文字制限 Kein 06/2/10(金) 15:14 回答
【34731】Re:インプットボックスの入力文字制限 ERIKO 06/2/10(金) 16:55 お礼

46968 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free