半角カナの判定で…

レスの裏で…

MOUG（Excel VBA）2008/03/22 22:46:37
『文字種の中の半角カタカナのチェック』
http://www2.moug.net/bbs/exvba/20080322000018.htm

たとえば、
「ｱｲｳｴｵ」
の場合ｱｲｳｴｵの文字種が半角カタカナであるかどうかを
知るにはどうすればいいのでしょうか。

　
こんなのは１文字ずつ判定すれば簡単にできますが、それではありふれていて面白くないです。
なんとかごっそりと判定する方法はないかと、こんなの↓を考えてみました。

If (X = StrConv(StrConv(X, vbNarrow), vbKatakana)) And _
　 (StrConv(X,vbWide) <> StrConv(StrConv(X,vbWide),vbHiragana)) Then
　　MsgBox "半角カナです"
Else
　　MsgBox "半角カナではありません"
End If

　
まずは、１文字でテスト。
半角カナ
全角カナ
全角かな
半角数字
全角数字
半角英字
全角英字
半角記号
全角記号
すべてうまく判定できてます。
　
おっしゃぁー。いけそうだ！ってことで
次は、２文字で組み合わせてテスト・・・
　
あり？ダメじゃん。
よく考えたら、そりゃそーだ。
ちぇ、残念。
　
という訳で、凝った判定の割には１文字ずつしか使えないというレスをせざるをえませんでした。
あ〜あ　(-_-;)
　
※.Excel World の 2008年3月30日 18:34 の日記をコピーしています。
http://excel.sns.fc2.com/excel/