利用下拉式選單選取資料，並進行進階篩選 - Excel程式區

返回列表下一主題上一主題發帖

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

ChuckBucket

中學生 Rank: 2

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

論壇贊助勳章

11^# 跳轉到 »

發表於 2019-4-12 14:38 | 只看該作者

回復 2# Hsieh

哈囉Hsieh大，
我在練習此帖的過程發現一些問題。
當中這段代碼想要請教您 :

Private Sub UserForm_Initialize()
Set d = CreateObject("Scripting.Dictionary")
With 工作表1
For Each a In .Range(.[D2], .[D2].End(xlDown))
d(a.Text) = ""
Next
End With
ComboBox1.List = d.keys
End Sub

複製代碼

我懂這一段的用意是要將「要查詢的不重複項目」帶進下拉式選單的選項項目；
但是在 For Each a In .Range(.[D2], .[D2].End(xlDown))和Next中的d(a.Text) = ""
我不太了解為何要將所有項目的文字變成""，這段撰寫的緣由是來自何處？
還勞煩您幫忙解惑。

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

12^#

發表於 2019-4-13 10:52 | 只看該作者

本帖最後由准提部林於 2019-4-13 10:54 編輯

回復 11# ChuckBucket

字典檔 >> 利用"KEY"值, 帶一個"ITEM"
d(a.Text) = ""
a.Text 是 KEY
"" 是 ITEM, 這ITEM可為任何型態資料

因只取不重覆, 只用得到KEY, 不做其它處理,
所以ITEM用""空字符即可(也可用其它字符或數字)
d(a.Text) = "A"
d(a.Text) = 1
都是可以達到目的, 不過在這個需求上,"A"或1都沒有意義
=============================
d(a.Text) = d(a.Text) + 1 這個就可以累計 a.Text 的次數
其它用途可多看幾個範例帖吧!!!

TOP

ChuckBucket