返回列表下一主題上一主題發帖

[發問] ListBox取值篩選

wang077

中學生 Rank: 2

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

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

[發問] ListBox取值篩選

我在listbox上選了2個篩選值

可是篩選結果只有抓到一個值
我的程式碼:

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), Operator:=xlOr, Criteria2:=ListBox2.List(i)
End If
Next
End Sub

複製代碼

麻煩各位大神了

樓主熱帖

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 353
主題: 5
精華: 0
積分: 386
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-4-18

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2021-7-9 07:21 | 只看該作者

本帖最後由 singo1232001 於 2021-7-9 07:22 編輯

回復 1# wang077

自動篩選.zip (24.96 KB)

TOP

wang077

中學生 Rank: 2

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

3^#

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

回復 2# singo1232001
感謝大神幫忙
請教一下
ReDim Preserve ar(w)
這行是甚麼意思

TOP

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 353
主題: 5
精華: 0
積分: 386
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-4-18

論壇榮譽勳章論壇贊助勳章

4^#

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

本帖最後由 singo1232001 於 2021-7-9 11:11 編輯

回復 3# wang077

寫個測試程式分析看看
SUB TEST()

dim ar1
redim ar1(1)
ar1(0) = 1
redim ar1(1)
redim ar1(2)

dim ar2
redim ar2(1)
ar2(0) = 1
redim preserve ar2(1)
redim preserve ar2(2)

End sub

用逐行新增監看式
一步一步檢查ar1 跟ar2 裡面的變化

TOP

wang077

中學生 Rank: 2

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

5^#

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

回復 4# singo1232001
了解了，謝謝大神幫忙和分享

TOP

靜思自在 : 不怕事多，只怕多事。

返回列表下一主題上一主題