ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

VBA便捷工具系列之状态栏抄写

[复制链接]

TA的精华主题

TA的得分主题

发表于 2013-9-21 09:24 | 显示全部楼层 |阅读模式
本帖最后由 wajour 于 2013-9-22 20:10 编辑

原帖地址(初步的界面):http://club.excelhome.net/thread-933877-1-1.html为了能让Excel在日常工作中抄写状态栏上的求和,最大值,最小值,计数,计数值,平均值,个人推出此工具。
主要界面:
QQ截图20130921083710.jpg
对于单元格共有六个统计指标会被计算,包括从上到下依次是:平均值、计数、计数值、最大值、最小值、求和。

计算过程,当界面显示时立即对当前工作表的选定区域进行六个指标的计算,并展现在六个TextBox控件里。
若在对应的TextBox前打勾,则表示在输出时该TextBox会被写出。
1、写出方式:
①直接将结果放到单元格,即图中“导出”按钮,会将结果写到您选定的单元格
②复制到粘贴板,若你需要结果不止是展现在Excel则可以使用写到粘贴板(注:实际写入均按照TextBox显示,即如图求和项中若显示“22,222,080.00”,粘贴板里写的就是“22,222,080.00”文本,若显示的是“22222080.00”,粘贴板里写的就是“22222080.00”,粘贴到Word或Notepad里试试就明白了)
2、计算方式:
①模式选项“勾选时”为单元格区域模式,即将选定单元格内容全写到,做好的模板里面(当然这写也是VBA自己写的),将各项统计指标写回到TextBox中
如下图数据切换到单元格模式
QQ截图20130921085424.jpg
在模板中则被写成下列样式

QQ截图20130921085546.jpg
这个计算过程相信您都懂的,每次都是将模板放统计数据的区域清空,然后再写,写完后将结果回写到TextBox中,次方法准确率100%可靠

②不勾选“模式”,则是使用数组进行计算,次方法相对速度快,准确率可以达到95%以上,笔者已经对结果与状态栏进行过大量的对比测试,请放心使用。

关于图中的“标题”选项,打勾时,写入粘贴板或单元格里面的内容则是包含了对应统计指标的名称
如图勾选后
QQ截图20130921090240.jpg 导出内容如下 QQ截图20130921090355.jpg
“←”,选定区域批量左移一格
“→”,选定区域批量右移一格
附件如下

副本Excel加载项.rar

59.89 KB, 下载次数: 89

TA的精华主题

TA的得分主题

 楼主| 发表于 2013-9-21 09:26 | 显示全部楼层
PS:打开时登录 不用输入密码

TA的精华主题

TA的得分主题

发表于 2013-9-21 19:39 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2013-9-21 20:12 来自手机 | 显示全部楼层
liucqa 发表于 2013-9-21 19:39
图片看不见,另外你是不是发错地方了?

是发错了,我密了版主帮忙移动了,是看了会员广场的一回复然后点发帖,就擱这里了。

TA的精华主题

TA的得分主题

 楼主| 发表于 2013-9-21 20:14 来自手机 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
liucqa 发表于 2013-9-21 19:39
图片看不见,另外你是不是发错地方了?

发帖时是能看到的,发了图就挂了,这区帖子都不给改的

TA的精华主题

TA的得分主题

发表于 2013-9-24 07:46 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2018-2-3 18:12 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-11-22 07:54 , Processed in 0.045676 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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