返回列表 上一主題 發帖

[發問] 陣列操作請益

no3-taco

帖子
41 
主題
0 
精華
0 
積分
79 
點名
0  
作業系統
win7 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2014-4-1 
最後登錄
2016-2-17 
1# 跳轉到 »
發表於 2015-8-7 20:24 | 顯示全部帖子
回復 1# li_hsien
參考看看!!!
1. D(Arr(i, 1)) = ""
語法 object.Item(key) [= newitem]   '可 讀取/寫入 屬性。
.item省略掉了
在寫入方面，這個與 D.add 的方法很像，不一樣的是 add 遇到添加重複的 key值 會回應一個錯誤，
而object.Item(key) [= newitem] 會取代 先前加入的 key值 的 item值

2. k = D.keys
用 k變數傳回一個陣列，該陣列包含一個 Dictionary 物件中的全部的key值。
k只能宣告成不定變數或不定陣列

TOP

no3-taco

帖子
41 
主題
0 
精華
0 
積分
79 
點名
0  
作業系統
win7 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2014-4-1 
最後登錄
2016-2-17 
2#
發表於 2015-8-10 21:39 | 顯示全部帖子
本帖最後由 no3-taco 於 2015-8-10 21:41 編輯

回復 3# li_hsien
'總之添加的key的名稱不可能會有重複，但是item可以有重複
為什麼是 =空值 ???

這不是你自己寫的程式，看你要把item的值拿來做啥用??，我覺得應該是item的值用不到所以設空值
  1. Sub 練習()
  2. Dim D As Object
  3. Set D = CreateObject("Scripting.Dictionary")
  4.     D.Add "valkey1", "item1"
  5.     D.Add "valkey2", "item2"
  6.     D.Add "valkey3", "item3"
  7.    
  8.     D.Item("valkey3") = "item5"  'valkey3已有，項目值不同取代項目值
  9.     'D.Add "valkey3", "item6"  '(自己開啟測試)已有相同key值，會傳回一個錯誤
  10.    
  11.     Debug.Print D.Item("valkey3")  '(讀取用法) object.Item(key) [= newitem]
  12.     Debug.Print D("valkey3")       '同上一列(讀取用法) object.Item(key) [= newitem]
  13.     Debug.Print
  14.     '========使用陣列列出===
  15. '    arr = D.Keys
  16. '    arr2 = D.Items
  17. '    For i = LBound(arr) To UBound(arr)
  18. '        Debug.Print arr(i), arr2(i)
  19. '    Next i

  21. End Sub
複製代碼
可參考相關連結：
http://forum.twbts.com/viewthread.php?tid=20&extra=page%3D1%26amp%3Bfilter%3Ddigest
http://www.excelpx.com/thread-145901-1-1.html

TOP

        靜思自在 : 要比誰更受誰．不要比誰更怕誰。
返回列表 上一主題