ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[原创] 工程量计算表格

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2018-7-11 00:12 | 显示全部楼层 |阅读模式
本帖最后由 mythqiu 于 2018-7-11 00:39 编辑

在本论坛有人已经发了一个,不过,我这个也是完全原创的,和他那个vba内核完全不同.
本程序完全本人书写,样式参考了易表算量.
本表格完全是手工算量的表格.但是省去了繁琐的统计和添加公式麻烦
预算员只需要输入数据即可.

主要功能有:
1,在一个表格内完成一个楼的计算,多个楼请复制增加sheet表.
2,自动小计分项分部位的工程量
3,自动汇总所有工程量
4,自动计算,没有任何按钮
5,适合土建模板,混凝土\二次结构砌砖\抹灰
6,完全兼容wps,但是别用个人版本,个人版本不支持3个以上条件格式和vba,请用wps专业版本,网上注册码多的是.
7,使用方法太简单,没写使用说明8,速度快,经压力测试,3.5万行数据,100个小计项目,自动小计用时大约5秒.
   0.3万行数据,70个小计项目,瞬间统计完成.(这个小计程序,数十次修改)
   题外话,本人第一次写的小计程序,3.5万行数据,用时30几分钟~~~~~呵呵,后来完全重写,重写的关键代码本人也发布在本论坛.
---------------------------------------------------------------
使用有任何问题,请论坛反应,或者发邮件联系我,软件中有.
---------------------------------------------------------------
截图:
捕获.JPG

捕获2.JPG



补充内容 (2018-7-19 19:29):
最新修改在3楼.....

补充内容 (2018-7-19 19:39):
vba密码:qcq
密码不是保护代码,vba代码个人认为没啥保护的,但是我原来写vbs代码一般不会公开,因为有人会来破坏网站.这个密码主要保护不懂vba的人修改出错.也许久了本人都忘记代码里面的逻辑关系,自己改也困难了

补充内容 (2018-8-3 22:39):
最新修改10楼:
1,字体颜色改变(因为上方标注选中后是绿色,所以原来的绿色备注汉字不适合了).字体改为宋体,避免无法显示的问题
2,增加Ctrl+F9 重算所有计算式,Ctrl+F11重新汇总所有并自动编号,2个功能配合使用.
3,...

补充内容 (2018-8-4 21:05):
最新版本在 12 楼.
增加一键新建空白计算模板和选中更新结果(选中计算式2行及以上,单行或者其他列选中无效)

补充内容 (2018-8-6 23:57):
解决一个比较大的bug,Ctrl+F11出现更新负数个序号,其实序号没有更新,16楼的附件已经修正.

补充内容 (2018-8-9 21:30):
最新版本在18楼.工程量计算上标功能完全版本.解决上标和计算式格式化或者计算符号转换导致上标消失的问题.所以除此以外的其他版本有上标,计算式就不会转换符号.

补充内容 (2018-8-9 21:38):
直达18楼:  http://club.excelhome.net/forum. ... 161&pid=9616570

补充内容 (2018-8-13 22:17):
最新19楼,修正一些bug,下载最新即可,其他版本代表改进的一个历程.直达19楼 http://club.excelhome.net/forum. ... 161&pid=9620573

补充内容 (2018-8-15 22:23):
最新 20 楼,直达电梯:http://club.excelhome.net/forum. ... 161&pid=9622962

补充内容 (2018-8-17 12:00):
全新的Ribbon菜单.直到22楼 http://club.excelhome.net/forum. ... 161&pid=9624339  理论兼容2007以上(没测试2007~2013),兼容wps2016专业版和excel 2016

补充内容 (2018-8-23 01:40):
更新支持 代号 计算.在27楼,欢迎下载测试......

补充内容 (2018-8-28 02:38):
代号功能完善,见32楼 http://club.excelhome.net/forum. ... 161&pid=9635985 此地址为31楼,移步下一楼(审核未出来的原因)

补充内容 (2018-8-29 23:05):
优化代号计算速度,直到37 楼 :http://club.excelhome.net/forum. ... 161&pid=9638404

补充内容 (2018-9-6 22:37):
重要更新:直达51楼: http://club.excelhome.net/forum. ... 161&pid=9647584

补充内容 (2018-9-14 16:38):
最近更新,增加自动总计等功能 直达59楼 :  http://club.excelhome.net/forum. ... 161&pid=9656078

补充内容 (2018-9-25 16:22):
全面提速,重大更新2.2.8 直达76楼电梯 http://club.excelhome.net/forum. ... 161&pid=9667912

补充内容 (2020-5-25 15:33):
2.2.9正式版本,直达98楼下载:http://club.excelhome.net/forum. ... 161&pid=9687375

