ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: mythqiu

[原创] 工程量计算表格

  [复制链接]

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-8-3 23:19 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
w3c0929 发表于 2018-8-3 15:07
这个地方是否可以改善一下

这个问题很好解决.我除了现在给的方案,我准备为此单独写一个方案,拖动就自动出结果.一般来说,正常的计算是不会有这样的情况发生的.

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-8-4 21:00 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 mythqiu 于 2018-8-6 01:16 编辑

1,增加选中计算,即拖动数据填充可计算(需要选中2行以上有效).这个计算没有Ctrl+F9效率高,请注意不推荐使用
2,增加Ctrl+F5 会自动新建计算模板.(新增功能)
3,其他一些bug修正.
-------------------------------------
更新一下,右键直接计算版本
请选择8.6日更新,右键计算选中版本

算量表格(通用计算式180810VBA功能)测试.rar

119.5 KB, 下载次数: 48

8.4更新

算量表格(通用计算式180810VBA功能)8.6右键计算版本.rar

122.24 KB, 下载次数: 71

右键计算

TA的精华主题

TA的得分主题

发表于 2018-8-6 08:49 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
mythqiu 发表于 2018-8-3 21:57
最新的版本已经增加一键重算功能,可以解决这问题\点击右键上标功能.但是看到没有人感兴趣,就没发上来.--- ...

只是他们没找到有这么好的表格,我是为了找一个功能才发现的,*转换×,/转换÷;

TA的精华主题

TA的得分主题

发表于 2018-8-6 08:51 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
mythqiu 发表于 2018-8-3 22:37
最新修改如下:
1,字体颜色改变(因为上方标注选中后是绿色,所以原来的绿色备注汉字不适合了).字体改为宋体, ...

感谢楼主,我身边同事也很喜欢这个表格!

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-8-6 10:46 | 显示全部楼层
w3c0929 发表于 2018-8-6 08:49
只是他们没找到有这么好的表格,我是为了找一个功能才发现的,*转换×,/转换÷;

目前最新的版本,转换*/为×.÷,会去掉上方标注,还在找合理的解决方案.
另外,如果你不需要上方标注,请在源码里面把相关注释取消,即可实现转换.但上方标注功能会失效,我还在研究如何使上方标注不失效.

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-8-6 23:52 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
1,更改了右键计算的方式
2,修正一个Ctrl+F9后Ctrl+F11不强制更新序号的bug.
凡是ctrl+F11显示更新了(-X)个序号都有问题.显示负数个序号.

算量表格(通用计算式180810VBA功能)改进右键计算080622.rar

139.91 KB, 下载次数: 68

推荐下载

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-8-6 23:55 | 显示全部楼层
w3c0929 发表于 2018-8-6 08:51
感谢楼主,我身边同事也很喜欢这个表格!

感谢支持,之前的版本,如果按Ctrl+F11出现更新负数个序号,是有问题的(其实没有强制更新序号),这个bug已经修正.请下载最新的使用测试.

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-8-9 21:25 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 mythqiu 于 2018-8-10 00:50 编辑

这个计算式表格,写到这里,我曾经的设想基本实现.几点感悟:
      1,基本功能搭建是很快的.如果要功能稳定,考虑错误的容错,纠错就是一个很慢的过程了.
      2,通过写这个程序,进一步熟悉了vba.
      3,功能方面,基本的计算式功能可以说是相当的方便了.作为一个计算式表格,可以说代码也是相当的多.
         很多人都写过这个小型的vba,作为造价算量的工程人员的专用表格,许多同行多多少少自己用函数\vba制作过这类东西.简单的代码就一个sub搞定.我自己也曾经只是写几个函数,用名称管理器集合几个内置函数自己用(您可以在现在的vba版本中看到他们的影子).
         虽然函数看不出来了,其实直接在相应的地方添加我写的名称,任然可以出相同的结果.
         后来,既然都vba了,全都vba吧.这样一路走来,2个月,程序框架是很快就搭建起来了,公开了密码的,您也可以看到.
         一开始就是准备的过程,函数调用思维.所有您可以看到,基本所有的函数function,过程sub都有参数.没有参数的是为了适合vba中内建的快捷调用不好传递参数.
       修修改改一个月的时候,其实大的功能基本定性了,后来的代码就是为了更快\更方便发展了.当然有些代码还是很慢,特别是格式化数据.其实可以把这些代码都删了,数据就一样的格式,区分起来有点不方便而已.
      4,基本功能介绍
      4.1 每个分类符号是$,我的思路是您不用在序号列输入任何东西,您在所在部位输入@就行了
      4.2 自动小计原来还需要您在序号输入$$,现在您点下右键,选中小计即可,您也不必输入啥符号了
      4.3 上标功能 F4,右键,双击左键选中都可以实现.这个功能一开始就有这个想法,但苦于没有掌握方法,网上资料基本没有,直到昨天才完成.以前的可以上标但是无法对计算式操作,所有你会发现,一旦上标,计算式输入的*不会转换为×了,那是因为,一旦转换,您的上标就会消失了.当然,现在是完全不会有这个问题了.
      4.4 一键重算 Ctrl+F9右键都可以实现,右键谢了2个功能,一个飞快,一眨眼就完成,一个要对计算式格式化,取决于计算式长短和备注字符多寡,时间可能很快,也可能很慢很慢,特别是太多的汉字太多的汉字备注.
      4.5 序号乱了,小计不对了. Ctrl+F11,其实您一行行书写下来,序号是不可能乱的,实在是删除\插入太多了,乱了就用这个办法.
      4.6 一键新建计算薄,以前是自己复制,满满的几百行计算好的,复制过来还的删除已经算好的内容,搞不好计算的表格搞错了,还会出错.现在好了,Ctrl+F5一下就好.一个空白的只有表头的计算稿出现了.
      4.7 其他的一下快捷功能您只能自己去发现了.
      4.8 支持所有内置函数,本版本附送2个基坑算量函数,拿去不谢.写得不好,也别怪我.只有自己在源程序中看注释如何使用了.
      4.9 支持中文直接标注,其他如英文,数字,符号用[]框起来.
      4.10 支持计算式中部分计算式求值,用{}框起来.此功能是工程算量的利器啊.{}当()使用,四则运算中有优先作用.
      5 结束了...__________________________________________
