ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

分享与求助:展开与折叠按钮的代码设置与修改

[复制链接]

TA的精华主题

TA的得分主题

发表于 2007-10-9 05:20 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

以下是这个长假我完成的作业吧:是有关展开与折叠按钮设置方面本人在本论坛中学习前辈高人后在功能上稍作修改后的一点体会,在此与大家一起分享下(本着交流与学习在此敬请原创理解):

分享1:法一:第四个例子. 改进之处的说明:原为选中C\D二列才能展开与折叠,这与实战中不符,现改为C列中展开与折叠.

分享2:法二:费用管理(超级按钮).这里面只对涉及到记录的部分删除,这样只剩下展开与折叠的完整代码.

分享3:法三:展开隐藏按钮.这是结合此本身及众多代码及自己设想完成的,说不上原创,但加入了很多实用的功能:

1\原为一级展开与折叠(C列),现设置为二级展开(C\D列)

2\加入了选中C或D列后总的展开与折叠功能

3\原为一个按钮控制任意位置的展开与折叠(这功能不太实用).现利用二个文本框(C\D列各为一种)解决了展开与折叠按钮(原都是用控件\窗体来解决,一个按钮就要一个命令,如法二等等代码,原先的法二与法三这二种及论坛中别的方法在碰到有几千行的内容及相应有几百个需要展开与折叠时就很不实用了,程序也很大).现只要复制与粘贴文本框就行.具体还是请自己用后去感觉吧!

求助:展开与折叠(即第4个下载)

以上法三是在一行中实现的,应是较简单,现我把它设置成自己需要的格式(以三行为一单位),对这样的单位实现展开与折叠.功能方面可以说较好实现了,但有几处地方及功能需完善:

第1个问题:控制文本框的变化?现有的展开与折叠的控制文本框,如+C不能跟着变化,若是展开与折叠时文本框的内容跟着变化就很好了,如展开后为:-C,折叠后为:+C,+D也是如此.

第2个问题:C\D列的二个展开与折叠在碰到最后一个时我的设置限于水平不能进行?现我的设置是把它下面一行进行展开与折叠,实际上就等于最后一个就没有展开与折叠功能了.现想把它完善起来,即最后一个也能展开与折叠.这需要对终点增加判断.现一进想不到好的方法.实战中这已够用,但总感觉留着个尾巴.

第3个问题:现有的展开与折叠在操作时有时会与原先利用右键的正常隐藏与显示有矛盾?即若右键隐藏后利用我的设置,就不能完全展开.这一点主要集中在选中D列的整体展开上,C列就不存在此问题?

第4个问题:对D列的整体展开与折叠判断有小问题?如本身有局部隐藏时,在展开时就变成即有展开又有隐藏.此问题与第3个问题类似,可能同属一个问题.

以上4个是小问题,不完善也对使用此功能影响不是很大.

第5个问题:想请大侠帮助优化此程序.因这代码在现实例中运行速度是可以,但在实战中碰到有1500行(即500个单位)以上时,对C\D二列的整体展开与折叠速度就很慢很慢了.代码就必须优化了.

故在此想请高手\大侠帮助优化解决第5个问题,当然前面4个小问题若能解决就更好.在此先行谢谢了!

附件如下:

分享1:法一:第四个例子.

rSoq3pzs.rar (17.62 KB, 下载次数: 422)

后记:这也算是我对帮助我的老师的一份自行完成的作业吧!只惜前面那个批注的显示因电脑上机的问题还没搞懂呢!

[此贴子已经被作者于2007-10-9 5:27:38编辑过]

KHNGEa7W.rar

8.52 KB, 下载次数: 354

分享与求助:展开与折叠按钮的代码设置与修改

L9LYGB4X.rar

23.82 KB, 下载次数: 367

分享与求助:展开与折叠按钮的代码设置与修改

kaer9odE.rar

15.8 KB, 下载次数: 275

分享与求助:展开与折叠按钮的代码设置与修改

TA的精华主题

TA的得分主题

 楼主| 发表于 2007-10-9 22:29 | 显示全部楼层

自己先顶一下.

也请大家看着若可以,则帮助顶一不,若不行,也烦请指出!谢谢!

  不过最主要的还是想请大侠帮助:

对  求助:展开与折叠(即第4个下载)  的程序优化改进一下.在此先谢谢了!

TA的精华主题

TA的得分主题

发表于 2007-11-15 15:01 | 显示全部楼层

我刚开始这方面的学习,下啦!

好好学学!

TA的精华主题

TA的得分主题

发表于 2007-11-15 15:05 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2008-3-8 13:29 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

 谢谢楼上二位。

在此还想请高手帮助解决一楼的问题,以便此功能用起来更方便些。本早应在此与大家就此好好讨论与交流了,因身体上的原因只能对此放慢速度了(上此的时间得减少很多了),不过对此问题我会一直搞下去的。但更希望能有高手帮助一下。

在此先谢谢了。

TA的精华主题

TA的得分主题

发表于 2010-5-17 16:21 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2010-10-13 13:00 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

回复 1楼 SHANGDU629 的帖子

好好学习,非常感谢!

TA的精华主题

TA的得分主题

发表于 2011-5-24 13:31 | 显示全部楼层
有很多种表述,先试试看是不是自己需要的

TA的精华主题

TA的得分主题

发表于 2011-7-26 11:29 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

非常感谢,我先学习看

谢谢,也是刚开始看,搜到这个资料,非常感谢!

TA的精华主题

TA的得分主题

发表于 2012-2-7 14:57 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-11-21 21:57 , Processed in 0.046108 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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