Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

文字列：文字列の長さを取得（ Len 関数、LenB 関数）

2015/05/05

Len 関数（文字列の長さを取得）

【書式】

result_len = Len ( string )

result_lenb = LenB ( string )

引数・戻り値

string ・・・任意の文字列・文字列式を指定します。
result_len ・・・引数 string の文字数（長整数型：Long）。
result_lenb ・・・引数 string のバイト数（長整数型：Long）。

引数 string が、Null 値 を含む場合は、Null 値 を返します

ワークシート関数にも LenB 関数 がありますが、動作が異なります。VBA の LenB 関数 の場合は、半角・全角にかかわらずすべての文字を２バイトとして扱います（Unicode として扱うため）。一方のワークシート関数の LenB 関数 は、半角文字を１バイト、全角文字を２バイトとして扱います（ANSI として扱うため）。
VBA で、ワークシート関数と同じ結果を取得するためには、StrConv関数 で、文字列を ANSI 形式に変換後に LenB 関数 を使用します。

Len 関数・LenB 関数の使用例

サンプルVBAソース

　
Sub Sample_Character01()

    Dim str1 As String, str2, str3, str4, str5, str6, str7, strnull
    
    str1 = "おはよう！"     '全角文字列
    str2 = "こんにちは　"   '全角文字列（全角スペースを含む）
    str3 = "あ,い う"       '全角文字列、半角カンマ、半角スペース
    str4 = "abcdefg"        '半角英字
    str5 = 123              '整数値
    str6 = ""               '空文字
    str7 = Chr(13)          '改行コード
    strnull = Null          'Null 値
    
    Debug.Print "Len（文字数）：" & Len(str1) & "　" & "LenB（バイト数）：" & LenB(str1)
    Debug.Print "Len（文字数）：" & Len(str2) & "　" & "LenB（バイト数）：" & LenB(str2)
    Debug.Print "Len（文字数）：" & Len(str3) & "　" & "LenB（バイト数）：" & LenB(str3)
    Debug.Print "Len（文字数）：" & Len(str4) & "　" & "LenB（バイト数）：" & LenB(str4)
    Debug.Print "Len（文字数）：" & Len(str5) & "　" & "LenB（バイト数）：" & LenB(str5)
    Debug.Print "Len（文字数）：" & Len(str6) & "　" & "LenB（バイト数）：" & LenB(str6)
    Debug.Print "Len（文字数）：" & Len(str7) & "　" & "LenB（バイト数）：" & LenB(str7)
    Debug.Print IIf(IsNull(strnull), Null, "Len（文字数）：" & Len(strnull) & "　" & "LenB（バイト数）：" & LenB(strnull))

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

　

Sub Sample_Character01()

Dim str1 As String, str2, str3, str4, str5, str6, str7, strnull

str1 = "おはよう！" '全角文字列

str2 = "こんにちは　" '全角文字列（全角スペースを含む）

str3 = "あ,いう" '全角文字列、半角カンマ、半角スペース

str4 = "abcdefg" '半角英字

str5 = 123 '整数値

str6 = "" '空文字

str7 = Chr(13) '改行コード

strnull = Null 'Null 値

Debug.Print "Len（文字数）：" & Len(str1) & "　" & "LenB（バイト数）：" & LenB(str1)

Debug.Print "Len（文字数）：" & Len(str2) & "　" & "LenB（バイト数）：" & LenB(str2)

Debug.Print "Len（文字数）：" & Len(str3) & "　" & "LenB（バイト数）：" & LenB(str3)

Debug.Print "Len（文字数）：" & Len(str4) & "　" & "LenB（バイト数）：" & LenB(str4)

Debug.Print "Len（文字数）：" & Len(str5) & "　" & "LenB（バイト数）：" & LenB(str5)

Debug.Print "Len（文字数）：" & Len(str6) & "　" & "LenB（バイト数）：" & LenB(str6)

Debug.Print "Len（文字数）：" & Len(str7) & "　" & "LenB（バイト数）：" & LenB(str7)

Debug.Print IIf(IsNull(strnull), Null, "Len（文字数）：" & Len(strnull) & "　" & "LenB（バイト数）：" & LenB(strnull))

End Sub

　

実行結果

- VBA基本 len 関数, lenb 関数, VBA基本, エクセルVBA, 文字列

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: Join 関数（配列の要素を結合）

Join 関数 1次元配列の各要素を指定した区切り文字で連結します。【書式】 …

: オートシェイプの種類を表す定数（MsoAutoShapeType 列挙型）

MsoAutoShapeType 列挙型オートシェイプオブジェクトの図形の種類 …

: データをクリアする（ClearContents メソッド）

ClearContents メソッド対象がセル範囲（Range オブジェクト） …

: ポイント単位の値に変換（CentimetersToPoints,InchesToPoints）

CentimetersToPoints メソッドセンチメートル単位の値をポイン …

: 変数がNull 値かどうかをチェックする（ IsNull 関数）

IsNull 関数の使い方【書式】 result = IsNull ( exp …

: 変数が数値型かどうかをチェックする（ IsNumeric 関数）

IsNumeric 関数の使い方【書式】 result = IsNumeric …

: 配列（宣言・要素数の変更について）

配列の宣言【書式】※ 配列の宣言＜Type 型の静的配列（固定長配列）の宣言 …

: セルのデータを固定長形式で複数のセルに分割する（TextToColumns メソッド・Parse メソッド）

固定長形式でセルを分割 TextToColumns メソッドや Parse メソ …

: xlFileFormat 列挙型

xlFileFormat 列挙型 Workbook.SaveAs メソッドの引 …

: 指定した値を8進数で表記した文字列に変換する（Oct 関数）

Oct 関数の使い方【書式】 result = Oct ( expressi …

PREV: set ステートメントを使う
NEXT: 変数やプロシージャのスコープ（適用範囲）