|
▼まり さん:
おはようございます。
>いつもお世話になっております。
>
>色々と検索して調べたのですがわからなかったので質問させてください。
>セルの入力をアルファベット(大文字、小文字)の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
|
|