Excel VBA質問箱 IV

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

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


11769 / 13645 ツリー ←次へ | 前へ→

【14268】入力をアルファベットのみにしたい まり 04/5/25(火) 10:05 質問[未読]
【14271】Re:入力をアルファベットのみにしたい ichinose 04/5/25(火) 10:23 回答[未読]
【14272】Re:入力をアルファベットのみにしたい つん 04/5/25(火) 10:23 回答[未読]
【14274】Re:入力をアルファベットのみにしたい まり 04/5/25(火) 11:04 お礼[未読]

【14268】入力をアルファベットのみにしたい
質問  まり  - 04/5/25(火) 10:05 -

引用なし
パスワード
   いつもお世話になっております。

色々と検索して調べたのですがわからなかったので質問させてください。
セルの入力をアルファベット(大文字、小文字)の1文字のみのチェックを
したいのですがアルファベットかどうかの関数ってあるのでしょうか?

どうぞよろしくお願いいたします。
======================================
Private Function Init_Set() As Boolean

  If Range(A1) <> "" Then       ' 空白チェック
    If Len(Range(A1)) <> 1 Then   ' 桁数チェック 1のみOK
     MsgBox ("登録記号の開始列が指定されていません")
     Init_Set False
    End If
  
  Else
    MsgBox ("エラー")
    Init_Set False
  End If
  
End Function

【14271】Re:入力をアルファベットのみにしたい
回答  ichinose  - 04/5/25(火) 10:23 -

引用なし
パスワード
   ▼まり さん:
おはようございます。

>いつもお世話になっております。
>
>色々と検索して調べたのですがわからなかったので質問させてください。
>セルの入力をアルファベット(大文字、小文字)の1文字のみのチェックを
>したいのですがアルファベットかどうかの関数ってあるのでしょうか?
>
>どうぞよろしくお願いいたします。
>======================================
>Private Function Init_Set() As Boolean
>
>  If Range(A1) <> "" Then       ' 空白チェック
>    If Len(Range(A1)) <> 1 Then   ' 桁数チェック 1のみOK
>     MsgBox ("登録記号の開始列が指定されていません")
>     Init_Set False
>    End If
>  
>  Else
>    MsgBox ("エラー")
>    Init_Set False
>  End If
>  
>End Function
Like演算子を試してみて下さい。

Sub test()
  If Range("a1").Value Like "[A-Z,a-z]" Then
   MsgBox "ok"
  Else
   MsgBox "ng"
   End If
End Sub

【14272】Re:入力をアルファベットのみにしたい
回答  つん E-MAIL  - 04/5/25(火) 10:23 -

引用なし
パスワード
   まり さん、おはようございます

>いつもお世話になっております。
>
>色々と検索して調べたのですがわからなかったので質問させてください。
>セルの入力をアルファベット(大文字、小文字)の1文字のみのチェックを
>したいのですがアルファベットかどうかの関数ってあるのでしょうか?

「Asc 関数」関数使えばいいかな?
こんな感じ?

Sub test()

  If Len(Range("a1").Value) = 1 Then
    If (Asc(Range("a1")) >= 65 And Asc(Range("a1")) <= 90) Or _
      (Asc(Range("a1")) >= 97 And Asc(Range("a1")) <= 122) Then
      MsgBox "アルファベットです"
    End If
  End If

End Sub

試してみてね♪

【14274】Re:入力をアルファベットのみにしたい
お礼  まり  - 04/5/25(火) 11:04 -

引用なし
パスワード
   ichinoseさん、つん さん
早速の回答ありがとうございます。

うまくできました!!ありがとうございます。
またわからないことがありましたら質問させてください。

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