12
返回列表 上一主題 發帖

抓取篩選條件的值匯入listbox

wang077

帖子
104 
主題
10 
精華
0 
積分
114 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2021-6-21 
最後登錄
2021-8-24 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2021-7-7 16:20 | 只看該作者

抓取篩選條件的值匯入listbox


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

s3526369
　暱稱: 大榮

中學生Rank: 2

帖子
45 
主題
3 
精華
0 
積分
72 
點名
0  
作業系統
WIN7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2018-2-12 
最後登錄
2024-3-9 
19#
發表於 2021-7-9 14:50 | 只看該作者
回復 18# wang077
其他欄抓取 就是改
這目前是F欄 For Each A In .Range("F2", .[f5000].End(xlUp))
改成A欄的話就把紅色部分改成A For Each A In .Range("A2", .[a5000].End(xlUp))

TOP

wang077

帖子
104 
主題
10 
精華
0 
積分
114 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2021-6-21 
最後登錄
2021-8-24 
18#
發表於 2021-7-9 14:06 | 只看該作者
回復 16# s3526369
大大，如果有其他欄位也要抓取呢
是不是只要把d改掉?
因為我把d改掉，他卻抓不到型態

TOP

wang077

帖子
104 
主題
10 
精華
0 
積分
114 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2021-6-21 
最後登錄
2021-8-24 
17#
發表於 2021-7-9 13:53 | 只看該作者
回復 16# s3526369
解決了，剛剛不小心重複給combobox=crr了
謝謝大大

TOP

s3526369
　暱稱: 大榮

中學生Rank: 2

帖子
45 
主題
3 
精華
0 
積分
72 
點名
0  
作業系統
WIN7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2018-2-12 
最後登錄
2024-3-9 
16#
發表於 2021-7-9 12:39 | 只看該作者
回復 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

  9.   Next
  10.     For i = 1 To d.Count
  11.     ComboBox1.AddItem d(Application.Small(d.keys, i)) '排序
  12.     Next
  13. End With

  15. End Sub
複製代碼

TOP

s3526369
　暱稱: 大榮

中學生Rank: 2

帖子
45 
主題
3 
精華
0 
積分
72 
點名
0  
作業系統
WIN7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2018-2-12 
最後登錄
2024-3-9 
15#
發表於 2021-7-9 12:34 | 只看該作者
回復 14# wang077
你寄修改檔案給我幫你看

TOP

wang077

帖子
104 
主題
10 
精華
0 
積分
114 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2021-6-21 
最後登錄
2021-8-24 
14#
發表於 2021-7-9 11:21 | 只看該作者
回復 13# s3526369
一樣不行，直接中斷程式

TOP

s3526369
　暱稱: 大榮

中學生Rank: 2

帖子
45 
主題
3 
精華
0 
積分
72 
點名
0  
作業系統
WIN7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2018-2-12 
最後登錄
2024-3-9 
13#
發表於 2021-7-9 10:59 | 只看該作者
回復 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

  9.     For i = 1 To d.Count
  10.     ComboBox1.AddItem d(Application.Small(d.keys, i)) '排序
  11.     Next
複製代碼
你改用這個試看看

TOP

wang077

帖子
104 
主題
10 
精華
0 
積分
114 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2021-6-21 
最後登錄
2021-8-24 
12#
發表於 2021-7-9 09:35 | 只看該作者
回復 11# s3526369
重複.JPG
程式碼.JPG
還是一樣耶

TOP

s3526369
　暱稱: 大榮

中學生Rank: 2

帖子
45 
主題
3 
精華
0 
積分
72 
點名
0  
作業系統
WIN7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2018-2-12 
最後登錄
2024-3-9 
11#
發表於 2021-7-9 08:57 | 只看該作者
本帖最後由 s3526369 於 2021-7-9 08:58 編輯

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

TOP

        靜思自在 : 有多少力量就做多少事，不要心存等待，等待才會落空。
12
返回列表 上一主題