抓取篩選條件的值匯入listbox

帖子: 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)

樓主熱帖

　暱稱: 大榮

帖子: 45
主題: 3
精華: 0
積分: 72
點名: 0
作業系統: WIN7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2018-2-12
最後登錄: 2024-7-15

2^#

發表於 2021-7-7 16:44 | 只看該作者

本帖最後由 s3526369 於 2021-7-7 16:46 編輯

回復 1# wang077

Set D = CreateObject("Scripting.Dictionary")
With Sheets("Sheet1")
.Activate
For Each a In .Range(.[a2], .[a2].End(xlDown))
D(a.Value) = ""
Next
End With
ComboBox1.List = D.keys

複製代碼

我這個是用下式選單
你可以寄檔案給我幫你看
[email protected]

帖子: 104
主題: 10
精華: 0
積分: 114
點名: 0
作業系統: Windows 10
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2021-6-21
最後登錄: 2021-8-24

3^#

發表於 2021-7-7 17:27 | 只看該作者

回復 2# s3526369
感謝幫忙，有辦法讓它從小到大排序嗎

　暱稱: 大榮

帖子: 45
主題: 3
精華: 0
積分: 72
點名: 0
作業系統: WIN7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2018-2-12
最後登錄: 2024-7-15

4^#

發表於 2021-7-8 08:18 | 只看該作者

本帖最後由 s3526369 於 2021-7-8 08:20 編輯

回復 3# wang077

Dim crr
Dim i As Long
Set D = CreateObject("Scripting.Dictionary")
With Sheets("Sheet1")
.Activate
For Each a In .Range(.[a2], .[a2].End(xlDown))
D(a.Value) = ""
Next
End With
crr = D.keys
'================================================================排序
For i = 0 To UBound(crr) - 1
k = i
For j = i + 1 To UBound(crr)
If crr(k) > crr(j) Then k = j '升序排列用">"，降序排列用"<"
Next
If k > i Then
X = crr(i)
crr(i) = crr(k)
crr(k) = X
End If
Next
ComboBox1.List = crr

複製代碼

帖子: 104
主題: 10
精華: 0
積分: 114
點名: 0
作業系統: Windows 10
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2021-6-21
最後登錄: 2021-8-24

5^#

發表於 2021-7-8 08:49 | 只看該作者

回復 4# s3526369
感謝大大，解決我的疑惑

　暱稱: 大榮

帖子: 45
主題: 3
精華: 0
積分: 72
點名: 0
作業系統: WIN7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2018-2-12
最後登錄: 2024-7-15

6^#

發表於 2021-7-8 08:59 | 只看該作者

回復 5# wang077
不用客氣有什麼問題可以再問

帖子: 104
主題: 10
精華: 0
積分: 114
點名: 0
作業系統: Windows 10
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2021-6-21
最後登錄: 2021-8-24

7^#

發表於 2021-7-8 09:36 | 只看該作者

回復 6# s3526369

如果像這樣，F那欄空白幾格後，下面的抓不到了
範例檔案已寄到你的mail

　暱稱: 大榮

帖子: 45
主題: 3
精華: 0
積分: 72
點名: 0
作業系統: WIN7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2018-2-12
最後登錄: 2024-7-15

8^#

發表於 2021-7-9 08:16 | 只看該作者

本帖最後由 s3526369 於 2021-7-9 08:17 編輯

回復 7# wang077 Dim crr
Dim i As Long
Set D = CreateObject("Scripting.Dictionary")
With Sheets("Sheet1")
      .Activate
For Each a In .Range("A2", .[a2].End(xlDown))  '把[a2]改成[a1000]或者是[a2000] 格數可以自行設定
D(a.Value) = ""
Next
End With
crr = D.keys
'================================================================排序
For i = 0 To UBound(crr) - 1
   k = i
   For j = i + 1 To UBound(crr)
         If crr(k) > crr(j) Then k = j '升序排列用">"，降序排列用"<"
   Next
   If k > i Then
      X = crr(i)
      crr(i) = crr(k)
      crr(k) = X
   End If
Next

ComboBox1.List = crr