补充内容 (2020-6-3 18:38):
小更新,直达http://club.excelhome.net/forum. ... 61&pid=10366502

补充内容 (2021-12-1 22:15):
增加公式得结果功能,一些小的修复。最新直达:https://club.excelhome.net/forum ... 61&pid=10842544

补充内容 (2021-12-4 13:41):
小幅度更改和加固程序v2.3.1 MQ工程量计算稿v2.3.1:https://club.excelhome.net/forum ... 61&pid=10844499

补充内容 (2022-1-4 23:16):
MQ工程算量表格2.3.6正式版更新!制作了加载宏版本(理论上WPS专业版也可使用),实现代码数据完全分离。并一同更新xlsm版本。目前本算量表格是图形算量的补充,用于局部算量,小型工程算量最佳工具。

补充内容 (2022-10-19 21:42):
本计算式软件不在更新和修复bug。我重新写了个可以适合任意表格结构多个计算式 的计算式软件,欢迎下载体验:https://club.excelhome.net/thread-1613687-1-1.html

算量表格(通用计算式180709VBA功能)横版.rar

54.98 KB, 下载次数: 812

评分

11

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2022-1-9 01:35 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
功能增加:
xlsm版本增加导出为xlsx,这样比直接另存为的好处是数据文件没有功能菜单。
在菜单和右键增加另存的功能。
其他:都修改了以下菜单和右键菜单

动画22.gif

MQ工程算量表格v2.3.6.03(增加另存xlsx).rar

271.47 KB, 下载次数: 135

MQ工程算量计算工具v2.3.6.03(加载宏版).rar

274.09 KB, 下载次数: 129

TA的精华主题

TA的得分主题

 楼主| 发表于 2022-5-7 20:32 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖最后由 mythqiu 于 2022-5-7 20:39 编辑

致各位工程预算的朋友:


     鉴于这个计算式的功能列固定,可能不是很适合大家各自的需求。因此,写了一个通用的工程计算表格。

      简单说来就是可以指定多个项目的列(完全打造适合自己使用习惯的计算表格),支持多个工程量项目设置(合并同类工程量),支持多个计算式(全网唯一,用于复杂的计算)。
   此MQ通用工程量计算表格全网功能独特,完全开放源代码。如有修改(包括模板的修改),你只需要在此贴:简单而通用的工程类计算式算量表格-Excel VBA程序开发-ExcelHome技术论坛 - https://club.excelhome.net/thread-1613687-1-1.html 提交您改造的样本即可。

任意指定列

任意指定列
图示说明2.png

不汇总书写方式

不汇总书写方式




     MQ通用工程量计算程序可以适合您的习惯,任意设置:分类关键项(可以多个列需要连续)、工程量、单位、计算式(可以多个列需要连续)、倍数、代号、其他项所在的列标(不需要管)。简单说明:比如有的喜欢工程量在计算式后面,有的喜欢在计算式前面。

    MQ通用工程量计算程序适合土建、安装等多种形式的工程量计算。如果您理解了【分类关键项】【计算式】多个列(这两项的列需要连续)的运用。将很容易创建出属于您自己的计算表。

    1、使用本程序前先设置自己的模板:在sheet处点鼠标右键→取消隐藏→确定。模板显示出来。编辑保存。
    2、按ALT+F11调出VBE,输入密码qcq,点击模块→set设置→编辑参数 适合您刚才制作的模板(其实就是指定一下工程量,计算式等所在的列标而已)。点保存。

    其他使用技巧见下面更新说明,或者参见:https://club.excelhome.net/thread-1613687-1-1.html 通读楼主发的所有帖子即可。
--------------------------
MQ通用工程量常见的使用技巧:
--------------------------
    1、计算式中运算符号支持中文 例如:5+6-7×4÷6
    2、计算式中支持所有内置函数,比如PI(),SIN()等
    3、计算式支持备注,用【备注】或者[备注]都可以,方便您不切换输入法;备注可以在vbe设置微软拼音模式
    4、计算式支持大于255字符
    5、代号在计算式列按F3出来,支持手输入《代号》自动变<代号>,代号在代号列不需要输入<>,会自动添加。
    6、输出结果可以选择值和=1+2的模式,vbe的set设置里面设置
    7、单位可以自动输入,需要vbe的set设置。
    9、分类关键项可以自动选择曾经输入过的关键词
    ……

简单而通用的工程类计算式算量表格-Excel VBA程序开发-ExcelHome技术论坛 -
https://club.excelhome.net/thread-1613687-1-1.html






补充内容 (2022-11-4 08:54):
MQCal工程通用算量v1.2.5发布了,已经支持窗口设置,打印pdf,自动目录等功能。不用代码设置了!方便看到代码就头晕的同行。

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-7-12 13:08 | 显示全部楼层
本帖最后由 mythqiu 于 2018-7-12 14:31 编辑

