返回列表 上一主題 發帖

[發問] 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
複製代碼
麻煩各位大神了
收藏 分享

wang077

帖子
104 
主題
10 
精華
0 
積分
114 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2021-6-21 
最後登錄
2021-8-24 
2#
發表於 2021-7-9 08:30 | 顯示全部帖子
回復 2# singo1232001
感謝大神幫忙
請教一下
ReDim Preserve ar(w)
這行是甚麼意思

TOP

wang077

帖子
104 
主題
10 
精華
0 
積分
114 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2021-6-21 
最後登錄
2021-8-24 
3#
發表於 2021-7-9 13:17 | 顯示全部帖子
回復 4# singo1232001
了解了，謝謝大神幫忙和分享

TOP

        靜思自在 : 心中常存善解、包容、感思、知足、惜福。
返回列表 上一主題