Muni Bus

パソコンの操作方法や設定方法を忘れないようにメモしています。ブログを一回引っ越ししているので、所々表示がかなり乱れています・・・

【Excel VBA】文字列の長さをバイト長で得る

VBAは文字列の処理を、内部ではUnicodeで扱っていることから、全角文字も半角文字も1バイトであり、LenB関数を使用しても「あいうえお」も「Excel」も5が得られてしまう。処理する文字をUnicode以外にしてLenB関数を使用すればよい。
Function lengthB(st As String) As Integer
    lengthB = LenB(StrConv(st, vbFromUnicode))
End Function