做了一些修改:
1,汉字和英文字母说明可以直接输入了,无需[]框起来
2,小计的函数=XJ原来是直接引用整列,是为了方便手工输入,
   现在如果程序会自动写入小计范围的列的行号,不再整列引用.
   目前这样作也是为了提升效率.
3,原来的=XJ,=工程量(或者对应的中英文=小计,=GCL)还是可以使用
4,经过修改,和office2007的兼容性得到提高.



算量表格(通用计算式180711VBA功能)横版.rar

57.96 KB, 下载次数: 108

修正倍数不计算

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-7-19 19:25 | 显示全部楼层
本帖最后由 mythqiu 于 2018-7-19 19:28 编辑

修正:2018.11.19
1,倍数问题没计算
2,全新的自动小计功能,当已经小计类别,增加行,会自动小计
3,重新序号功能.
4,删除序号1,计算式回车,所有的小计重新汇总.(此功能是为了后期增加删减导致汇总可能出错)
5,中文直接备注,英文直接备注取消.是因为要可以直接使用内置的数学函数如sin,tan,cos,pi,所以取消英文直接备注,需要[英文备注]
6,倍数数字后可以加汉字
-------------------------------------------
肯定还是有小问题,有兴趣的朋友测试反馈

算量表格(通用计算式180720VBA功能)横版.rar

68.05 KB, 下载次数: 120

2018.7.19修改

TA的精华主题

TA的得分主题

发表于 2018-8-3 09:46 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖最后由 w3c0929 于 2018-8-3 09:47 编辑
mythqiu 发表于 2018-7-19 19:25
修正:2018.11.19
1,倍数问题没计算
2,全新的自动小计功能,当已经小计类别,增加行,会自动小计

打印的时候,计算式那一列,单元格自动换行被隐藏了 1.png

TA的精华主题

TA的得分主题

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

TA的精华主题

TA的得分主题

发表于 2018-8-3 15:40 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
还有个问题是,无法使用ctrl+z撤销上一个步骤

TA的精华主题

TA的得分主题

发表于 2018-8-3 16:17 | 显示全部楼层
w3c0929 发表于 2018-8-3 15:40
还有个问题是,无法使用ctrl+z撤销上一个步骤

这个是vba写的,肯定实现不了撤销的功能

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-8-3 21:57 | 显示全部楼层
本帖最后由 mythqiu 于 2018-8-3 22:13 编辑
w3c0929 发表于 2018-8-3 15:07
这个地方是否可以改善一下

最新的版本已经增加一键重算功能,可以解决这问题\点击右键上标功能.但是看到没有人感兴趣,就没发上来.-------------------------
如果有兴趣,请下载最新版本 180726版本

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-8-3 21:59 | 显示全部楼层
w3c0929 发表于 2018-8-3 09:46
打印的时候,计算式那一列,单元格自动换行被隐藏了

这个问题好像是excel自身字体的问题,你可以设置宋体字试一下

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-8-3 22:37 | 显示全部楼层
本帖最后由 mythqiu 于 2018-8-4 21:01 编辑

最新修改如下:
1,字体颜色改变(因为上方标注选中后是绿色,所以原来的绿色备注汉字不适合了).字体改为宋体,避免无法显示的问题
2,增加Ctrl+F9 重算所有计算式,Ctrl+F11重新汇总所有并自动编号,2个功能配合使用.
3,增加上方标注(重大功能更新,此功能不在支持wps)
   使用方法有3种:1:选中单元格,选择右键编辑上方标注,此时是第一个字符开始上标 2,双击单元格,选择需要标注的文字,此时,你可有2个选择,一是斜体(I) 或者二是点击右键,具体情况请使用体验.3用{}起来需要上方统计的计算式(请自己保证{}的计算式计算逻辑正确,这个同时也对计算式起到()的作用),凡是搞工程预算都懂这个式多么重要的一个功能!
   为何上标搞这么多花样?一切是为了工作方便.还有按F4也能标注上方....
4,调整局部条件格式配色等问题
5,增加时间太长的计算进度显示,比如功能3
6,支持汇总直接出数字功能,代码备注中可调出来.但是小计汇总用公式视乎更好.
7,支持计算式大于255个(重大更新)
8,一些您无法察觉的更新....可能是为了容错,可能是修改了小的bug.9,数字更新量归类,输入1,2,3...8试试效果



算量表格(通用计算式180726VBA功能)横版.rar

92.73 KB, 下载次数: 149

2018.9.3更新

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

本版积分规则

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

GMT+8, 2024-3-29 20:34 , Processed in 0.057551 second(s), 12 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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