アルファベットじゃないなら

質問

初めまして。よろしくお願いします。

エクセル２０１０を使用しています。

例題としてＡ列に
abc
123
あいう
一二三

という値が入っているのですが、”先頭文字（左から一文字目）がアルファベットじゃないのなら”
という条件で条件分岐するにはどうすればいいでしょうか？

Sub もし()
Dim MyRow As Long
For MyRow = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If Left(Range("a" & MyRow), 1) <> "a" Then
MsgBox "１文字目がアルファベットで始まっていません！"
End If
Next MyRow
End Sub

これでできるのですが、アルファベットは26個あるから、IFステートメントを２６個作るしかないのでしょうか？

回答No.4

nicotinism · ベストアンサー

失礼
#2 です。

A-z だと
[\^]_ が含まれてしまいますので
"[!a-zA-Z]*" に訂正してください。

お礼

[!a-zA-Z]*
にした方がいいのですか。そうします。

回答No.5

KURUMITO

次のようにしてもよいでしょう。

Sub もし()
Dim MyRow As Long
For MyRow = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If Asc(UCase(Range("A" & MyRow))) < 60 Or Asc(UCase(Range("A" & MyRow))) > 90 Then
MsgBox "１文字目がアルファベットで始まっていません！"
End If
Next MyRow
End Sub

アルファベットを全角文字にして文字コードを判断しています。

お礼

皆さんとは違う方法ですね。
いろんな回答ありがとうございます。

回答No.3

keithin

sub macro1()
　dim r as long

　for r = 1 to range("A65536").end(xlup).row
　if not left(cells(r, "A"), 1) like "[a-z,A-Z]" then
　　msgbox cells(r, "A") & " is not match"
　end if
　next r
end sub
みたいな。

お礼

like "[a-z,A-Z]"
でも可能なのですね。

回答No.2

nicotinism

半角のアルファベットの大文字小文字のチェックなら

Sub もしもし()
Dim MyRow As Long
For MyRow = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If Range("a" & MyRow).Value Like "[!A-z]*" Then
MsgBox MyRow & " の１文字目が『半角』アルファベットで始まっていません！"
End If
Next MyRow
End Sub

とか。
小文字だけで良いなら、"[!A-z]*" → "[!a-z]*"

お礼

Like "[!A-z]*"
これでうまくできました。ありがとうございます。

回答No.1

MarcoRossiItaly

Asc 関数を使った不等式で If 文を書いてみてください。Asc の意味は、VBE でどこかに asc とタイプし、F1 キーを押してヘルプを見てください。なお「A」と「a」は異なるコードとなります。

お礼

asc関数を使えばいいのですね。
大文字小文字も考慮して考えてみます。