VBA 使用窗体三个条件的筛选

421984386

窗体实现多条件查找：选择 条件1 和 条件2 以及 条件3 后,textbox1根据sheets("辅助")表中B列的数据自动填写编号。谢谢！

421984386

附件在这里

microyip

想问问，不用窗体，你能实现多条件查找吗？
不要不会走就学跑

风中稻草人

microyip 发表于 2019-10-9 08:21
想问问，不用窗体，你能实现多条件查找吗？
不要不会走就学跑

不能实现么？

microyip

风中稻草人 发表于 2019-10-9 08:31
不能实现么？

可以实现的，我只是问问他是来学习还是找人替他工作

421984386

字典不太会用，附件两个条件查询是别人的，如果再加个条件该怎么写？
的确是工作，如果太复杂就算了，谢谢

hzruziniu

风中稻草人 发表于 2019-10-9 08:31
不能实现么？

这是一个窗体三级联动下拉，代码如下

1. Option Explicit
   
2. Dim arr
   
3. Dim d As Object
   
4. Dim dic As Object
   
5. 
   
6. Private Sub ComboBox1_Change()
   
7.     If ComboBox3.Text = Empty Or ComboBox1.Text = Empty Then Exit Sub
   
8.     With ComboBox2
   
9.         .Clear
   
10.         .List = Split(d(ComboBox3.Text)(ComboBox1.Text), "!")
    
11.         .ListIndex = -1
    
12.     End With
    
13.      Me.TextBox1.Text = ""
    
14. End Sub
    
15. 
    
16. Private Sub ComboBox2_Change()
    
17.     If ComboBox3.Text = Empty Or ComboBox1.Text = Empty Or ComboBox2.Text = Empty Then Exit Sub
    
18.     Dim j&
    
19.     Dim findrow As Long
    
20.     findrow = dic(ComboBox3.Text & ComboBox1.Text & ComboBox2.Text)
    
21.     Me.TextBox1.Text = arr(findrow, 2)
    
22. End Sub
    
23. 
    
24. Private Sub ComboBox3_Change()
    
25.     If ComboBox3.Text = Empty Then Exit Sub
    
26.     With ComboBox1
    
27.         .Clear
    
28.         .List = d(ComboBox3.Text).keys
    
29.         .ListIndex = 0
    
30.         Me.TextBox1.Text = ""
    
31.    End With
    
32. End Sub
    
33. 
    
34. 
    
35. Private Sub UserForm_Initialize()
    
36.    Dim R&, i&
    
37.    With Sheet1
    
38.       R = .Range("A65536").End(3).Row
    
39.     '  If R < 2 Then MsgBox "没有可供查询单数据！": Exit Sub
    
40.       arr = .Range("A1:D" & R).Value
    
41.    End With
    
42.    Set d = CreateObject("Scripting.Dictionary")
    
43.    Set dic = CreateObject("Scripting.Dictionary")
    
44.    For i = 1 To UBound(arr)
    
45.       If Not d.exists(arr(i, 1)) Then Set d(arr(i, 1)) = CreateObject("Scripting.Dictionary")
    
46.       If Not d(arr(i, 1)).exists(arr(i, 3)) Then
    
47.         d(arr(i, 1))(arr(i, 3)) = arr(i, 4)
    
48.       Else
    
49.         d(arr(i, 1))(arr(i, 3)) = d(arr(i, 1))(arr(i, 3)) & "!" & arr(i, 4)
    
50.       End If
    
51.       dic(arr(i, 1) & arr(i, 3) & arr(i, 4)) = i
    
52.    Next
    
53.    ComboBox3.List = d.keys
    
54.    ComboBox3.ListIndex = 0
    
55. End Sub
    

复制代码

hzruziniu

Book1.rar (15.22 KB, 下载次数: 51)

2019-10-9 10:26 上传

点击文件名下载附件

421984386

hzruziniu 发表于 2019-10-9 10:27

谢谢  非常感谢  
昨天研究半夜也没搞懂

421984386

谢谢提示    三级联动   我自己修改的