帖子: 248
主題: 55
精華: 0
積分: 314
點名: 220
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2024-11-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-8-7 18:01 | 只看該作者

[發問] 陣列操作請益

請問各位大大

最近小弟進行陣列及下拉式選單的運用

上網爬文找方法

雖然可以正常運行

但是不懂部分程式的操作方式

簡要程式碼如下

Sub test()
'設定陣列範圍內容
Arr = Range("A1:A10")
Set D = CreateObject("Scripting.Dictionary")
Dim aList$
For i = 1 To UBound(Arr)
D(Arr(i, 1)) = ""
Next
k = D.keys
aList = Join(k, ",")
'建立下拉選單
With Target.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:=aList
End With
End Sub

複製代碼

請問其中的

D(Arr(i, 1)) = ""

k = D.keys

我不懂這兩部分的運作方式

煩請解惑

謝謝！

樓主熱帖

用功到世界末日那一天～～～

no3-taco

中學生 Rank: 2

帖子: 41
主題: 0
精華: 0
積分: 79
點名: 0
作業系統: win7
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2014-4-1
最後登錄: 2016-2-17

2^#

發表於 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

li_hsien

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 314
點名: 220
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2024-11-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

3^#

發表於 2015-8-10 14:18 | 只看該作者

回復 2# no3-taco

感謝no3-taco

請問關於第一點有些疑惑

1. D(Arr(i, 1)) = ""
語法 object.Item(key) [= newitem] '可讀取/寫入屬性。
依您的意思是在跑迴圈時如果碰到相同的值會自動覆蓋吧???

但請問後面的 =newitem
為什麼是 =空值 ???
不太懂這方式

請no3-taco大協助

謝謝！

用功到世界末日那一天～～～

TOP

no3-taco

中學生 Rank: 2

帖子: 41
主題: 0
精華: 0
積分: 79
點名: 0
作業系統: win7
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2014-4-1
最後登錄: 2016-2-17

4^#

發表於 2015-8-10 21:39 | 只看該作者

本帖最後由 no3-taco 於 2015-8-10 21:41 編輯

回復 3# li_hsien
'總之添加的key的名稱不可能會有重複，但是item可以有重複

為什麼是 =空值 ???

這不是你自己寫的程式，看你要把item的值拿來做啥用??，我覺得應該是item的值用不到所以設空值

Sub 練習()
Dim D As Object
Set D = CreateObject("Scripting.Dictionary")
D.Add "valkey1", "item1"
D.Add "valkey2", "item2"
D.Add "valkey3", "item3"
D.Item("valkey3") = "item5" 'valkey3已有，項目值不同取代項目值
'D.Add "valkey3", "item6" '(自己開啟測試)已有相同key值，會傳回一個錯誤
Debug.Print D.Item("valkey3") '(讀取用法) object.Item(key) [= newitem]
Debug.Print D("valkey3") '同上一列(讀取用法) object.Item(key) [= newitem]
Debug.Print
'========使用陣列列出===
' arr = D.Keys
' arr2 = D.Items
' For i = LBound(arr) To UBound(arr)
' Debug.Print arr(i), arr2(i)
' Next i
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

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

5^#

發表於 2015-8-11 06:40 | 只看該作者

回復 3# li_hsien
newitem 的詮釋：
Optional.
Used for Dictionary object only; no application for collections.
If provided, newitem is the new value associated with the specified key.
If key is not found when changing an item, a new key is created with the specified newitem.

TOP

li_hsien