「VBA」StrConv関数で文字列のバイト数を取得するサンプル
書式
LenB(StrConv(文字列,vbFromUnicode))
使用例
Sub funcA() Dim nn As String nn = "test123" Debug.Print LenB(StrConv(nn, vbFromUnicode)) '半角は1バイト Dim kk As String kk = "テスト" Debug.Print LenB(StrConv(kk, vbFromUnicode)) '文字列をUnicodeから変換 End Sub
実行結果
7
6