【vba】DictionaryのkeyがVariant型だとStringでは呼び出せない
A | B | C | |
---|---|---|---|
1 | ねこ | いぬ | うさぎ |
2 | にゃー | わん | きっ |
3 | たま | ぽち | うさ |
Sub sample1() Dim dic1 As dictionary Set dic1 = New dictionary Dim dic2 As dictionary Set dic2 = New dictionary For Each Item In Sheets(1).Range("A1:C1") Call dic1.Add(Item, "★_" & Item) Call dic2.Add(CStr(Item), "★_" & Item) Next Item Debug.Print "dic1: " & dic1.Item("ねこ") '=> dic1: Debug.Print "dic2: " & dic2.Item("ねこ") '=> dic2: ★_ねこ End Sub
格納するときは必ずキャストしよう。