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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: Erase ステートメント（配列の初期化・動的配列のメモリ解放）

Erase ステートメントの使い方【書式】 Erase myArray [, …

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

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

: 引数が省略されたかどうかをチェックする（ IsMissing 関数）

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

: 出力位置、書き込み位置を設定（Tab 関数）

出力位置、書き込み位置を設定 Tab 関数は、Print メソッド、または P …

: 変数のデータ型・宣言（Dim ステートメント）

変数の宣言一般的な方法【書式】 Dim varname [ As type, …

: RGB 値一覧表（XlRgbColor 列挙型）

RGB 値（XlRgbColor 列挙型）一覧表 RGB 関数を使用して、出力さ …

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

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

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

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

: VBA の演算子（算術演算子）

算術演算子算術演算を行うときに使用する演算子です。 ^（べき乗）、*（積）、/ …

: Option Compare ステートメント

Option Compare ステートメントの使い方【書式】 Option C …

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