VBAでの、入力値の半角チェックについて

Question

VBAでの、入力値の半角チェックについて

VBAでの半角チェックは調べると下記のように記述するようですが、
StrConv(セル, vbFromUnicode)の部分はなぜ必要なのでしょうか？
LenとLenBで比較すれば、全角があれば2バイトになるので、チェックできそうな気がします。
調べると、システム既定のコードに変換する、との事ですが、
なぜそれが必要なのかわかりませんでした。。。

ご教授お願いいたします。

If Len(セル) <> LenB(StrConv(セル, vbFromUnicode)) Then（以下略

Answer 1

VBAでは内部の文字列をUTF-16のリトルエンディアンの形式で扱っています。
また、UTF16では1文字当たり最低2バイト使用します。

そのため、半角を含む文字列でもLenB関数はLen関数の2倍の値を出力します。

Debug.Print LenB("A"), LenB("Aあ") ' => 2 4

StrConv関数を使用すると、VBA内部の文字列をシステムの既定のコード ページ（日本はCP932）の形式のバイト配列に変換できます。
いわゆる全角文字、半角文字というのはこのCP932の形式のときしか通用しない話となります。

'文字列の形式確認サンプル
Dim txt As String
txt = "A"

'文字列をByte配列に変換

'UTF16として
Dim utf16Txt() As Byte
utf16Txt = txt ' => Byte(0 To 1) (65, 0)

'CP932として
Dim cp932Txt() As Byte
cp932Txt = StrConv(txt, vbFromUnicode) ' => Byte(0 To 0) (65)

Stop 'ローカルウィンドウでの確認用

Comments

[karasu0318]

返信遅くなり申し訳ありません。ご回答ありがとうございます。

Answer 2

要点だけまとめ。

LenとLenBで比較すれば、全角があれば2バイトになるので、チェックできそうな気が

前提に半角は１バイト、全角は２バイトというのがあると思いますが、
imihitoさんのいう通り

VBAでは内部の文字列をUTF-16のリトルエンディアンの形式で扱っています。

また、UTF16では1文字当たり最低2バイト使用します。

というわけで、LenB("A")は1でなく2と判定されます。
全角文字も2です。（4じゃないですよ。念のため）

システム既定のコードに変換する、との事ですが、

なぜそれが必要なのか

というわけで、全角半角のバイト数が異なるコードページに変換してあげる必要があります。
質問者さんの想定、前提であるCP932ですね。

? lenb("A")
 2 
? lenb(strconv("A", vbFromUnicode))
 1 

Comments

[karasu0318]

返信遅くなり申し訳ありません。まとめていただき、ありがとうございます。

Answer 3

何の為のチェックなのか背景が不明なので、
別案を出してみようかと。

もし、チェック内容が「全角の文字が含まれている」という事であれば、
既出の「StrConv(セル, vbFromUnicode)」の方法が適当になります。

しかし、チェック内容が「半角に変換できる文字が全角」という事であれば、
If [セル] <> StrConv([セル],vbNarrow) Then
という方法が適当になります。

ご参考まで。

Comments

[karasu0318]

返信遅くなり申し訳ありません。回答ありがとうございます。

Answer 4

既に回答が出ていますが、これはやってみればわかります。

?len("aあ")
 2 
?lenb("aあ")
 4 

lenは「純粋な文字数」、lenbは「純粋な文字数*2」しか出ないので
そのままでは「全角半角を区別できない」のです。なので
「LenとLenBで比較すれば、全角があれば2バイトになるので、チェックできそうな気がします」というのは無理です。なので
strconvで「バイト配列に直してその長さを使う」ということをやっています。

Comments

[karasu0318]

返信遅くなり申し訳ありません。ご回答ありがとうございます。