Excel VBA質問箱 IV

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

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


72353 / 76732 ←次へ | 前へ→

【8862】Re:入力規則
質問  テーブル E-MAIL  - 03/11/6(木) 15:27 -

引用なし
パスワード
   いつもご回答ありがとうございます。
せっかくINAさんの教えてくれた物を使って見たのですがエラーが出ます・・・・
何か間違っていますでしょうか?
Sub 規則()
For j = 1 To 17
Select Case j
Case 1 To 10
  If Mid(Len(Target.Value) <> 10, j, 1) Then
  'ここで判別
  MsgBox "10桁で入力していますか?"
  End If

Case 11 To 11
  If Mid(IMEMode = xlIMEModeKatakanaHalf, j, 1) Then
  Else: MsgBox "半角カナで11桁目は入力してください"
  End If

Case 12 To 15
   '文字数
  If Mid(Len(Target.Value) <> 4, j, 1) Then
   MsgBox "4文字入力してください"
  End If

  '1文字ずつASCIコードでチェック
  For k = 1 To 4
    If Asc(Mid(Target.Value, k, 1)) >= 48 And _
      Asc(Mid(Target.Value, k, 1)) <= 57 Then
    Else
      MsgBox "0〜9 以外の文字が入力されています。"
    End If
  Next k
  
Case 16 To 17
  If Mid("00", j, 1) Then
  Else
  MsgBox "16桁〜17桁目は、00を入力してください"
  End If
End Select
Next j

End Sub

2 hits

【8835】入力規則 テーブル 03/11/5(水) 18:15 質問
【8836】Re:入力規則 INA 03/11/5(水) 18:25 回答
【8862】Re:入力規則 テーブル 03/11/6(木) 15:27 質問
【8867】Re:入力規則 INA 03/11/6(木) 17:43 回答
【8870】Re:入力規則 テーブル 03/11/6(木) 18:29 お礼

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