- 帖子
- 2839
- 主題
- 10
- 精華
- 0
- 積分
- 2895
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2025-2-15
|
本帖最後由 准提部林 於 2016-1-1 11:16 編輯
回復 12# yen956
d(a.Value) = "" ＿＿key 為 a.value ， item 為 空字符
key者，可稱其為〔索引值〕，具〔唯一不重覆〕性，
若只想取出不重覆項目，item 就不須處理，所以給個任意資料，一般給空字符即可！
要注意：１．文字格式與數值格式的純數字，或英文的大．小寫，放在 key 中是視為不同的！
２．key 的來源若為〔儲存格參照〕，必須使用 rng.value 或 rng.text 或 rng & "" 方式，
這時就涉及〔數值〕與〔文字〕格式的問題，依需求去決定其格式！
例如：Ａ１為〔日期〕2016/01/01，自訂格式為〔YYYY/MM/DD]，亦即其值為〔數值〕42370，只是格式看起來為日期，
那麼，[A1].Value 為 2016/1/1 等同 42370
[A1].Text 則為〔文字〕2016/01/01
[A1] & "" 又為〔文字〕2016/1/1
Sub 測試()
Set xD = CreateObject("Scripting.Dictionary")
xD([A1].Value) = ""
xD([A1].Text) = ""
xD([A1] & "") = ""
xD(42370) = ""
MsgBox xD.Count '只有３而非４個，因第１及第４〔值〕相同
End Sub
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
至放 item 因各種需求，可做很多的變化，一時說不清，可多找找更多實際範例看看∼∼
|
|
發表於 2016-1-1 11:13
| 