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

質問

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

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

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

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

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

回答No.3

Wendy02

こんにちは。

なんとなく、話が分からないですね。

キーワードとして出ている

・22バイトの制限
>全角文字だけなら10文字、
>半角文字だけなら22文字の取得ができます。

それはありえないです。全角は、11文字です。

>全角制御文字（2バイト）を含めて22バイト

全角制御文字って聞いたことがありません。例えば、CrLf は、全角ではなくて、２つの制御コードです。

全角・半角混在の場合で、文字列を区切る場合は、切り捨てするか、四捨五入して、最短21バイト、最長23バイトになるはずです。

Sub Macro1()
Dim Str1 As String
Str1 = "ソフトウェアエクセル"　　'全角10文字
MsgBox Str1 & "は、" & vbCrLf & LenB(StrConv(Str1, vbFromUnicode)) & "バイトです。"
End Sub

Unicode を、JISに戻して、上記なら、20バイトにはなりますが、こんな単純な話なのでしょうか？

全角・半角判定なら、

Sub Macro()
Dim Str1 As String
　Str1 = "その名前はMicroSoft" & vbcl & "・EXCEL"
If StrConv(Str1, vbNarrow) = Str1 Then
　 MsgBox "半角です。"
ElseIf StrConv(Str1, vbWide) = Str1 Then
　 MsgBox "すべて全角です。"
Else
　　 MsgBox "全角・半角混ざっています。"
End If
End Sub