VBA 抓取ListBox中的內容

wang077

在ListBox中我已經新增好幾筆item
現在我要把ListBox內的資料當做篩選條件，而且一次篩選多筆
請問我該怎麼寫?

下載 (14.74 KB)

2021-6-28 16:23

下載 (10.41 KB)

2021-6-28 16:23

wang077

回復 61# samwang
測試過了，沒問題，謝謝大大

samwang

回復 59# wang077

請測試看看，謝謝

Private Sub CommandButton5_Click()
Dim ar2, s%
s = 0: ReDim ar2(s)
With Sheets("總表").Range("a2:u" & [a65536].End(3).Row)
    Sheets(1).AutoFilterMode = False
    For i = 0 To ListBox2.ListCount - 1
        If ListBox2.Selected(i) = True Then
            ReDim Preserve ar2(s)
            ar2(s) = CStr(ListBox2.List(i))
            s = s + 1
        End If
    Next
    .AutoFilter Field:=7, Criteria1:=ar2, Operator:=xlFilterValues
End With
Set ar2 = Nothing
End Sub

wang077

回復 34# samwang
大大，我現在把它丟進combobox裡
但我選了其中一個，卻會全部都叫出來

wang077

回復 58# samwang
我的listbox裡面已經有篩選條件了
但我目前只能Select到1個值來篩選
我的問題是怎麼從listbox裡Select多個值來篩選

下載 (20.42 KB)

2021-7-8 14:17

下載 (9.78 KB)

2021-7-8 14:19

samwang

回復 56# wang077

我現在做了一個listbox來裝篩選條件，但是只能抓到一個來篩選
有辦法抓多個條件來篩選嗎

不好意思，可以解釋清楚一點嗎? listbox裝篩選後的結果嗎?
但只能抓一個來篩選??
有辦法抓多個條件來篩選嗎??

samwang

回復 56# wang077

我現在做了一個listbox來裝篩選條件，但是只能抓到一個來篩選
有辦法抓多個條件來篩選嗎

不好意思，可以解釋清楚一點嗎? listbox裝篩選後的結果嗎?
但只能抓一個來篩選??

wang077

回復 54# samwang
大大，不好意思又來麻煩你了
我現在做了一個listbox來裝篩選條件，但是只能抓到一個來篩選
有辦法抓多個條件來篩選嗎

1. Private Sub CommandButton5_Click()
   
2. For i = 0 To ListBox2.ListCount - 1
   
3.         If ListBox2.Selected(i) = True Then
   
4. Worksheets("總表").Range("$A$2:$T$2414").AutoFilter field:=7, Criteria1:="=" & ListBox2.List(i)
   
5. End If
   
6. Next
   
7. End Sub

複製代碼

彙整_0708.zip (464.45 KB)

下載次數: 5

2021-7-8 11:05

wang077

回復 54# samwang
彙整_0708.zip (469.76 KB)

下載次數: 3

2021-7-8 07:54

感覺會有更好的辦法，只是目前我只做到這樣而已

samwang

回復 53# wang077


可以提供檔案，讓我學習一下嗎? 謝謝