Excel VBA質問箱 IV

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

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


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

1655 / 76734

←次へ　｜　前へ→


	【80727】Dictionaryでの値集計

永遠の超初心者 - 19/4/24(水) 15:50 -


	引用なし

	パスワード

Dictionaryを使って、キーに対応するアイテムの合計を算出したいです。

キーとなる値=６桁の数値
アイテム=小数点を含む数値
キーの範囲=Range("J51:CE81")…一部空白セル有り
アイテムの範囲=Range("J1:CE1")…全て実装

下記のコードでは
(1)アイテムの合計はキーの数値にアイテムの数値が加算されたものになってしまいます。
　ex.キーが111111で,そのアイテムの合計が7.75の場合は１１１１１8.75
(2)試しにキーに文字列を代入すると★で"実行時エラー　13　型が一致しません"と出ます。

不備な点をご指摘ください。

Sub test()
Sheets("Sheet1").Activate
　Dim Dic As Object, buf, iR, iC, i, keys, iT
'管理ナンバー収集
Range("F91:G110").ClearContents
　Set Dic = CreateObject("Scripting.Dictionary")

　For iR = 51 To 81
　　For iC = 10 To 83
　　 If Cells(iR, iC).Value <> "" Then
　　　 buf = Cells(iR, iC).Value　　 'セルの値をbufに格納(キー)
　　　　 If Not Dic.Exists(buf) Then '未登録の場合
　　　　 Dic.Add buf, buf　　　　　　'セルの値を登録
　　　　　 Dic.Item(buf) = Dic.Item(buf) + Cells(1, iC).Value '対応する行1の値(アイテム)を加算していく★
　　　　 Else　　　　　　　　　　　　'登録済みの場合
　　　　　 Dic.Item(buf) = Dic.Item(buf) + Cells(1, iC).Value '対応する行1の値(アイテム)を加算していく
　　　　 End If
　　 End If
　　Next iC
　Next iR
　
　keys = Dic.keys
　For i = 0 To Dic.Count - 1
　 Cells(i + 91, 6) = keys(i) 'キーを表示
　Next i

　iT = Dic.Items
　For i = 0 To Dic.Count - 1
　 Cells(i + 91, 10) = iT(i) 'アイテムを表示
　Next i
　
　Set Dic = Nothing
End Sub

4 hits

▼

【80727】Dictionaryでの値集計 永遠の超初心者 19/4/24(水) 15:50