Excel VBA 質問スレ Part51

[1 デフォルトの名無しさん (ｽﾌﾟﾌﾟ Sd4a-O827) 2017/11/08(水) 11:26:30.13 ID:+KUB1/9hd]

スレ立ての際は一行目に
!extend:checked:vvvvv:1000:512
と入れてスレ立てして下さい

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK

※関連スレ
VBAなんでも質問スレ Part2
http://mevius.2ch.net/test/read.cgi/tech/1432173164/
Access VBA 質問スレ Part1
http://mevius.2ch.net/test/read.cgi/tech/1328536426/
Excel総合相談所 126
https://mevius.2ch.net/test/read.cgi/bsoft/1496487719/

※前スレ
Excel VBA 質問スレ Part50
http://mevius.2ch.net/test/read.cgi/tech/

---

VIPQ2_EXTDAT: checked:vvvvv:1000:512:----: EXT was configured 👀
Rock54: Caution(BBR-MD5:0be15ced7fbdb9fdb4d0ce1929c1b82f)

[2 デフォルトの名無しさん (ｽﾌﾟﾌﾟ Sd62-O827) 2017/11/08(水) 11:28:45.81 ID:+KUB1/9hd]

早速質問
今vbaでマップ使って
とある表の集計を行なっております
一つのkeyに対しアイテムが複数あるので
配列で入れようと思ったのですがうまくいきません
何か良い方法はありませんか？

[3 デフォルトの名無しさん (ｴｰｲﾓ SE8d-dVlt) 2017/11/08(水) 18:45:21.53 ID:oD3+O0e3E]

Dim dic
Dim a()

redim a(1)
a(0)="test1"
a(1)="test2"

Set dic = CreateObject("Scripting.Dictionary")
dic.Add "key1", "アテネ"
dic.Add "key2", "ベオグラード"
dic.Add "key3", a

msgbox dic("key3")(0)
msgbox dic("key3")(1)

[4 デフォルトの名無しさん (ﾜｯﾁｮｲ 4961-U2HA) 2017/11/08(水) 19:49:47.05 ID:aX63wCUb0]

前スレ
Excel VBA 質問スレ Part50
https://mevius.5ch.net/test/read.cgi/tech/1503805217/