EXCELのVBAでLenB関数について

VBA初心者の質問です。
EXCELのVBAでセルの文字数バイト数を取得したくてLenB関数を使用しました。
しかし半角で入力してある文字(数字)でも1文字2バイトになってしまいます。

具体的に言うと以下の通りです。

---コード--------------

　Dim test As Integer
　test = Len(Activecell.Value)

-----------------------
　Activecellのセル内容「東京1234」

　TEST→「8」と取得したいのに「12」になってしまう。

--------------------

EXCEL上ではキチンと「12」になるのですがVBAでは違うのでしょうか。
どなたかご存じでしたら、よろしくお願いいたします。

No.1 ベストアンサー 回答者： tsukasa-12r 回答日時： 2004/02/22 19:35

VBA は内部的に UNICODE という文字コードを使用していて、これは半角の英数字も 2 byte です。

文字のバイト数を取得したいのなら、UNICODE → Shift JIS に変換しなければなりません。

test = LenB(StrConv("東京1234", vbFromUnicode))

とすればＯＫです。

この回答へのお礼

ありがとうございました。希望通りの値を取得することが出来ました。またよろしくお願いいたします。

お礼日時：2004/02/24 06:03

No.3 回答者： imogasi 回答日時： 2004/02/22 20:42

ＶｉｓｕａｌＢａｓｉｃのヘルプでも

MyString = "ＡＢc"の例で
MyLen = LenB(MyString)
「' Windows の場合は 6、」と隅の方に書いてあって、Ｕｎｉｃｏｄｅとの関連が示唆されています。

この回答へのお礼

ありがとうございます。参考になりました。

お礼日時：2004/02/24 05:58

No.2 回答者： mi-si 回答日時： 2004/02/22 19:53

#1氏の補足

WindowsNT/2000/XP、Office2000以降、VB6以降が内部的に使っているのはUNICODEのUCS-2エンコードです。

UNICODEでもエンコードがUTF-8だと半角英数字は1byteになります。（その代わり漢字が3byteになりますが）、UCS-2なので英数でも2byte固定になります。

この回答へのお礼

ありがとうございます。なるほどです。

お礼日時：2004/02/24 06:01