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

関連記事

: Math 関数（ Abs,Atn,Cos,Exp,Log,Rnd,Sgn,Sin,Sqr,Tan ）

Abs 関数【書式】 value = Abs ( number ) 【引数・戻 …

: 文字列：文字列変数の値を右詰めまたは左詰めにする（RSet ステートメント・LSet ステートメント）

RSet ステートメント・LSet ステートメント【書式】＜ RSet ステ …

: 日付時刻：時・分・秒を取得（Hour、Minute、Second 関数）

日付時刻から時・分・秒を取得する関数【書式】 time_hour = Hour …

: 日付時刻：日付時刻データを計算（ DateAdd 関数）

DateAdd 関数（日付・時刻の値を加算・減算結果を取得）【書式】 resu …

: 連想配列（Dictionary オブジェクト）

連想配列連想配列とは、添字（キー）に文字列を使用することができる配列です。 V …

: 式の値に応じて多分岐を行う（Switch 関数）

Switch 関数の使い方 Switch 関数は、「式・値」を対にして指定して …

: 指定した数のスペースを挿入する（Spc 関数）

指定した数のスペースを挿入指定した数のスペースを挿入するには、Spc 関数を使 …

: テキストファイル（UTF-8）を読み込み、書き出し（ADODB.Stream）

Stream オブジェクト ADO（ActiveX Database Objec …

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

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

: 列挙型変数（Enum ステートメント）

列挙型変数を使う列挙型変数を使用するには、Enum ステートメントを使って、宣 …

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