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

関連記事

: フォントの設定（Font プロパティ）

フォントの設定（Font プロパティ）指定されたオブジェクトのフォント情報（F …

: 四捨五入・切り上げ・切り捨て・丸め（Round 関数他）

Round 関数（丸め）の使い方【書式】 value = Round ( ex …

: 日付時刻：日付から曜日を取得（ Weekday 関数、WeekdayName 関数）

Weekday 関数（日付から曜日を表す数値を返す）の使い方【書式】 week …

: データ型を調べて、そのデータ型を示す数値を返す（VarType 関数）

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

: カレントフォルダの取得・設定（DefaultFilePath プロパティ）

DefaultFilePath プロパティカレントフォルダとは、ブックを開いた …

: 変数が配列かどうかをチェックする（ IsArray 関数）

IsArray 関数の使い方【書式】 result = IsArray( va …

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

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

: VBA で正規表現を使う（RegExp オブジェクト）

RegExp オブジェクト VBA で正規表現を使うには、VBScript のR …

: 色の設定（Color プロパティ・RGB 関数）

Color プロパティ Color プロパティは、指定したオブジェクトの色を取得 …

: 文字列：文字列を最後から検索してその最初の文字位置を返す（InStrRev 関数）

InStrRev 関数任意の文字列の中で、指定した文字列を最後から検索して、見 …

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