返回列表 上一主題 發帖

抓取篩選條件的值匯入listbox

抓取篩選條件的值匯入listbox


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

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

回復 1# wang077
  1. Set D = CreateObject("Scripting.Dictionary")
  2. With Sheets("Sheet1")
  3.         .Activate
  4.    For Each a In .Range(.[a2], .[a2].End(xlDown))
  5.    D(a.Value) = ""
  6.    Next
  7. End With
  8. ComboBox1.List = D.keys
複製代碼
我這個是用下式選單
你可以寄檔案給我幫你看
s6369954709@yahoo.com.tw

TOP

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

TOP

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

回復 3# wang077
  1.     Dim crr
  2.     Dim i As Long
  3. Set D = CreateObject("Scripting.Dictionary")
  4. With Sheets("Sheet1")
  5.         .Activate
  6.    For Each a In .Range(.[a2], .[a2].End(xlDown))
  7.    D(a.Value) = ""
  8.    Next
  9. End With
  10. crr = D.keys  
  11. '================================================================排序
  12. For i = 0 To UBound(crr) - 1
  13.      k = i
  14.        For j = i + 1 To UBound(crr)
  15.            If crr(k) > crr(j) Then k = j '升序排列用">",降序排列用"<"
  16.        Next
  17.        If k > i Then
  18.           X = crr(i)
  19.           crr(i) = crr(k)
  20.           crr(k) = X
  21.        End If
  22. Next
  23.             
  24. ComboBox1.List = crr
複製代碼

TOP

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

TOP

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

TOP

回復 6# s3526369

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

TOP

本帖最後由 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

TOP

回復 8# s3526369
有了,感謝大神幫助
另外我想請教一下
如果我要抓取的格式是日期
如果按照這樣抓,好像抓不到格式耶

TOP

本帖最後由 wang077 於 2021-7-9 08:40 編輯

回復 8# s3526369
大大,剛剛看了一下
它好像會抓到重複值耶
重複.JPG

TOP

        靜思自在 : 君子如水,隨方就圓,無處不自在。
返回列表 上一主題