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

玉阳山人 · 发表于 2018-9-27 17:28

本帖最后由玉阳山人于 2018-9-27 18:44 编辑

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

老师：如果能够按照WYS67在20楼的要求编辑代码，就更完美了！那将是完全可以自定义参数的过程代码！

WYS67 · 发表于 2018-9-27 17:43

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

老师：能不能参照20楼的要求写成，按E1:E8自定义参数运行并显示的代码？

WYS67 · 发表于 2018-9-27 18:43

恳请老师们帮忙！

lss001 · 发表于 2018-9-27 19:50

本帖最后由 lss001 于 2018-9-28 07:00 编辑

WYS67 发表于 2018-9-27 18:43
恳请老师们帮忙！

看似简单，可这难度不小啊！！！

WYS67 · 发表于 2018-9-27 20:04

本帖最后由 WYS67 于 2018-9-27 20:20 编辑

lss001 发表于 2018-9-27 19:50
看似简单，可这难度不小啊！！！

打开-开发工具-查看了一下，吓蒙了！怎么到处都是代码？！请您告诉我：《类1》、《模块1》、 Workbook_Open 都是这个附件需要的代码吗？
感觉过程要比自定义函数复杂和难学多了！

另外，1.我把E2、E3打了一个颠倒，让E2指定B列为条件区域，E3指定A为数据区域，怎么不见倒三角下的条件发生变化？

2.代码似乎需要加上一句：当输出列的列标发生变化时，自动清除上次显示的数据为空白。下面G:H列就是修改了输出列标后留存的以前显示的结果

WYS67 · 发表于 2018-9-27 20:27

本帖最后由 WYS67 于 2018-9-27 20:30 编辑

lss001 发表于 2018-9-27 19:50
看似简单，可这难度不小啊！！！

老师：里面的哪个代码才是属于这个附件专用的？
InitializeAppEvent () qq() pp() ThisWorkbook.Workbook_Open 眼晕了......

请老师根据25楼的1、2两个问题修改后明确告诉我：哪个是属于这个附件专用的代码。

WYS67 · 发表于 2018-9-27 20:50

lss001 发表于 2018-9-27 20:33
只有模块2自定义函数不是
其余都是！！！
对于25楼的问题

1.指定E2为B列，E3为A列后，倒三角下的条件怎么没有发生变化？2.当输出列的列标发生变化时，自动清除上次显示的原列数据为空白。

在模块1中最后一个Next下
加了一行代码→Cells(5, ar(6, 1)).Resize(ar(8, 1)) = "" 后，上述两个问题并没有解决啊

WYS67 · 发表于 2018-9-27 20:54

lss001 发表于 2018-9-27 20:33
只有模块2自定义函数不是
其余都是！！！
对于25楼的问题

是不是代码里没有设置E1:E8为自定义可变参数？

WYS67 · 发表于 2018-9-27 22:21

lss001 发表于 2018-9-27 19:50
看似简单，可这难度不小啊！！！

老师：恳请解决29楼描述的问题。

WYS67 · 发表于 2018-9-28 07:03

lss001 发表于 2018-9-27 19:50
看似简单，可这难度不小啊！！！

老师：怎么找不到更新后的附件？

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

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

评分