返回列表 上一主題 發帖

[發問] 利用下拉式選單選取資料，並進行進階篩選

ChuckBucket

帖子
10 
主題
2 
精華
0 
積分
50 
點名
0  
作業系統
WIN10 
軟體版本
Office 20xx 
閱讀權限
20 
性別
男 
來自
桃園市 
註冊時間
2019-2-21 
最後登錄
2022-9-30 

論壇贊助勳章
1# 跳轉到 »
發表於 2019-4-12 14:38 | 顯示全部帖子
回復 2# Hsieh

哈囉Hsieh大，
我在練習此帖的過程發現一些問題。
當中這段代碼想要請教您 :
  1. Private Sub UserForm_Initialize()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. With 工作表1
  4.    For Each a In .Range(.[D2], .[D2].End(xlDown))
  5.       d(a.Text) = ""
  6.    Next
  7. End With
  8. ComboBox1.List = d.keys
  9. End Sub
複製代碼
我懂這一段的用意是要將「要查詢的不重複項目」帶進下拉式選單的選項項目；
但是在 For Each a In .Range(.[D2], .[D2].End(xlDown))和Next中的d(a.Text) = ""
我不太了解為何要將所有項目的文字變成""，這段撰寫的緣由是來自何處？
還勞煩您幫忙解惑。

TOP

ChuckBucket

帖子
10 
主題
2 
精華
0 
積分
50 
點名
0  
作業系統
WIN10 
軟體版本
Office 20xx 
閱讀權限
20 
性別
男 
來自
桃園市 
註冊時間
2019-2-21 
最後登錄
2022-9-30 

論壇贊助勳章
2#
發表於 2019-4-14 21:37 | 顯示全部帖子
回復 12# 准提部林
Hi 准大，
感謝你的回覆。
所以Hsieh大在Private sub裏頭For each裏頭的寫法，d(a.text) = ""其實等同於d.add  a , ""嗎？
我能這樣理解嗎？

TOP

        靜思自在 : 吃苦了苦、苦盡廿來，享福了福、福盡悲來。
返回列表 上一主題