PTT數位生活區 / Office

Re: [算表] VBA移除陣列中元素

看板Office作者 (深呼吸~)時間10年前 (2016/03/12 12:41), 編輯推噓0(0推 0噓 37→)
留言37則, 2人參與, 最新討論串3/3 (看更多)
各位版大好，以下有一dictionary物件，今欲將item為0之key值寫入空值，但是卻出現 dic.Item(i)非變數的錯誤訊息，不知道要如何修正，謝謝! Function inventory_rank3(item_range As Range, number_range As Range, _ rank_order As Integer) As String Dim r As Range Dim ary1, ary2 Dim w&, dic, num&, Set dic = CreateObject("scripting.dictionary") For Each r In item_range num = number_range.Resize(1).Offset(w) If r <> "" Then If dic.exists(r.Value) Then dic.Item(r.Value) = dic.Item(r.Value) + num Else dic.Add r.Value, num End If End If w = w + 1 Next For Each dic.Item(i) In dic If dic.Item(i) = 0 Then dic.Key(i) = "" Next End Function -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.39.49.112 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1457757705.A.BF4.html
→
03/12 13:18, , 1F
寫法為for each 變數 in dic...next
03/12 13:18, 1F
→
03/12 13:30, , 2F
變數用於迴圈item及key內
03/12 13:30, 2F
→
03/12 20:44, , 3F
我後來使用以下做法
03/12 20:44, 3F
→
03/12 20:45, , 4F
For i = 0 To dic.Count - 1
03/12 20:45, 4F
→
03/12 20:45, , 5F
If dic.items()(i) = 0 Then dic.items()(i) = "a
03/12 20:45, 5F
→
03/12 20:46, , 6F
Next
03/12 20:46, 6F
→
03/12 20:46, , 7F
不過dic裡面的key卻不為所動，覺得很困惑@@
03/12 20:46, 7F
→
03/12 20:47, , 8F
不好意思，上面應為dic.items()(i) = ""
03/12 20:47, 8F
→
03/12 21:28, , 9F
測試可用個變數接dic.key()(i)的值，再以dic.key(變數)的
03/12 21:28, 9F
→
03/12 21:28, , 10F
方式=原po要的字串
03/12 21:28, 10F
→
03/12 21:34, , 11F
更正為應是變數接dic.keys()(i)的值
03/12 21:34, 11F
→
03/13 17:09, , 12F
這樣的寫法就成功了
03/13 17:09, 12F
→
03/13 17:10, , 13F
不過dic的key之首項似乎不能為""
03/13 17:10, 13F
→
03/13 17:11, , 14F
因為每次只要首項為""，程式就會停止
03/13 17:11, 14F
→
03/13 17:11, , 15F
不知這樣的問題有無解法?
03/13 17:11, 15F
→
03/13 17:12, , 16F
還是只能另外用變數來處理?
03/13 17:12, 16F
→
03/13 17:20, , 17F
不太了解什麼是key之首項，是指item 1嗎？
03/13 17:20, 17F
→
03/13 17:21, , 18F
如果是的話，測試用for each..next來帶出，並無出現原po的
03/13 17:21, 18F
→
03/13 17:21, , 19F
情況
03/13 17:21, 19F
→
03/13 20:04, , 20F
這裡的key首項就是item 1沒錯
03/13 20:04, 20F
→
03/13 20:04, , 21F
我後來用以下寫法
03/13 20:04, 21F
→
03/13 20:05, , 22F
For Each i In ary1
03/13 20:05, 22F
→
03/13 20:05, , 23F
If dic.Item(i) = 0 Then dic.Key(i) = ""
03/13 20:05, 23F
→
03/13 20:05, , 24F
Next
03/13 20:05, 24F
→
03/13 20:08, , 25F
當item 1不為0時，其餘item為0所對應到的key皆被順利
03/13 20:08, 25F
→
03/13 20:10, , 26F
變更為""，但若item 1為0時，則程式會出現錯誤。
03/13 20:10, 26F
→
03/13 20:11, , 27F
不知道我哪裡做錯了，還請指教，謝謝!
03/13 20:11, 27F
→
03/13 20:46, , 28F
模擬第一筆為0時
03/13 20:46, 28F
→
03/13 20:46, , 29F
並以for each...next帶出，如圖片下方紅框
03/13 20:46, 29F
→
03/14 08:34, , 30F
可是如果連B的數字都為0
03/14 08:34, 30F
→
03/14 08:36, , 31F
那C，甚至之後的D、E等就會跑不出來
03/14 08:36, 31F
→
03/14 08:39, , 32F
在真實的狀況中，不同的項目的確會因為不同的時間的買
03/14 08:39, 32F
→
03/14 08:39, , 33F
賣而使存貨為0
03/14 08:39, 33F
→
03/14 08:54, , 34F
如果有二筆以上都改為空字串""，就會因為有重覆值而無法執
03/14 08:54, 34F
→
03/14 08:55, , 35F
行
03/14 08:55, 35F
→
03/14 08:58, , 36F
因此有二筆以上時，可以remove方式移除，迴圈以反序方式
03/14 08:58, 36F
→
03/14 11:38, , 37F
瞭解了，謝謝!
03/14 11:38, 37F
‣ 更多 nazomegami 的文章
文章代碼(AID): #1Muvu9lq (Office)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 nazomegami 的文章
文章代碼(AID): #1Muvu9lq (Office)