ExcelVBA ユーザー定義型で複数の関連データを一つにまとめて扱う方法

以下のようなシーンで利用で表示します。

1.顧客情報（名前、住所、電話番号など）のような関連データを1つの型でまとめる。

2.配列やコレクションで複雑なデータを管理する際に便利

3.複数のデータを1つの関数やプロシージャで簡単にやり取りする。

Option Explicit

Public Type CustomerInfo
    Name As String
    Address As String
    PhoneNumber As String
End Type

Sub TestUserDefinedType()
    ' ユーザー定義型の変数を宣言
    Dim customer As CustomerInfo

    ' メンバに値を設定
    customer.Name = "山田 太郎"
    customer.Address = "東京都千代田区"
    customer.PhoneNumber = "012-3456-7890"

    ' 値を表示
    MsgBox "名前: " & customer.Name & vbCrLf & _
           "住所: " & customer.Address & vbCrLf & _
           "電話番号: " & customer.PhoneNumber
End Sub

標準モジュール（複数の顧客情報を管理する場合に配列で使用）

Option Explicit

Public Type CustomerInfo
    Name As String
    Address As String
    PhoneNumber As String
End Type

Sub TestArrayWithUserDefinedType()
    Dim customers(1 To 2) As CustomerInfo

    ' 1人目のデータを設定
    customers(1).Name = "山田 太郎"
    customers(1).Address = "東京都千代田区"
    customers(1).PhoneNumber = "012-3456-XXXX"

    ' 2人目のデータを設定
    customers(2).Name = "鈴木 花子"
    customers(2).Address = "大阪府大阪市"
    customers(2).PhoneNumber = "098-7654-YYYY"

    ' データを表示
    Dim i As Integer
    For i = LBound(customers) To UBound(customers)
        MsgBox "名前: " & customers(i).Name & vbCrLf & _
               "住所: " & customers(i).Address & vbCrLf & _
               "電話番号: " & customers(i).PhoneNumber
    Next i
End Sub

 ユーザー定義型は必ず標準モジュール内で定義する。PublicまたはPrivateを指定して、スコープを適切に管理。配列や複雑なデータ構造での使用はコードの効率を向上させます。

エラーが出たら、まず定義場所とスペルを確認してください。

これらのポイントを押さえれば、初心者でもユーザー定義型を安心して活用できます。