VBAのTypeでユーザー定義型を作成する方法をわかりやすく解説

Type Employee
    Name As String
    Age As Integer
    Salary As Double
End Type

Sub ExampleType()
    Dim emp As Employee ' ユーザー定義型の変数を宣言
    
    ' データを代入
    emp.Name = "田中 太郎"
    emp.Age = 30
    emp.Salary = 5000000

    ' 結果を表示
    MsgBox "氏名: " & emp.Name & vbCrLf & _
           "年齢: " & emp.Age & vbCrLf & _
           "給与: " & emp.Salary & "円", vbInformation, "従業員情報"
End Sub

Type Employee
    Name As String
    Age As Integer
    Salary As Double
End Type

Sub ExampleTypeArray()
    Dim employees(1 To 3) As Employee ' 3 人分のデータを格納する配列
    
    ' データを代入
    employees(1).Name = "田中 太郎"
    employees(1).Age = 30
    employees(1).Salary = 5000000
    
    employees(2).Name = "佐藤 花子"
    employees(2).Age = 25
    employees(2).Salary = 4200000
    
    employees(3).Name = "鈴木 一郎"
    employees(3).Age = 40
    employees(3).Salary = 6000000

    ' 1人目のデータを表示
    MsgBox "氏名: " & employees(1).Name & vbCrLf & _
           "年齢: " & employees(1).Age & vbCrLf & _
           "給与: " & employees(1).Salary & "円", vbInformation, "従業員情報"
End Sub

Type Employee
    Name As String
    Age As Integer
    Salary As Double
End Type

Sub LoadEmployeeData()
    Dim emp As Employee
    
    ' Excel のセルからデータを取得
    emp.Name = Range("A1").Value
    emp.Age = Range("B1").Value
    emp.Salary = Range("C1").Value

    ' 結果を表示
    MsgBox "氏名: " & emp.Name & vbCrLf & _
           "年齢: " & emp.Age & vbCrLf & _
           "給与: " & emp.Salary & "円", vbInformation, "従業員情報"
End Sub