VBAのIE制御

LenB関数は、VBA関数の中で文字列操作関数に分類される関数です。

目次

• LenB関数とは
• LenB関数のサンプルコード
  • 実行結果
  • 解説

LenB関数とは

LenB関数は、指定した文字列の文字数または指定した変数に必要なバイト数を表す長整数型 (Long) の値を返します。

指定可能な 2 つの引数のうち、いずれか 1 つだけを指定します。LenB 関数にユーザー定義型の変数を指定すると、ファイルに書き込まれるデータのサイズを返します。
文字列をバイト データとして扱う場合は、LenBB 関数を使用します。LenBB 関数は、指定した文字列のバイト数を返します。LenBB 関数にユーザー定義型の変数を指定すると、メモリ内でのサイズを返します。この値には要素間の埋め込みも含まれています (ただし、Windows の VBA と Mac のVBA とでは返す値が異なる場合があります)。
LenBB 関数のコード例は、LenB 関数の使用例を参照してください。
データ型がユーザー定義型の可変長文字列を LenB 関数に指定すると、必要な格納領域の実際のバイト数を判断できないことがあります。

LenB関数のサンプルコード

次の例は、LenB 関数を使って、文字列の文字数、または変数の保存に必要なバイト数を返します。CustomerRecord を定義する Type...End Type ブロックをクラス モジュール内で記述する場合、このブロックの直前にキーワード Private を付ける必要があります。標準モジュールでは、Type ステートメントでパブリックなユーザー定義型を定義できます。

Sub sample()

 Type CustomerRecord                ' ユーザー定義型を定義します。
     ID As Integer                    ' この定義は標準モジュール内に記述します。
     Name As String * 10
     Address As String * 30
 End Type

 Dim Customer As CustomerRecord        ' 変数を宣言します。
 Dim MyInt As Integer, MyCur As Currency
 Dim MyString, MyLenB
 MyString = "Hello World"            ' 変数を初期化します。
 MyLenB = LenB(MyInt)                ' 2 を返します。
 MyLenB = LenB(Customer)            ' 42 を返します。
 MyLenB = LenB(MyString)            ' 11 を返します。
 MyLenB = LenB(MyCur)                ' 8 を返します。

End Sub

※ドラッグ(スワイプ)すると全体を確認できます。

次の例では、LenBB 関数とユーザー定義関数 LenBMbcs を使用して、指定した文字列のバイト数を返します。32 ビット Windows 用の VBA を使用する場合と、Macintosh用の VBA を使用する場合とでは、返される結果が異なる点に注意してください。

Function LenBMbcs (ByVal str as String)
    LenBMbcs = LenBB(StrConv(str, vbFromUnicode))
End Function


Sub sample()

 Type CustomerRecord                ' ユーザー定義型を定義します。
     ID As Integer                    ' この定義は標準モジュール内に記述します。
     Name As String * 10
     Address As String * 30
 End Type

 Dim MyString, MyLenB
 MyString = "ＡＢc"
 ' "Ａ" と "Ｂ" は全角文字で "c" は半角文字です。
 MyLenB = LenB(MyString)
 ' 文字数として 3 が返されます。
 MyLenB = LenBB(MyString)
 ' Windows の場合は 6、Macintosh の場合には 5 がバイト数として返されます。
 MyLenB = LenBMbcs(MyString)
 ' Windows の場合は 5 が返されます。Macintosh の場合は 
 ' Unicode がサポートされていないため、エラーが返されます。


End Sub

※ドラッグ(スワイプ)すると全体を確認できます。

実行結果

解説

文字列操作関数一覧