数値・漢字(外字含む)だと認識されたら、エラーをだしたい

質問

ひらがな、かたかなは正常終了させ、数字・漢字だったらエラーを出したいと思っています。
数字はisNumeric関数で判断させることができますが、漢字(外字)はどうすれば判断できるのでしょうか？
参考になる関数、コードを教えてください。

回答No.1

clavia

文字コードの範囲でチェックするのでは、ダメですか？

例：

If Not (Asc(strText) >= &H829F And Asc(strText) <= &H8396) Then Goto ErrorGate

strText には、調べたい文字が入っています。

文字列の場合は、１字、１字チェックする必要があります。長文の場合は、Byte 型に入れた方が速いと思います。

と、ここまで書きましたが、もっといい方法があるような気がします、、、

お礼

ありがとうございます。
英字はコードでチェックしました☆
漢字は使える関数があったので、それを楽に使ってしまいました。