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

WYS67

lss001 发表于 2018-10-6 22:55
可把附件发上来测试！

附件太大，原因是：把代码复制进《河南快三》,数据源和结果显示不在一个工作表内。我把从74楼下载的附件存放在G盘内。但点击下拉框里的三位数时，一开始能够正确显示，随后会莫名其妙地自动打开存放在G盘的原附件，再往后就显示1004错误提示

WYS67

lss001 发表于 2018-10-6 22:55
可把附件发上来测试！

新建 Microsoft Excel 工作表.zip (412.42 KB, 下载次数: 4)

2018-10-6 23:21 上传

点击文件名下载附件

lss001

说明:如果代码要复制到另一个工作薄
则附件模块1中第7行，第39行！
小括号里面→"Sheet1"
需要修改为下拉框所在→工作表表名！
组合框下拉问题.zip (246.63 KB, 下载次数: 17)

2018-10-10 14:33 上传

点击文件名下载附件

注意:组合框已经改为手动创建！

WYS67

lss001 发表于 2018-10-6 23:34
说明:如果代码要复制到另一个工作薄
则附件模块1中第7行，第39行！
小括号里面→"Sheet1"

如下边附件：能不能点击下拉框里的指定条件，默认每次都直接显示最下面的20多行查询结果；需要查看全部时，通过拉动滚动条来实现。因为最下面的27行数据是关注重点，27行以上，只能起到参考作用，统计计算时才会用到。现在每次显示的查询结果是F5:F30，数据一多，切换到显示最下方20多行结果，有点费事。

02 点击下拉框里的号码即刻显示遗漏期数的sub lss001.zip (442.5 KB, 下载次数: 2)

2018-10-10 10:56 上传

点击文件名下载附件

WYS67

lss001 发表于 2018-10-6 23:34
说明:如果代码要复制到另一个工作薄
则附件模块1中第7行，第39行！
小括号里面→"Sheet1"

老师：点击下拉框里的指定条件后，现在的显示结果默认是显示开始的二十多行【F5开始以下，或上次显示的行号区域】，而我需要的是：点击下拉框里的指定条件后，光标就会跳跃到该指定条件查询结果的最下边【如点击113，光标就会直接跳到F1031】，显示最后20 多行的查询结果，

WYS67

lss001 发表于 2018-10-6 23:34
说明:如果代码要复制到另一个工作薄
则附件模块1中第7行，第39行！
小括号里面→"Sheet1"

老师：点击下拉框里的指定条件后，现在的显示结果默认是显示开始的二十多行【F5开始以下，或上次显示的行号区域】。     而我需要的是：点击下拉框里的指定条件后，光标就会跳跃到该指定条件查询结果的最下边【如点击155，光标就会直接跳到F1043出】，显示最后F1019:F1043的查询结果。


   02 点击下拉框里的号码即刻显示遗漏期数的sub lss001.zip (442.61 KB, 下载次数: 2)

2018-10-10 14:26 上传

点击文件名下载附件

lss001

92楼已经更新附件！

WYS67

lss001 发表于 2018-10-10 14:36
92楼已经更新附件！

老师：测试发现，您是通过修改E8实现的。而我需要的是保留95楼附件里代码的原有功能，不用修改E8，只是点击下拉框里的指定条件后，光标直接跳到最后一个查询结果，和下拉滚动条到能够看到最后的20多个数据道理一样。

lss001

←_←→_→

WYS67

lss001 发表于 2018-10-10 15:09
E8没有修改，右边滚动条往上滚动就可以看见！

上图就是显示最后数据，pc屏幕会影响行数

老师：许是我表达能力有限，无法把心中的想法清清楚楚地阐述明白，咱两个一下午都没有理会到一起。

92楼的附件，无论点击下拉框里的哪个指定条件，光标都会自动跳到E8指定的输出结果列的最大行号上。如果该指定条件对应的查询数据少，入眼就会看不到F列的任何数据，全是空格。

  而我需要的是：让光标自动跳到----点击下拉框里的任意一个指定条件，光标就会自动跳到该指定条件对应的最后那个数据所在行号上。
如：指定E8的结束行号是F3000;

点击155，155对应数据最后一个的行号在1043，则光标应该指定跳到F1043处；
点击233，233对应数据最后一个的行号在1012，则光标应该指定跳到F1012处；
点击112，112对应数据最后一个的行号在1024，则光标应该指定跳到F1024处；
    ......

总之，每次光标都是自动跳到指定条件对应数据的最后那个数据所在行号边上。