「VBA」StrConv関数で文字列のバイト数を取得するサンプル

2021年7月27日

書式
LenB(StrConv(文字列,vbFromUnicode))
使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
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
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
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

Excel VBA

Posted by arkgame