Excel VBA質問箱 IV

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

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


47032 / 76732 ←次へ | 前へ→

【34665】Re:インプットボックスの入力文字制限
回答  Kein  - 06/2/9(木) 15:29 -

引用なし
パスワード
   正規表現を使うのが最も確実ですが、あえて簡単にやるなら

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桁の番号 という値のみを、電話番号として扱ってます。

1 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 お礼

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