ジャグ配列

Question

いつもお世話になっております
下記は以前教えて頂いたコードですが
こちらを利用してさらに多段配列は可能でしょうか。
添付ファイルのようにやりたいのですが。
さすがに無理でしょうか。
①シートは商品ごとあります。ばなな　みかん　ぶどう　りんご
②サイズが　Ｓ　Ｍ　ＳＳ　Ｌ　あります。

例）シート　ばなな
　　購入月　昇順です
　　あとはサイズごとわかれていれば
　　よいのですが。


Dim myDic As Object
Dim r As Range, r2 As Range
Dim key1, key2, mon As String

Set myDic = CreateObject("Scripting.Dictionary")

With ActiveSheet
For Each r In .Range("A2", .Cells(Rows.Count, "A").End(xlUp))

If Not myDic.Exists(r.Value) Then myDic.Add r.Value, _
CreateObject("Scripting.Dictionary")

mon = Month(r.Range("B1").Value) & "月"

If Not myDic(r.Value).Exists(mon) Then myDic(r.Value).Add mon, _
CreateObject("System.Collections.ArrayList")

myDic(r.Value)(mon).Add (r.Range("C1:E1").Value)

Next
End With

For Each key1 In myDic.Keys
With Worksheets(key1)
Set r2 = .Range("A2")
For Each key2 In myDic(key1).Keys

r2.Value = key2
r2.Offset(, 1).Resize(myDic(key1)(key2).Count, 3).Value = _
Application.Transpose(Application.Transpose(myDic(key1)(key2).ToArray()))
Set r2 = r2.Offset(5)

Next
End With
Next

Set myDic = Nothing
Set r2 = Nothing

これを利用してもう一つ多段階にすることは可能でしょうか
わたしなりにやりましたが
いろいろ試しましたがどこをどうすれば
よいのか答えがでませんです。
おしえてくれませんでしょうか
下記のコードはだめです

With ActiveSheet
For Each r In .Range("A2", .Cells(Rows.Count, "A").End(xlUp))

If Not Dic.Exists(r.Value) Then _
Dic.Add r.Value, CreateObject("Scripting.Dictionary")
Size = r.Range("B1").Value

If Not Dic(r.Value).Exists(Size) Then _
Dic(r.Value).Add Size, CreateObject("System.Collections.ArrayList")
Dic(r.Value)(Size).Add (r.Range("C1").Value)

If Not Dic(r.Value)(Size).Exists(mon) Then _
Dic(r.Value)(Size)(mon).Add Size, CreateObject("System.Collections.ArrayList")
Dic(r.Value)(mon).Add (r.Range("C1").Value)

Next
End With

めぐみん_ · Accepted Answer

For i = 0 To Dic(key1)(key2).Count - 1
rr.Offset(i, 2).Value = Dic(key1)(key2)(i)
Next

ここで

For i = 0 To Dic(key1)(key2).Count - 1
rr.Offset(i, 2).Resize(, 2).Value = Dic(key1)(key2)(i)
Next

だと思います。

あと

Set rr = rr.Offset(1)
rr.Offset(, 1).Value = key2
Set rr = rr.Offset(1)

この上下の Offset は共に不要では？
頭に ' を付けて試してみるとか？

めぐみん_ · Answer

お疲れ様です。

結構ほしいですね。
１番目にDictionary、２・３番目にArrayListを用いられているようですけど、普通にやるとしたら１・２番目がDictionary、３番目にArrayListでしょうね。
ArrayListは通常の配列と似てて書き込んだ順に１次元的に値等を格納するのであって、今回のサイズ毎による値と言うKeyとItemを対で格納する事は出来ません。
強引に１つ目のDictionaryでKeyを”月とサイズ”で連結するってのは良いのかもしれませんけど。

ただここで引っかかるとしたら、

＞購入月　昇順です

でしょうか。
データ的に既に並べ替える必要がないって事ならば上記で宜しいのでしょうけど、データの月がバラバラになってて書き出す際にはそれを並べ替える必要があるって事ならもう一工夫必要かもです。

事実データは前者と後者のどちらなのでしょう？

めぐみん_ · Answer

No.1です。

最初の Set ~ Dictionary を入れてなかった。
これを入れると
１～３番目がDictionary
４番目がArrayList
ですね。

ただ最初の Dictionary の Key を　商品_納入日_サイズ　とすれば、Dictionary ArrayList は１個ずつで出来ます。
Key を吐き出した後で Split を使い分けられた値を上手く使い分けていけば可能かな？と。
前回そのような使い方をすればわかりやすかったのかもですね。（他の回答者でも稀にそう使ってますし）

めぐみん_ · Answer

えっと。
補足の画像の右側（列で行がズレている）表を『サイズ』『日付』『金額』で揃えれば良いのでしょうか？
ちなみに『金額』が表示されないのは表示させるために行うセル範囲の拡張 Resize(~) が使われていないだけですね。
ダミーデータ作成に少々お待ちください。

ジャグ配列

お疲れ様です。

No.1です。

えっと。

For i = 0 To Dic(key1)(key2).Count - 1

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング