抓取篩選條件的值匯入listbox

wang077

下載 (22.33 KB)

2021-7-7 16:17

請問我如何將每個欄位的篩選條件放進ListBox來篩選
P1.zip (23.57 KB)

下載次數: 3

2021-7-7 16:20

s3526369

回復 18# wang077
其他欄抓取 就是改
這目前是F欄 For Each A In .Range("F2", .[f5000].End(xlUp))
改成A欄的話就把紅色部分改成A For Each A In .Range("A2", .[a5000].End(xlUp))

wang077

回復 16# s3526369
大大，如果有其他欄位也要抓取呢
是不是只要把d改掉?
因為我把d改掉，他卻抓不到型態

wang077

回復 16# s3526369
解決了，剛剛不小心重複給combobox=crr了
謝謝大大

s3526369

回復 14# wang077

1. Private Sub CommandButton2_Click()
   
2.     Dim crr
   
3.     Dim i As Long
   
4. Set d = CreateObject("Scripting.Dictionary")
   
5. With Sheets("Sheet1")
   
6.    For Each A In .Range("F2", .[f5000].End(xlUp))
   
7.    d(CDbl(A.Value)) = A.Value
   
8. 
   
9.   Next
   
10.     For i = 1 To d.Count
    
11.     ComboBox1.AddItem d(Application.Small(d.keys, i)) '排序
    
12.     Next
    
13. End With
    
14. 
    
15. End Sub

複製代碼

下載 (172.65 KB)
顯示日期

2021-7-9 12:39

下載 (205.31 KB)
顯示數字

2021-7-9 12:39

s3526369

回復 14# wang077
你寄修改檔案給我幫你看

wang077

回復 13# s3526369
一樣不行，直接中斷程式

s3526369

回復 12# wang077

1.     Dim crr
   
2.     Dim i As Long
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. With Sheets("Sheet1")
   
5.    For Each A In .Range("F2", .[f5000].End(xlUp))
   
6.    d(CDbl(A.Value)) = A.Value
   
7.   Next
   
8. 
   
9.     For i = 1 To d.Count
   
10.     ComboBox1.AddItem d(Application.Small(d.keys, i)) '排序
    
11.     Next

複製代碼

你改用這個試看看

wang077

回復 11# s3526369

下載 (11.04 KB)

2021-7-9 09:34

下載 (10.77 KB)

2021-7-9 09:35

還是一樣耶

s3526369

回復 9# wang077
回復 10# wang077
For Each a In .Range("A2", .[a2].End(xlDown)) 'End(xlDown)要改成End(xlUp)