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

質問

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

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

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

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

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

回答No.1

lark_0925 · ベストアンサー

>最悪その文字が全角か半角かの区別がつけば対応できると思います。
↑これを判断する方法を二つほど・・・。
'==========================================================
Sub test()
　　Dim idx As Long
　　Dim aa As String
　　Dim result As String
　　Range("a1").Value = "私はhungryです"
　　MsgBox "セルＡ１の文字列の全角。半角を判断します"
　　aa = Range("a1").Value
　　For idx = 1 To Len(aa)
　　　result = "「" & Mid(aa, idx, 1) & "」は、"
　　　If LenB(StrConv(Mid(aa, idx, 1), vbFromUnicode)) = 2 Then
　　　　　result = result & "全角文字です"
　　　Else
　　　　　result = result & "半角文字です"
　　　　　End If
　　　MsgBox result
　　　Next
End Sub
'==========================================================
Sub test2()
　　Dim idx As Long
　　Dim aa As String
　　Dim result As String
　　Range("a1").Value = "私はhungryです"
　　MsgBox "セルＡ１の文字列の全角。半角を判断します"
　　aa = Range("a1").Value
　　For idx = 1 To Len(aa)
　　　result = "「" & Mid(aa, idx, 1) & "」は、"
　　　If Evaluate("LenB(""" & Mid(aa, idx, 1) & """)") = 2 Then
　　　　　result = result & "全角文字です"
　　　Else
　　　　　result = result & "半角文字です"
　　　　　End If
　　　MsgBox result
　　　Next
End Sub

検討してみてください。

お礼

LenB(StrConv(Mid(aa, idx, 1), vbFromUnicode)) を利用し以下のような文字列検査で目的を得ました。ありがとうございました。

※変数"文字列"に検査したい文字列を代入し、本体マクロから"文字列検査"マクロを呼び出し　バイト数・　調整文字　を得て本体に戻ります。

Sub 文字列検査()
ReDim 文字長(Len(文字列)) As Integer
バイト数 = 0
調整文字 = ""
For 文字回数 = 1 To Len(文字列)
文字長(文字回数) = LenB(StrConv(Mid(文字列, 文字回数, 1), vbFromUnicode))

If バイト数 > 0 And 文字長(文字回数) <> 文字長(文字回数 - 1) Then バイト数 = バイト数 + 1

Select Case 文字長(文字回数)
Case 1
If バイト数 < 22 Then
バイト数 = バイト数 + 文字長(文字回数)
調整文字 = 調整文字 + Mid(文字列, 文字回数, 1)
End If
Case 2
Select Case バイト数
Case 20
バイト数 = バイト数 + 1
Case 0, 19
バイト数 = バイト数 + 文字長(文字回数) + 1
調整文字 = 調整文字 + Mid(文字列, 文字回数, 1)
Case 1 To 18
バイト数 = バイト数 + 文字長(文字回数)
調整文字 = 調整文字 + Mid(文字列, 文字回数, 1)
If 文字回数 = Len(文字列) Then バイト数 = バイト数 + 1
End Select
End Select
Next 文字回数

End Sub