[發問] 如何使用表單-下拉式選單做條件篩選結果??

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2015-5-5 19:34 | 只看該作者

[版主管理留言]

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

4^#

發表於 2015-5-7 23:11 | 只看該作者

回復 2# koo

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

3^#

發表於 2015-5-6 20:40 | 只看該作者

結果複製到工作表2

2^#

發表於 2015-5-6 20:36 | 只看該作者

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

Private Sub UserForm_Initialize()
Dim A As Range
ComboBox1.Clear
Set d = CreateObject("Scripting.Dictionary")
With Sheets("工作表1")
.Activate
For Each A In .Range("A2", .[A2].End(xlDown))
d(A.Value) = IIf(d(A.Value) = "", A.Offset(, 2).Value, d(A.Value) & "," & A.Offset(, 2))
Next
ComboBox1.List = d.keys
End With
ComboBox1.Value = "選取"
End Sub
Private Sub CommandButton1_Click()
Sheets("工作表1").AutoFilterMode = False
kx = ComboBox1.Value
With Sheets("工作表1")
If kx <> "選取" And kx <> "" Then .UsedRange.AutoFilter Field:=1, Criteria1:=kx
Sheets("工作表2").Cells.Clear
.UsedRange.Copy Sheets("工作表2").Range("A1")
End With
Sheets("工作表1").AutoFilterMode = False
End Sub

複製代碼

靜思自在 : 慈悲沒有敵人，智慧不起煩惱。