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

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

WYS67 发表于 2018-9-28 07:03
老师：怎么找不到更新后的附件？

重新上传附件！

WYS67 · 发表于 2018-9-28 08:19

lss001 发表于 2018-9-28 08:10
重新上传附件！

老师：这次非常完美！代码就是分别存放在“类1”和"模块1"这两个地方吗？用到时复制进所需工作表的“类1”和"模块1"就行了吧？

lss001 · 发表于 2018-9-28 08:29

WYS67 发表于 2018-9-28 08:19
老师：这次非常完美！代码就是分别存放在“类1”和"模块1"这两个地方吗？用到时复制进所需工作表的“类1 ...

→_→大概如此←_←

WYS67 · 发表于 2018-9-28 08:34

lss001 发表于 2018-9-28 08:10
重新上传附件！

又测试了一下，发现结果输出列 能够按照E7指定的行号开始显示，却不能按照E8指定的行号结束显示--比如指定E8为20，无论有多少个符合条件的数据，只显示到20行截止，20行以下由于超出了E8指定范围，所以必须截掉。这样才能不影响21行以后的其它统计。

lss001 · 发表于 2018-9-28 08:52

WYS67 发表于 2018-9-28 08:34
又测试了一下，发现结果输出列能够按照E7指定的行号开始显示，却不能按照E8指定的行号结束显示--比如指 ...

多了4行
把→
Cells(ar(7, 1), ar(6, 1)).Resize(ar(8, 1)) = dr
改→
Cells(ar(7, 1), ar(6, 1)).Resize(ar(8, 1) - 4) = dr

WYS67 · 发表于 2018-9-28 09:02

本帖最后由 WYS67 于 2018-9-28 09:05 编辑

lss001 发表于 2018-9-28 08:52
多了4行
把→
Cells(ar(7, 1), ar(6, 1)).Resize(ar(8, 1)) = dr

老师：修改后，当E8指定的结束行号从大改小时，无法自动清除F25以下，上次显示的痕迹。

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

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

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

老师：比如上边那个截图：指定结束行号是20. F20开始以下显示的是其它内容，每次点击按钮后，应该只刷新E6:E8界定列、行号起止范围内的数据【也就是要求只能刷新F5:F20范围以内的数据】，但下面截图显示的已超过了F20

但是把→
Cells(ar(7, 1), ar(6, 1)).Resize(ar(8, 1)) = dr
改→
Cells(ar(7, 1), ar(6, 1)).Resize(ar(8, 1) - 4) = dr 后点击倒三角里面的其它数字，只有F4随之变化，F5:F20里没有响应，仍是先前的查询结果。

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

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

lss001 发表于 2018-9-28 09:56
要保护数据请→不要使用33楼最新附件！
应使用33楼旧附件！39楼已经提示！！

40楼下边的两个截图说的就是旧附件出现的问题。

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

WYS67 发表于 2018-9-28 10:02
40楼下边的两个截图说的就是旧附件出现的问题。

把33楼旧附件中→Cells(5, j).Resize(ar(8, 1)) = ""
改→Cells(5, j).Resize(ar(8, 1) - 4) = ""

温馨提示→每次改变代码，应先保存工作簿，然后重新启动，否则数据无法刷新！！！

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

lss001 发表于 2018-9-28 09:56
要保护数据请→不要使用33楼最新附件！
应使用33楼旧附件！39楼已经提示！！

关闭后重新打开40楼的那个附件，F5:F20又可以自动刷新数据了；但点击按钮里的数字后，F21:F22【已在限定行号之外】的“人们”和“对方”却被清除掉了----代码刷新必须E7:E8指定的行号范围之内才对！

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

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

评分

评分