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

lss001 · 发表于 2018-9-28 10:25

WYS67 发表于 2018-9-28 10:20
关闭后重新打开40楼的那个附件，F5:F20又可以自动刷新数据了；但点击按钮里的数字后，F21:F22【已在限定 ...

请按楼上更正，保存重启！

WYS67 · 发表于 2018-9-28 10:39

本帖最后由 WYS67 于 2018-9-28 10:46 编辑

lss001 发表于 2018-9-28 10:18
把33楼旧附件中→Cells(5, j).Resize(ar(8, 1)) = ""
改→Cells(5, j).Resize(ar(8, 1) - 4) = ""

改成Cells(5, j).Resize(ar(8, 1) - 4) = ""后，原先的问题解决了，但又出现了新问题：

如截图：E8原先指定为20，单击条件16，F16:F20依次显示为4、1、9、3、4；修改E8指定的20为15【指定行号变小时】，单击按钮里的任意数字，发现F5:F15都能刷新，但F16:F20总是显示为4、1、9、3、4。这多出不变的五个数据必须手动清除，对吗？

lss001 33楼旧附件 (2).zip (54.38 KB, 下载次数: 3)

WYS67 · 发表于 2018-9-28 10:56

lss001 发表于 2018-9-28 10:46
作为权宜计暂时可使用33楼新附件！
要完全解决问题应在E9增加一个条件！
即限制刷新范围！

老师：我说的意思是：如果要让输出结果显示在E6:E8限定的列、行号范围之内，用旧附件里的代码；当新指定的E8数值小于原来指定数值时，就必须手动清除E8原来指定多出的那几行。这样才是正确的。

如梦初醒，我真笨！谢谢老师不厌其烦的指点！

玉阳山人 · 发表于 2018-9-28 10:58

lss001 发表于 2018-9-28 09:22
无法请除是为了保护"结束行号"以外的数据
如要清除请下载33楼更新附件！

无法请除是为了保护"结束行号"以外的数据，终于明白这句话的意思了！

lss001 · 发表于 2018-9-28 11:19

本帖最后由 lss001 于 2018-9-28 16:29 编辑

其实不用手动清除
只需要在E9增加一个条件
即限制数据刷新行号

刷新行号→指的是单元格变更范围
结束行号→指的是数据变更范围
重新修正代码！！！

lss001 33楼旧附件.zip (53.52 KB, 下载次数: 25)

WYS67 · 发表于 2018-9-28 13:28

lss001 发表于 2018-9-28 11:19
其实不用手动清除
只需要在E9增加一个条件
即限制数据刷新行号

如此说来，等于E9才和E5的性质相同，都是限定区域的最大行号的。

lss001 · 发表于 2018-9-28 16:37

WYS67 发表于 2018-9-28 13:28
如此说来，等于E9才和E5的性质相同，都是限定区域的最大行号的。

请重新下载上楼附件！

WYS67 · 发表于 2018-9-28 17:50

lss001 发表于 2018-9-28 16:37
请重新下载上楼附件！

老师：已下载，正在学习研究中

WYS67 · 发表于 2018-9-28 18:26

lss001 发表于 2018-9-28 11:19
其实不用手动清除
只需要在E9增加一个条件
即限制数据刷新行号

我的VBA很菜【不然也不会频频求助于老师您】，感觉确实不必要增加E9的刷新行号。假如指定E6的F为列标，E7的5为开始行号，E8的15000为结束行号【也就是限定的最大行号】，则每次显示刷新计算结果，都必须在限定的F5:F15000区域内就行了！

玉阳山人 · 发表于 2018-9-28 19:31

本帖最后由玉阳山人于 2018-9-28 19:33 编辑

lss001 发表于 2018-9-28 19:09
实际操作中，条件E9确实用处不大可删了
把模块1中全部9改为8保存重启！

刚刚绽放的鲜花，奉上一朵！请老师移步关注http://club.excelhome.net/thread-1438068-1-1.html里的问题。

		自动登录	找回密码
密码			免费注册

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