標題: [發問] 如何使用表單-下拉式選單做條件篩選結果?? [打印本頁]

---

作者: lichang    時間: 2015-5-5 19:34     標題: 如何使用表單-下拉式選單做條件篩選結果??

請問各位大大，
我現在想做一個下拉式選單功能(有三個條件須選擇)(如附件圖片)
我需要從"條件1"先選擇A或B或C
再從"條件2"選擇剩下符合的條件
最後"條件3"選擇剩下可選擇的條件
之後才送出結果

[attach]20873[/attach]

---

作者: koo    時間: 2015-5-6 20:36

收集了一個其餘請自行擴充搞定

1. Private Sub UserForm_Initialize()
   
2.     Dim A As Range
   
3.     ComboBox1.Clear
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     With Sheets("工作表1")
   
6.         .Activate
   
7.         For Each A In .Range("A2", .[A2].End(xlDown))
   
8.           d(A.Value) = IIf(d(A.Value) = "", A.Offset(, 2).Value, d(A.Value) & "," & A.Offset(, 2))
   
9.         Next
   
10.         ComboBox1.List = d.keys
    
11.     End With
    
12.     ComboBox1.Value = "選取"
    
13. End Sub
    
14. 
    
15. 
    
16. Private Sub CommandButton1_Click()
    
17.     Sheets("工作表1").AutoFilterMode = False
    
18.     kx = ComboBox1.Value
    
19.         With Sheets("工作表1")
    
20.             If kx <> "選取" And kx <> "" Then .UsedRange.AutoFilter Field:=1, Criteria1:=kx
    
21.             Sheets("工作表2").Cells.Clear
    
22.             .UsedRange.Copy Sheets("工作表2").Range("A1")
    
23.         End With
    
24.         Sheets("工作表1").AutoFilterMode = False
    
25. End Sub

複製代碼

[attach]20882[/attach]

---

作者: koo    時間: 2015-5-6 20:40

結果複製到工作表2

[attach]20883[/attach]

---

作者: lichang    時間: 2015-5-7 23:11

回復 2# koo

謝謝你的指導，我再測試看看!!

---

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