1234

ExcelHome技术论坛

用户名  找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

帖子
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: WYS67

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

[复制链接]

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-10-10 20:00 | 显示全部楼层
lss001 发表于 2018-10-10 19:43
把92楼附件模块1中第32行
即打'###号的一行
改为→If ar(8, 1) > y Then .Cells(y + 4, ar(6, 1)).Select ...

嗯。就是这样。现在每次只显示最后的16行数据,如果能够让最后一行数据和光标紧邻工作表下边沿就更好了,可以看到尽可能多的最后数据。

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-10-10 22:07 | 显示全部楼层
lss001 发表于 2018-10-10 21:33
把刚才1行改为以下7行→   

  If ar(8, 1) > y Then

每个指定条件的最后那个数据距底边还有2行距离。

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-10-10 22:12 | 显示全部楼层
lss001 发表于 2018-10-10 21:33
把刚才1行改为以下7行→   

  If ar(8, 1) > y Then

老师:25改为27,恰好挨着底边!妙极了!谢谢老师不遗余力的帮忙!晚安!

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-10-10 22:49 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖最后由 WYS67 于 2018-10-10 22:51 编辑
lss001 发表于 2018-10-10 21:33
把刚才1行改为以下7行→   

  If ar(8, 1) > y Then

老师:请看截图:Sub qq()
    Dim wb As Worksheet
    Set wb = Sheets("Sheet1") '***
    wb.Cells(4, "f") = wb.Shapes("Drop Down 1").ControlFormat.List( _
    wb.Shapes("Drop Down 1").ControlFormat.Value)
End Sub
20181010224129.png 20181010224115.png


老师:为什么下载92楼您上传的附件,就能正常运行,复制粘贴到新工作表里就出现错误了呢?


    点击下拉框里的号码即可显示所有遗漏期.zip (420.73 KB, 下载次数: 7)

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-10-11 00:13 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
lss001 发表于 2018-10-10 15:09
E8没有修改,右边滚动条往上滚动就可以看见!

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

组合框我刚找到并学会画,但代码修改成:
If ar(8, 1) > y + 4 Then             .Cells(y + 4, ar(6, 1)).Select             If y + 4 > 30 Then ActiveWindow.ScrollRow = y + 4 - 25         Else             .Cells(ar(8, 1), ar(6, 1)).Select             If ar(8, 1) > 30 Then ActiveWindow.ScrollRow = ar(8, 1) - 25         End If
后,又出现了和94楼完全相同的错误

TA的精华主题

TA的得分主题

发表于 2018-10-11 00:25 | 显示全部楼层
WYS67 发表于 2018-10-10 22:49
老师:请看截图:Sub qq()
    Dim wb As Worksheet
    Set wb = Sheets("Sheet1") '***

点击下拉框里的号码即可显示所有遗漏期.zip (405.17 KB, 下载次数: 25)

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2018-10-11 01:22 来自手机 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 lss001 于 2018-10-11 12:30 编辑

←_←←_←

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-10-11 11:28 | 显示全部楼层

老师:千难万难,只因自己学艺不精!新建工作表《新建》,分三步--类1,模块1,工作表A:F列,把96楼您的附件比葫芦画瓢地复制进了《新表》里;然后保存,关闭。重新打开后,点击下拉框里的指定条件,总算能够显示正确结果了。但96楼的附件里最后那个数据恰好挨着底边,但《新表》里,距底边还有两行空白。查看两个工作表的行高,都是14.25呀,想不通什么原因;不过这个可以在代码里调整,把27改成29就行了!

这个看似简单的过程,可真怄了您不少心血,直到现在我还在懵懂:为什么下载的96楼里的附件,打开后点击条件,最后那个数据恰好挨着底边显示,但《新表》里则距底边还有两行空白?直接把您上传的附件复制了一个副本,打开后点击条件,最后那个数据距底边也变成了有两行空白。真是想不通!


TA的精华主题

TA的得分主题

发表于 2018-10-11 11:56 来自手机 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖最后由 lss001 于 2018-10-11 12:29 编辑

←_←→_→

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-10-11 12:45 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

把代码里的参数27改成29就恰好紧挨底边
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

1234

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2025-1-24 20:15 , Processed in 0.034686 second(s), 6 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表