wang077

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

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2021-6-28 16:25 | 只看該作者

VBA 抓取ListBox中的內容

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

樓主熱帖

wang077

中學生 Rank: 2

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

62^#

發表於 2021-7-12 07:57 | 只看該作者

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

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2023-9-21

61^#

發表於 2021-7-9 18:32 | 只看該作者

回復 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

TOP

wang077

中學生 Rank: 2

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

60^#

發表於 2021-7-9 11:28 | 只看該作者

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

TOP

wang077

中學生 Rank: 2

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

59^#

發表於 2021-7-8 14:19 | 只看該作者

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

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2023-9-21

58^#

發表於 2021-7-8 13:31 | 只看該作者

回復 56# wang077

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

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

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2023-9-21

57^#

發表於 2021-7-8 13:31 | 只看該作者

回復 56# wang077

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

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

TOP

wang077

中學生 Rank: 2

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

56^#

發表於 2021-7-8 11:04 | 只看該作者

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

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

複製代碼