更新于 2018年8月10日00:38:47
手痒,发现计算式中大量连续汉字备注处理太慢(虽然实际不可能这么多连续汉字,我是在计算式中汉字当使用说明了,所有有大段的连续汉字),更新了一下.老版本保留,大家可以对比一下第1条计算式的格式化速度.
另:不连续的汉字处理速度不会明显提高处理速度,实际使用备注汉字不可能如此的长,所以实际使用中2个版本速度不会有太大的速度差别.
之所以慢,不是计算慢,是处理汉字格式化慢,正则是一个一个汉字处理,导致格式化也是一个一个汉字格式化,所有就慢了.这也是Ctrl+F9计算所有计算式很快能完成,因为这个命令只管计算,这个sub不会处理备注,数字,运算符号的格式化.
改成先把连续汉字找出来,集中格式化.虽然代码变长了,速度却提示7倍.以我样本的第一条计算式添加时间代码测试的.
这个修订版本时间代码注释掉了,没删,熟悉vba的可以去掉注释测试一下,这之前的版本没时间代码,需要自己在原来的循环外添加测试.


算量表格(通用计算式180810VBA功能)080920.rar

163.05 KB, 下载次数: 70

算量表格(通用计算式180810VBA功能)优化大量汉字备注处理速度.rar

164.51 KB, 下载次数: 64

优化连续汉字处理速度

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-8-13 22:16 | 显示全部楼层
本帖最后由 mythqiu 于 2018-8-14 23:13 编辑

功能无更新,修正一些bug.
1,保证序号更新的正确性.
2,优化一些sub
3,添加2个右键菜单

------------------------

8月14日:
1,修正提取拼音的循环错误.增加跳出循环的机制,更快一点
2,增加一个加粗部分计算式得值的功能,避免后来加{}影响到以前上标的位置

8-14 2018年8月14日23:10:03
感谢fxl447098457 提供了vba内置取得拼音字段的方法,替换本人写的三层循环查找的笨办法,效率得到提升. http://club.excelhome.net/forum. ... 672&pid=9621606
现在提取拼音字段的时间几乎为零.
请下载此附件:
算量表格(通用计算式180810VBA功能)815修改上标提取方法.rar (185.53 KB, 下载次数: 51)

算量表格(通用计算式180810VBA功能)8.13修正一些bug.rar

174.18 KB, 下载次数: 35

修正一些bug

算量表格(通用计算式180810VBA功能)8.14修正一些bug.rar

176.87 KB, 下载次数: 38

最新8月14日

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-8-15 22:22 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖最后由 mythqiu 于 2018-8-16 21:43 编辑

修正一个程序内取得加粗的循环.加快速度.
修改了新建算量表格的快捷键.

==================



8月15日的文件在wps有错误,会每次弹出不支持上标.本人最近没有打开wps作测试造成的.已经修正这个逻辑错误.

另外:功能稍作完善:
1,计算式出错时,修改会红底白字,方便查看.
2,再次编辑计算式时,会去掉格式,免得输入的字收到已经格式的影响,要么有颜色,要么太小.
3,将备注改为了亮灰色.
4,修正打开多个计算表格,关闭其中一个,快捷键失灵的情况.

已经下载的,请重新下载新的.

算量表格(通用180815VBA功能).rar

120.63 KB, 下载次数: 94

原来那个在wps下有错

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-6-4 01:11 , Processed in 0.045422 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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