VBAでUnicodeしか存在しない文字の判定について

質問

VBA初心者の質問ですが、宜しくお願いします。

エクセル上にUnicodeしか存在しない文字が含まれた文字列を入力するとします。
VBAでその文字列に、Unicodeしか存在しない文字が入力されているかどうかの判定をするにはどのようにしたらいいでしょうか？

また、その文字列(Unicodeしか存在しない文字が含まれる)のバイト数を正しく取得するにはどうしたらいいでしょうか？

回答No.1

dsuekichi

> VBAでその文字列に、Unicodeしか存在しない文字が入力されているかどうかの判定

「一旦Shif-JISに変換して、すぐにUnicodeに戻して、元の文字列と比較する」としてはどうでしょう？

Unicodeにしかない文字は文字化けしてしまいますから、
内容が変わってしまうので判断できるかも。

尤も、２種類のUncode文字が１つのShift-JISコードに対応しているケースもあります。
この場合も元の文字と変わってしまう場合がありますので、万全の方法ではありませんが・・・

> その文字列(Unicodeしか存在しない文字が含まれる)のバイト数を正しく取得
「正しいバイト数」って何のことでしょう？？？

VBAでの、Unicodeは１文字２バイト固定ですから、
普通「文字数＊２」がバイト数ですが・・・

他に「Shift-JISに変換した場合のバイト数」と言う考え方もありますが・・・
「Unicodeにしか存在しない文字」＝「Shift-JISに変換できない文字」ですから・・・「バイト数」は数え様が無いですよね？

＃「正しい（と貴方が考える）バイト数」を決める必要があるのでは？
＃例えば
＃『「Unicodeにしか存在しない文字」は０バイトとして数えることにする』とか、
＃ 『「Unicodeにしか存在しない文字」は２バイトとして数えることにする』とか・・・