点击下拉框里指定条件，便能显示查询结果的VBA

tylsj740320

看看是否可行，增加了一个SHEET

WYS67

tylsj740320 发表于 2018-9-27 11:55
看看是否可行，增加了一个SHEET

老师：我需要的是：点击下拉框里11~20的任一条件，F5:F15000里就会显示该条件对应于数据区域B列的所有数据。
您试着点击一下下拉框里的任一数字，看看F5:F15000里显示的数据有没有变化？

WYS67

恳请老师们帮帮忙！

WYS67

恳请老师们帮帮忙！

hzruziniu

1. 工作表代码生成字典不重复值下拉框到表2
   
2. 再由表单下拉控件定义名称动态引用
   
3. Private Sub Worksheet_Activate()
   
4.     Dim arr1()
   
5.     Dim d, k, i%, j%, c
   
6.     Set d = CreateObject("Scripting.Dictionary")
   
7.     Set Sht1 = Sheet1
   
8.     Myr = Sht1.[a83836].End(xlUp).Row
   
9.     Arr = Sht1.Range("a5:a" & Myr)
   
10.     For i = 1 To UBound(Arr)
    
11.         d(Arr(i, 1)) = ""
    
12.     Next
    
13.     k = d.keys
    
14.     Sheet2.Range("a1").Resize(d.Count, 1) = Application.Transpose(k)
    
15.     Sheet2.Range("a1").Resize(d.Count).Sort Key1:=Sheet2.Range("a1"), Order1:=1, Header:=2
    
16. End Sub
    
17. ‘当下拉表单控件引用数据后生成需引用B列的对应数据
    
18. Sub yyyy()
    
19.     Range("f5:f83836") = ""
    
20.     s = Sheet2.Range("a" & Range("f1"))
    
21.     Range("f4") = s
    
22.     For i = Range("e7") To Range("e8")
    
23.         If Cells(i, 1) = s And Cells(i, 2) <> "" Then
    
24.             n = n + 1
    
25.             Cells(n + 4, 6) = Cells(i, 2)
    
26.         End If
    
27.     Next
    
28. End Sub

复制代码

hzruziniu

编写下拉框点击条件便显示对应结果的VBA代码1.rar (33 KB, 下载次数: 70)

2018-9-27 16:30 上传

点击文件名下载附件

WYS67

hzruziniu 发表于 2018-9-27 16:28

老师：我把代码复制进模块1，点击下拉框的倒三角按钮，怎么没有反应？麻烦老师作个附件参考学习。

hzruziniu

WYS67 发表于 2018-9-27 16:37
老师：我把代码复制进模块1，点击下拉框的倒三角按钮，怎么没有反应？麻烦老师作个附件参考学习。

你打开工作表后需要启用宏

WYS67

hzruziniu 发表于 2018-9-27 16:30

老师：就是这个样子的！

嘿嘿，原先没有经历过， 不好意思，我把两段代码都存放在模块1里了。原来上边那段代码需要存放在sheet1才可以啊！
还有数据源和输出列的表名，列标，开始行号，结束行号都必须调用E1:E8指定的数字！这样您写的代码只能在指定表名【表名为空，默认为本工作表】、指定列标、指定开始和结束行号的指定区域内计算和显示，而不会影响我在指定区域以外进行其他统计计算。

   并且，需要变更输入、显示范围时，只需修改E1:E8的自定义参数即可！

看不懂您代码里写明的83836，以及列标、行号，是不是E1:E8里指定的参数不起作用啊？我把E6修改为G，代表输出结果必须显示在E6:E8指定的G5:G15000里，可为什么还是显示在F列？

同理，E1:E5指定的数据源表名，条件列标，数据列标，开始行号和结束行号也是在限定范围内的。