[發問] dictionary 用法

以下為我的程式碼:

Dim Ar(), d As Object
Set d = CreateObject("scripting.dictionary")
Set dic = CreateObject("scripting.dictionary")
Set dtemp = CreateObject("scripting.dictionary")
Ar = Range("A6:E" & [E6].End(xlDown).Row)
For i = 1 To UBound(Ar)
If Not dtemp.exists(Left(Ar(i, 2), 4)) Then
d.Add Ar(i, 2), Ar(i, 4)
dic.Add Ar(i, 2), Ar(i, 5)
dtemp.Add Left(Ar(i, 2), 4), Ar(i, 4)
Else
d(Ar(i, 2)) = d(Ar(i, 2)) + Ar(i, 4)
dic(Ar(i, 2)) = dic(Ar(i, 2)) + Ar(i, 5)
dtemp(Ar(i, 2)) = dtemp(Ar(i, 2)) + Ar(i, 4)
End If
Next i

複製代碼

Ar 存放一個range
其形式長這樣
序商品名稱       成交單價購買數量
1 131A 電腦 150          1,000
2 132A          100                0
3 55CR 冰箱 800                0
4 55CR          1200                250
5 55CR          1150             100

因為名稱並未完全相同
想要用dictionary完成各項加總
可是不知道為何dtemp可以加總
但是 d跟dic就不行?
感謝m(_ _)m

樓主熱帖

lalalada

中學生 Rank: 2

帖子: 102
主題: 17
精華: 0
積分: 129
點名: 0
作業系統: windows
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-5-16
最後登錄: 2020-9-2

2^#

發表於 2012-8-13 15:55 | 顯示全部帖子

回復 lalalada
想要用dictionary完成各項加總,可是不知道為何dtemp可以加總,但是 d跟dic就不行?
看看是 ...
GBKEE 發表於 2012-8-13 12:13

好像怪怪的...
最後一段
      d(xlword(1)) = d(xlword(1)) + Ar(i, 4)
      If xlword(1) <> xlword(2) Then dic(xlword(2)) = dic(xlword(2)) + Ar(i, 5)
      If xlword(3) <> "" Then dtemp(xlword(3)) = dtemp(xlword(3)) + Ar(i, 4)
意思分別是:
全名 = 代碼 + 品名
字典1建立關鍵字(記錄所有關鍵字，部分為全名，部分只有代碼)
若目前的全名不只有左邊代碼則字典2(紀錄同時有代碼+品名項)加入關鍵字及索引
若品名不為空白則字典3(紀錄同時有代碼+品名項)加入關鍵字索引
這樣看起來最後無法把所有相同代碼的產品加總輸出?@@
ex. SSSL 電腦 $100 50
   SSSL          $150 25
   SSSL          $50    100
輸出成
SSSL 電腦 175
最後目標是
SSSL 電腦 $平均價格  175

TOP

lalalada

中學生 Rank: 2

帖子: 102
主題: 17
精華: 0
積分: 129
點名: 0
作業系統: windows
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-5-16
最後登錄: 2020-9-2

3^#

發表於 2012-8-13 16:06 | 顯示全部帖子

本帖最後由 lalalada 於 2012-8-13 16:09 編輯

抱歉一開始敘述不清
我把原來的code加上註解

Dim Ar()
Set d = CreateObject("scripting.dictionary")
Set dic = CreateObject("scripting.dictionary")
Set dtemp = CreateObject("scripting.dictionary")
Ar = Range("A6:E" & [E6].End(xlDown).Row)
For i = 1 To UBound(Ar)
If dtemp.exists(Left(Ar(i, 2), 4)) = False Then '若字典3代碼未紀錄
d(Ar(i, 2)) = Ar(i, 4) '字典1紀錄全名及索引1
dic(Ar(i, 2)) = Ar(i, 5) '字典2紀錄全名及索引2
dtemp(Left(Ar(i, 2), 4)) = Ar(i, 4) '字典3紀錄代碼及索引
MsgBox "d:" & d(Ar(i, 2)) & d.keys & " dic:" & dic(Ar(i, 2)) & " dtemp:" & dtemp(Left(Ar(i, 2), 4))
Else '若字典3代碼已記錄
dtemp(Left(Ar(i, 2), 4)) = dtemp(Left(Ar(i, 2), 4)) + Ar(i, 4) '字典3索引1加總
d(Ar(i, 2)) = d(Ar(i, 2)) + Ar(i, 4) '字典1(全名)索引1加總
dic(Ar(i, 2)) = dic(Ar(i, 2)) + Ar(i, 5) '字典2(全名)索引2加總
MsgBox "ELSE ""d:" & d(Ar(i, 2)) & " dic:" & dic(Ar(i, 2)) & " dtemp:" & dtemp(Left(Ar(i, 2), 4))
End If
Next i
[L6].Resize(d.Count, 1) = Application.Transpose(d.keys) '輸出全名
[M6].Resize(d.Count, 1) = Application.Transpose(d.items) '輸出索引1
[N6].Resize(dic.Count, 1) = Application.Transpose(dic.items) '輸出索引2