返回列表 上一主題 發帖

[發問] ListBox取值篩選

wang077

帖子
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個篩選值

可是篩選結果只有抓到一個值
我的程式碼:
  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), Operator:=xlOr, Criteria2:=ListBox2.List(i)
  5. End If
  6. Next
  7. End Sub
複製代碼
麻煩各位大神了
收藏 分享

singo1232001
　暱稱: 熱狗慶

中學生Rank: 2

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

論壇榮譽勳章論壇贊助勳章
2#
發表於 2021-7-9 07:21 | 只看該作者
本帖最後由 singo1232001 於 2021-7-9 07:22 編輯

回復 1# wang077

自動篩選.zip (24.96 KB)

TOP

wang077

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

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

論壇榮譽勳章論壇贊助勳章
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

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

        靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。
返回列表 上一主題