Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3235 / 76735

←次へ　｜　前へ→


	【79133】dictionary　item 追加されない

Ｔ-Ｋ - 17/5/20(土) 23:38 -


	引用なし

	パスワード

データより、クロス集計表をＶＢＡで作成しようとしています。
前回もこちらでお世話になりましたが、再度ご教授お願いします。
Ａ列　品名　Ｂ列　数字　Ｃ列日付　Ｄ列　数字のﾃﾞｰﾀが
あります。(データ数不定)それを
Ａ列とC列の値をＫｅｙとして取込み、itemをD列の値で取込み
それをクロス集計表に作成したいとおもっています。
重複している場合はD列の値を追加するながれです。
ネット検索して使えそうなサンプルがあり、少しだけ加工処理してみましたが、
ローカルで確認するとD列の値が、Itemとして追加されていません。
データ型が違うのが原因なのか、インデックスが有効範囲にないだけなのか
原因がわからないためわかるかたがいたらよろしくお願いします。
下記にマクロ記入します

Sub test51()
　　Dim myDic As Object, myKey, myItem
　　Dim myVal, myVal2
　　Dim i As Long, j As Long
　　Dim sh1 As Worksheet
　　　　Set myDic = CreateObject("Scripting.Dictionary")
　　　　Set sh1 = Worksheets("Sheet1")
　　　　' ---元データを配列に格納
　　　　myVal = sh1.Range("A1").CurrentRegion.Value
　　　　' ---myDicへデータを格納
　　　　For i = 1 To UBound(myVal, 1)
　　　　　　myVal2 = myVal(i, 1) & "_" & myVal(i, 3)
　　　　　　If Not myVal2 = "_" Then
　　　　　　　　If Not myDic.exists(myVal2) Then
　　　　　　　　　　myDic.Add myVal2, myVal(i, 4)’登録されていない
　　　　　　　　Else
　　　　　　　　　　myDic(myVal2) = myDic(myVal2) + myVal(i, 4)
　　　　　　　　End If
　　　　　　End If
　　　　Next
　　　　' ---Key,Itemの書き出し
　　　　For i = 2 To 1000
　　　　　　For j = 2 To 1000
　　　　　　　　Cells(i, j).Value = myDic(Cells(i, 2).Value & "_" & Cells(2, j).Value)
　　　　　　　
　　　　　　Next j
　　　　Next i

　　　　Set myDic = Nothing
　　　　Set sh1 = Nothing
End Sub

0 hits

▼

【79133】dictionary　item 追加されない Ｔ-Ｋ 17/5/20(土) 23:38