標題: [發問] ListBox取值篩選 [打印本頁]

---

作者: wang077    時間: 2021-7-8 15:36     標題: ListBox取值篩選

[attach]33536[/attach]
我在listbox上選了2個篩選值
[attach]33537[/attach]
可是篩選結果只有抓到一個值
我的程式碼:

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    時間: 2021-7-9 07:21

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

回復 1# wang077

---

作者: wang077    時間: 2021-7-9 08:30

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

---

作者: singo1232001    時間: 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 裡面的變化

---

作者: wang077    時間: 2021-7-9 13:17

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)