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 ) 【引数・戻 …

: 指定した文字列を数値に変換する（Val 関数）

Val 関数の使い方 Val 関数は、指定した文字列に含まれる数字を数値として …

: 取り消し線を設定する（Strikethrough プロパティ)

取り消し線を設定する（Strikethrough プロパティ) Striketh …

: データ型を調べてそのデータ型を示す文字列を返す（TypeName 関数）

TypeName 関数の使い方 TypeName 関数は、引数に、データ型を調 …

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

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

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

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

: 書式を変換（Format 関数）

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

: VBAの変数宣言

VBAの変数宣言について変数を暗黙的に宣言するエクセル VBA の場合、明示 …

: 日付時刻：日付時刻から情報取得（ DatePart 関数）

DatePart 関数（日付・時刻の値から情報を取得）【書式】 result …

: 文字に下線を設定する（Underline プロパティ）

下線を設定（Underline プロパティ） Underline プロパティは、 …

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