PART 06 — 構造体・連想配列
Type文とDictionaryでJavaのMapを再現する

Option Explicit

' ── Type定義（標準モジュールの先頭に記述）──
Public Type Product
    Id    As Long
    Name  As String
    Price As Long
    Stock As Long
End Type

' ── 使用例 ──
Sub TypeExample()
    Dim p As Product
    p.Id    = 1
    p.Name  = "ノートPC"
    p.Price = 89800
    p.Stock = 10

    Debug.Print p.Name & " ¥" & p.Price  ' → ノートPC ¥89800

    ' 配列にも使える
    Dim products(1 To 3) As Product
    products(1).Id   = 1
    products(1).Name = "商品A"
End Sub

Option Explicit

Sub DictionaryBasics()
    ' レイトバインディング（参照設定不要）
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")

    ' ── 追加 ──
    dict.Add "apple",  100
    dict.Add "banana", 80
    dict.Add "cherry", 150

    ' ── キー存在確認 ──
    If dict.Exists("apple") Then
        Debug.Print "apple: " & dict("apple")   ' → 100
    End If

    ' ── 値の更新 ──
    dict("apple") = 120   ' キーが存在すれば上書き

    ' ── キー・値の一覧 ──
    Dim key As Variant
    For Each key In dict.Keys
        Debug.Print key & " = " & dict(key)
    Next key

    ' ── 削除 ──
    dict.Remove "banana"
    dict.RemoveAll   ' 全削除

    ' ── カウント ──
    Debug.Print dict.Count   ' → 0

    Set dict = Nothing
End Sub

Option Explicit

Public Type Employee
    Name   As String
    Dept   As String
    Salary As Long
End Type

Sub TypeAndDictExample()
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")

    ' Type変数をVariantとしてDictionaryに格納
    Dim emp As Employee
    emp.Name   = "田中 太郎"
    emp.Dept   = "開発"
    emp.Salary = 500000
    dict.Add "E001", emp

    emp.Name   = "鈴木 花子"
    emp.Dept   = "営業"
    emp.Salary = 450000
    dict.Add "E002", emp

    ' 取得・表示
    Dim id As Variant
    For Each id In dict.Keys
        Dim e As Employee
        e = dict(id)
        Debug.Print id & ": " & e.Name & " / " & e.Dept
    Next id

    Set dict = Nothing
End Sub