Excel VBA Len関数 文字数またはバイト数を返す

Sub Len_Sample_01()
  Dim n As Long
  
  n = Len("123456")
  Debug.Print (n) ' 6

  n = Len("くるみ")
  Debug.Print (n) ' 3

  n = Len("")
  Debug.Print (n) ' 0

  n = Len("ABC")  'Len関数は文字数取得
  Debug.Print (n) ' 3

  n = LenB("ABC") 'LenB関数はバイト数取得
  Debug.Print (n) ' 6

End Sub

Sub Len_Sample_02()
  Dim str As String

  str = Application.InputBox( _
    prompt:="セル選択または文字列を入力してください", _
    Title:="文字列の字数を調べる", _
    Type:=2)

  MsgBox "「" & str & "」の" & vbCrLf & _
    "文字数は " & Len(str) & " 文字です"

End Sub

Option Explicit
'ユーザー定義型でメンバーの変数を宣言する
Type CustomerRecord
  ID As Integer           '整数型
  Name As String * 10     '固定長文字列
  Address As String * 30  '固定長文字列
End Type

'String型のメンバーが固定長の場合
Sub Len_Test_01()
Dim Customer As CustomerRecord 'ユーザー型の変数宣言
Dim MyLen

'Customerの必要バイト数取得
MyLen = Len(Customer) '戻り値 42
Debug.Print (MyLen)

'メンバーのLen関数値の合計
With Customer
MyLen = Len(.ID) + Len(.Name) + Len(.Address)
Debug.Print (MyLen)   '戻り値 42
End With
End Sub

Option Explicit
'ユーザー定義型でメンバーの変数を宣言する
Type CustomerRecord
  ID As Integer           '整数型
  Name As String * 10     '固定長文字列
  Address As String       '可変長文字列
End Type

'String型のメンバーが可変長の場合
Sub Len_Test_02()
Dim Customer As CustomerRecord 'ユーザー型の変数宣言
Dim MyLen

'Customerの必要バイト数取得
MyLen = Len(Customer) '戻り値 20
Debug.Print (MyLen)

'メンバーのLen関数値の合計
With Customer
MyLen = Len(.ID) + Len(.Name) + Len(.Address)
Debug.Print (MyLen)   '戻り値 12
End With
End Sub

Option Explicit
'ユーザー定義型を定義する
Type MoldList
  mInt As Integer '整数型
  mLong As Long '長整数型
  mSingle As Single '単精度浮動小数点数型
  mDouble As Double '倍精度浮動小数点数型
  mCur As Currency '通貨型
  mBool As Boolean 'ブール型
  mByte As Byte 'バイト型
  mDate As Date '日付型
End Type

Sub Len_Test_03()
Dim Mold As MoldList
'メンバーのデータ型バイト数を取得して表示
With Mold
Debug.Print "バイト数　型名"
Debug.Print Len(.mInt) & " ←整数型"
Debug.Print Len(.mLong) & " ←長整数型"
Debug.Print Len(.mSingle) & " ←単精度型"
Debug.Print Len(.mDouble) & " ←倍精度型"
Debug.Print Len(.mCur) & " ←通貨型"
Debug.Print Len(.mBool) & " ←ブール型"
Debug.Print Len(.mByte) & " ←バイト型"
Debug.Print Len(.mDate) & " ←日付型"
End With
'ユーザー定義型 MoldList のバイト数
Debug.Print Len(Mold) & " ←ユーザー定義型"
End Sub