投稿日	： 2004/05/19(Wed) 19:11
投稿者	： 花ちゃん
Ｅメール	：
ＵＲＬ	：
タイトル	： Re: 文字列のアルファベットをチェック

> テキストの中にアルファベットが含まれているかどうかを
大文字・小文字・全角・半角 等がありますが？

> Instr関数を使ってどのようになるのでしょうか？

では、大変でしょう。
大文字・小文字・全角・半角 等の条件や使用状況や後の処理等細かい条件で
色々やり方が変ってくるかと思うのですが、一般的には1文字づつ調べるかと
思います。
一番単純な方法
Private Sub Command1_Click()
    Dim s As String
    Dim i As Integer
    s = "123aあいうA花Ａ456ｚ"
    For i = 1 To Len(s)
        If fAlphabetCheck(Mid$(s, i, 1)) = True Then
            MsgBox i & "番目の[" & Mid$(s, i, 1) & "]は、英字です"
        End If
    Next i
End Sub

Private Function fAlphabetCheck(ByVal MyText As String) As Boolean
    Dim s1 As String
    s1 = UCase(MyText)
    s1 = StrConv(s1, vbNarrow)
    If s1 >= "A" And s1 <= "Z" Then
        fAlphabetCheck = True
    End If
End Function

★ - 文字列のアルファベットをチェック - たかし 05/19-18:08No.9010
• Re: 文字列のアルファベットをチェック - 花ちゃん 05/19-19:11 No.9013
• Re: 文字列のアルファベットをチェック - Starfish 05/23-02:13 No.9032