MW211 EXIT

devlog
ExcelVBA/多次元連想配列
2021年04月07日
┌──────────────────────────────────────┐
│Dim ハッシュ As Object                                                      │
│Dim i As Long, キー As Variant                                              │
│Set ハッシュ = CreateObject("Scripting.Dictionary")                         │
│ハッシュ.RemoveAll  ' 参考(全削除)                                          │
│' 値設定                                                                    │
│Set ハッシュ(ハッシュ.Count) = CreateObject("Scripting.Dictionary")         │
│ハッシュ(ハッシュ.Count - 1)("名前") = "織田信長"                           │
│ハッシュ(ハッシュ.Count - 1)("住所") = "安土城"                             │
│Set ハッシュ(ハッシュ.Count) = CreateObject("Scripting.Dictionary")         │
│ハッシュ(ハッシュ.Count - 1)("名前") = "豊臣秀吉"                           │
│ハッシュ(ハッシュ.Count - 1)("住所") = "大阪城"                             │
│Set ハッシュ(ハッシュ.Count) = CreateObject("Scripting.Dictionary")         │
│ハッシュ(ハッシュ.Count - 1)("名前") = "徳川家康"                           │
│ハッシュ(ハッシュ.Count - 1)("住所") = "江戸城"                             │
├──────────────────────────────────────┤
│' 値参照(方法1)                                                             │
│For i = 0 To ハッシュ.Count - 1                                             │
│    MsgBox ハッシュ(i)("名前") & " in " & ハッシュ(i)("住所")               │
│Next i                                                                      │
│' 値参照(方法2)                                                             │
│For Each キー In ハッシュ                                                   │
│    MsgBox ハッシュ(キー)("名前") & " in " & ハッシュ(キー)("住所")         │
│Next キー                                                                   │
└──────────────────────────────────────┘
分類:ExcelVBA