返回列表 上一主題 發帖

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

lichang

帖子
127 
主題
55 
精華
0 
積分
178 
點名
0  
作業系統
win8 
軟體版本
office2003 
閱讀權限
20 
註冊時間
2013-1-24 
最後登錄
2024-11-11 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-5-5 19:34 | 只看該作者

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

[版主管理留言]
  • GBKEE(2015/5/6 07:12): 請附檔看看

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

收藏 分享

koo

帖子
60 
主題
4 
精華
0 
積分
64 
點名
0  
作業系統
w7-32 
軟體版本
2013.2003 
閱讀權限
20 
註冊時間
2014-11-23 
最後登錄
2016-6-6 
2#
發表於 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


  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
複製代碼

TOP

koo

帖子
60 
主題
4 
精華
0 
積分
64 
點名
0  
作業系統
w7-32 
軟體版本
2013.2003 
閱讀權限
20 
註冊時間
2014-11-23 
最後登錄
2016-6-6 
3#
發表於 2015-5-6 20:40 | 只看該作者
結果複製到工作表2

TOP

lichang

帖子
127 
主題
55 
精華
0 
積分
178 
點名
0  
作業系統
win8 
軟體版本
office2003 
閱讀權限
20 
註冊時間
2013-1-24 
最後登錄
2024-11-11 
4#
發表於 2015-5-7 23:11 | 只看該作者
回復 2# koo

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

TOP

        靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。
返回列表 上一主題