Excelで22バイトの文字を数えたい

質問

Excel2002です。
VBAでセルの文字列を取得する時に全角制御文字（2バイト）を含めて22バイトの制限を考慮したいのですがその方法がわかりません。

全角文字だけなら10文字、　
半角文字だけなら22文字の取得ができます。

その後の作業の都合上、22バイトを基準に条件判断したいのですが現在はその方法がわからないためLEN()で10を上限としています。LENB()でも同じ結果（文字数が返される）になります。

対象のセルには全角文字/半角文字が混在しており、全角-半角-全角-半角のような混在であれば制御文字を２回考慮する必要があります。

最悪その文字が全角か半角かの区別がつけば対応できると思います。
よい方法をご教授いただきたくお願いいたします。

回答No.5

Wendy02

こんにちは。

#3の回答者です。ご質問者はイチゲンの方なので、戻ってくるのかわかりませんが、もう一度読み直してみました。

実際問題として、VBA自体で、インターネットを使わない限りは、全角制御文字（IN/OUT）を必要とされることはないはずですし、VBAは、Unicode ですから、半角全角自体のIN/OUT を要求されることはありませんね。使用目的がわからないと、やっぱり分かりません。

私は、今まで、#3の回答(四捨五入ではなくて切り捨て）の方法で考えてきましたし、それでよいとは思っていたのですが、IN/OUT を加算するなら、以下のように、出入りをチェックすればよいと思います。細かい点で違っているかもしれませんけれどね。

Sub Test2()
Const mText = "豆1個コーヒー2杯"
　MsgBox ByteCheck(mText) & " Byte Include IN/OUT"
　MsgBox LenB(StrConv(mText, vbFromUnicode))　'参考
End Sub

Function ByteCheck(mText As String)
　　Dim cnt As Long
　　Dim n As String
　　Dim flg As Boolean
　　For i = 1 To Len(mText)
　　　　n = Mid(mText, i, 1)
　　　　If Abs(Asc(n)) < 127 Then
　　　　　　cnt = cnt + 1
　　　　　　a = Asc(n)
　　　　　　flg = False
　　　　Else
　　　　　　If LenB(StrConv(n, vbFromUnicode)) > 1 And flg = False Then
　　　　　　　　cnt = cnt + 4
　　　　　　　　flg = True
　　　　　　ElseIf flg = False Then
　　　　　　　　cnt = cnt + 3
　　　　　　Else
　　　　　　　　cnt = cnt + 2
　　　　　　End If
　　　　End If
　　Next i
　　ByteCheck = cnt
End Function

お礼

質問を締め切りに来てご回答を拝見しました。舌足らずな質問に何度も検討していただきありがとうございます。

私の結論は＃１へのお礼に記載しております。よろしければご覧ください。