ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[原创] 简单而通用的工程类计算式算量表格

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2022-1-15 19:53 | 显示全部楼层 |阅读模式
曾经写了一个工程算量表格,获得了本论坛的有缘人喜爱。但时过境迁,日前表格算量也是末路,只能作为小型工程使用。或者图形算量的补充。

但是缺点也很明显,功能复杂了点,表格被固定了,不能修改列。
在一些求助的帖子中,发现每个人的表格都不一样,所以写了这么一个小程序供大家移植。


1,主要特点是 可以任意指定 计算式 工程量 倍数 三个位置的列(在vbe代码的 set设置
2,直接计算的
3,支持【】[]或者汉字直接备注
4,支持中文的+ - ×÷
5,支持wps2019
Snipaste_2022-01-15_18-06-22.png

参数设置

参数设置

设置




补充内容 (2022-1-28 08:59):
最新完结版:https://club.excelhome.net/forum ... 87&pid=10889022

补充内容 (2022-1-28 09:00):
https://club.excelhome.net/forum ... 87&pid=10889022
最新版直达电梯。

补充内容 (2022-3-11 16:36):
最新修复bug:https://club.excelhome.net/forum ... 87&pid=10920112

补充内容 (2022-5-3 08:31):
已经更新到1.0.7.0,增加所有表格汇总,增加多计算式,增加清单价格自动调用。本论坛久了的帖子不能修改,直接查看楼主所有帖子即可。

补充内容 (2022-8-31 22:52):
最新版 支持土建、水电算量支持多计算式支持vba代码外部重要设置。欢迎体验。看作者发帖即可。

补充内容 (2022-9-15 00:12):
最新的1.0.9.8版本修复了汇总的错误。在2022.9.15日前下载的请重新下载。

补充内容 (2022-10-9 23:52):
最新版本1.2.1,全部设置窗体化,颜色设置可视化,更新于2022.10.9日

补充内容 (2022-10-17 23:46):
2022.10.17 增加汇总数据反查功能,版本V1.2.2

补充内容 (2022-10-18 08:36):
最新版1.2.2反查数据引入了ListView控件,64位Excel没有此控件的,请参照此贴下载并注册此控件https://club.excelhome.net/thread-1491994-1-1.html 控件大小1.6Mb

补充内容 (2022-10-18 08:49):
如果您电脑上有ListView控件,但是打开发现控件不正常,进入set_ViewData窗体,删除窗体ListView1,重新绘制一个ListView1即可,保持默认即可,无需任何设置。如果您是高分屏,可以把此窗体和控件的高调整更高。

补充内容 (2022-10-22 07:52):
论坛帖子一编辑就审核,最新版下载地址:https://cloud.189.cn/t/6Z3UJb6ZZVZn (访问码:lr8h)

补充内容 (2023-2-28 22:51):
最新下载:https://club.excelhome.net/thread-1644206-1-1.html 网盘分享已经失效

wps中动画演示功能

wps中动画演示功能

excel2016中

excel2016中

MQ通用计算式.rar

29.47 KB, 下载次数: 215

评分

5

查看全部评分

TA的精华主题

TA的得分主题

发表于 2022-11-2 11:13 | 显示全部楼层
更新到最新版本;利用楼主老师的代码(我也就修改了下模板,代码全部都是楼主大大的),按平常手算习惯,做了一个水、风管算量模板;一个电算量模板。有需要的可以下载使用。风管这次也可以用水的模板了,可以通用计算了,请看示例。
本次只制作了宏版本,一次调用,可以在不同模板间切换,比一体版灵活,没有局限性。宏版本调用请看楼主说明文件或者自行百度。

MQ通用计算式v1.2.4_2022.11.2水.暖通模板.rar

66.45 KB, 下载次数: 64

文件

MQ通用计算式v1.2.4_2022.11.2 电气模板.rar

53.84 KB, 下载次数: 69

文件

MQ工程通用计算式V1.2.4_Xlam.rar

851.77 KB, 下载次数: 107

文件

评分

1

查看全部评分

TA的精华主题

TA的得分主题

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

MQ Cal工程通用算量计算式V1.3.0.50

本帖最后由 mythqiu 于 2023-8-2 18:32 编辑

MQ Cal工程通用算量计算式V1.3.0.50

2023.8.2
1、增加mq编辑器,计算式编辑模式(把mq编辑器当输入窗口),此模式下会随鼠标点击变化内容,确定 窗口不消失。
2、开放计算式代码,方便懂vba人士调整
2023.7.28
1、优化部分代码
2、优化任意汇总的表格
3、加入代码是否被修改,并提示。
MQ Cal工程通用算量计算式V1.3.0.30(20230721 21:30更新)
1、升级MQ编辑器,加入数字
2、对局部计算{}符号兼容支持,可以输入,仍然转换<>
3、强制对V1.2模板进行数据结构重新设置,并写入1.3模板标志。
    V1.3.0.20版本已经设置过的也会强制要求重新设置,因为上一个版本没有写入标志,点下确定即可。
4、21:30分修复一个小bug,由第3点的功能引起的。在这之前下载的请重新下载
MQ Cal工程通用算量计算式V1.3.0.20(完善版本)
相比1.2.8.10新增功能:
1、增加任意汇总,快捷键Ctrl+4调出,或者右键,或者菜单汇总里面调出
2、增加对次计算式备注的支持,用{次列0}标注,对引用的结果列,请勿使用此符号。需要备注或者输入计算式的次计算列才需要使用此符号。
3、增加格式计算,快速计算对次计算式进行计算
4、增加如次计算式有{列名0}标志的列,可以调出mq编辑器 和 插入函数(同主计算式功能)
5、星级汇总和汇总、分表汇总一样可以支持反查数据来源。F6调出反查菜单,增加对次结果反查。
6、1.2.1-1.2.8的模板需要重新设置模板 关键列参数并保存,就可适合1.3.0程序。
优化功能:
1、提升批量计算的速度,特别是次计算式和格式计算
2、关键列可以任意指定,不需要连续的列。(1.2.8的模板需要重新设置模板参数)
3、星级汇总功能提升到星三级汇总。如果你熟练使用星级分类,星级汇总将得到你想汇总的数据,请仔细参考压缩包带的星分级算量文件。
4、优化反查窗体,更加方便易用,并且对次结果一并支持反查
5、汇总速度优化
6、其他诸多优化
本版本功能齐全,实用,适合任意场景工程的计算式算量。可以设计任何样式的计算式模板文件。所谓的次计算就是在一行实现多个计算规则并得出结果。
本版本公开发布,是为还需要手工算量的预算员(如安装、装饰等还需要大量手工算量)送的一份夏日清爽福利,也请各位积极反馈bug。
本版本是对MQcal通用算量发布1年半集大成的一个里程碑重要版本。
实现了诸多重要功能
如:安装常常需要的一行多计算规则,多结果,多结果汇总
       任意方式的汇总
       所以汇总的数据的反查
       重要的星级分类 和 星级汇总 及反查。
       星分类得关键词需要填写在第一个关键列上。如关键列是B,C,D 则,星分类内容在B列书写。
       星分类最大支持7级,汇总支持3级。
      星分类是对模板 关键项目的重要补充(你不可能设计一个超多关键项得模板,星分类相当于是在行上得关键项目),善于使用星分类,将实现你需要的任何量的汇总统计!
      星分类可以按照对方的要求来将工程量分类,并体现在星级汇总里面。是继表分类后特别重要的功能。所以论坛里网友提出的诸如汇总,项目设置的问题都可以解决,但首先你得会使用星分类(请参照本程序压缩包得星级算量文件MQ Cal工程通用算量计算式v1.3水计算式多计算式多结果星分类_示例模板_23.6.20.xlsx

MQ Cal工程通用算量计算式V1.3.0.50P_Xlam.zip

1.48 MB, 下载次数: 106

2023.8.2更新

TA的精华主题

TA的得分主题

 楼主| 发表于 2022-1-15 20:00 | 显示全部楼层

TA的精华主题

TA的得分主题

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

动画005.gif

完善 代号 功能。
1,删除代号,名称也删除,多个计算sheet同时运作不会出任何错误。
2,代号相关的名称增加删除都是全自动的。在代号列点击一下就自动触发

===========================================
以上功能已经定性,关于汇总同计算一样适合任何表格,我还没有思路,欢迎提供,后期再完善。

汇总建议 excel的透视表 功能

MQ通用计算式-增加代号功能.rar

53.25 KB, 下载次数: 63

代号功能完善

TA的精华主题

TA的得分主题

发表于 2022-1-17 11:51 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
学习到了,非常感谢

TA的精华主题

TA的得分主题

 楼主| 发表于 2022-1-18 16:34 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
2022.1.18版本
增加功能:
1、大于255字符,有代号的计算式也计算正确
2、增加计算式表格判断 计算式 标题 含有 计算式 三字即可。
3、增加Ctrl+Q一键快算本sheet(只算当前活动的sheet计算式)
4、更改了计算过程名CC为CCal,如果移植,需要复制所有的代码

MQ通用计算式20220118.rar

57.31 KB, 下载次数: 47

TA的精华主题

TA的得分主题

 楼主| 发表于 2022-1-20 09:13 来自手机 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
我正在增加的几个功能
1,一键格式化计算式并重算所有
2,代号在计算式中增加结果显示,使用上标方式。这样兼容wps.拼音方案wps不支持。
3,用大括号{}进行计算式局部计算,在计算式里用上标显示。也是为了兼容wps.
4,汇总已经有些思路了。只是思路。1-3功能基本完成,测试好了再发上来。

TA的精华主题

TA的得分主题

 楼主| 发表于 2022-1-22 17:30 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
汇总功能写出来,最后再发一次最新版本,之后本帖就完结。
2022,1,22
1、优化以前的功能,更改bug
2、增加单位上标
3、增加计算式模板:在sheet处点右键 取消隐藏 可以编辑修改
4、增加按照模板新建计算式表格 直接在sheet 处点击 插入新工作表(Ctrl+F11)
5、增加打印自动设置
6、错误结果红色提示

2022,1.20
增加功能:
1、Ctrl+Q Q代表Quick 快速重新计算
2、Ctrl+E E代表编辑 编辑单元格式,格式化计算式并计算 因为格式化不能在内存中处理好数据一次写入单元格
          故本方法是一行行处理计算式。弊端:速度慢 好处:代号的值会依照先后处理正确
          确定这个,快捷键考虑到左手操作方便,而且视乎Excel在sheet界面没有这个快捷键冲突。
3、重大功能更新
   3.1、支持{1+2+3}单独出结果,结果上标,便于局部算量
   3.2、支持代号自动将结果上标在后上方,方便查看代号的值
   熟悉MQ计算稿的都知道,本来是用微软拼音方案标注的,这样在正上方,效果更好。
   但是WPS不支持微软拼音方案(版权因素?)
   故采用上标方案,这样WPS合Excel都能兼顾。经测试wps下完全正常。
4、增加1,2功能的状态栏提示。很多高手都不建议搞这个,但相信我,该提示已经最大限度的减少资源的耗费。可以忽视
   这个状态栏提示对资源的消耗。
5、代号功能 (本通用计算表的代号使用Excel自己的名称方式 点击 公式->名称管理器 即可看到)
   使用方法:a、在代号栏输入:代号 会自动 变 <代号>,在代号栏 删除 <代号>,代号名称会自动删除
             b、在计算式栏,双击编辑状态 按F3,会出现代号列表,其实就是名称列表。在计算式编辑直接输入《代号名》会自动转换为<代号名>
             c、名称的作用就是引用数据,因此用在代号上数据准确有保障。本程序只是把代号建立名称,删除名称的过程自动化了。
6、其他:a、修复一些bug、调整一些代码
         b、如果不小心按了Ctrl+W(微软的关闭工作表,不退Excel),导致快捷键失效,点取消后,任意双击计算式表恢复快捷键。

综上,本通用计算表的功能基本完善。适合了大多数人的需求。类似像MQ工程量计算稿那种下划线,加粗自动计算,个人认为有些华而不实。用大括号{}就可以了,没必要搞得很复杂,这样程序得计算处理字符得难度很大,处理速度很慢。

2022.1.18版本
增加功能:
1、大于255字符,有代号的计算式也计算正确
2、增加计算式表格判断 计算式 标题 含有 计算式 三字即可。
3、增加Ctrl+Q一键快算本sheet(只算当前活动的sheet计算式)
4、更改了计算过程名CC为CCal,如果移植,需要复制所有的代码
===================================
2022.1.16
最初版本:
功能说明:
1、自由确定计算书中的 计算式、工程量、倍数、代号的列位置
2、支持备注,格式【这里是备注中英数字都可】[这里是备注中英数字都可]---这样你无需转换输入法
   支持自由设置备注、代号颜色
3、支持中文的加减乘除符号 例如:5+6-7×4÷6
4、支持Excel自己的函数
5、支持容错的一些写法:如 ()等于()---这样你无需转换输入法
6、代号支持自动增加〈〉,例如:在代号列输入 代号 会自动变 〈代号〉,计算式中《》自动变〈〉---这样你无需转换输入法。
   但是计算式中的英文<>不会变中文〈〉
   代号在计算式中插入方法:双击计算式编辑状态按F3选择
7、计算式式自动触发工作的,触发方式:
   1)选择工程量列某一个单元格
   2)编辑计算式后
   3)编辑倍数后
8、对于笔记本电脑无数字键盘的,在计算式输入= 会自动转换为 + 号,免得你按shift

Snipaste_2022-01-22_17-24-19.png
Snipaste_2022-01-22_17-25-19.png
Snipaste_2022-01-22_17-25-38.png

MQ通用计算式20220122.rar

103.72 KB, 下载次数: 43

TA的精华主题

TA的得分主题

 楼主| 发表于 2022-1-23 17:27 | 显示全部楼层
2022.1.23 下午
1、汇总完成。
   完全自动适应设置的汇总的计算项目(可以1~多个)
   特别提醒,不需要在汇总关键项目设置,单位是自动加入汇总的关键项目的。
   比如:计算项目1     计算项目2      单位       工程量
            模板                   首层          m          10
            模板                   首层          m2          12
   会认为是2个不同的汇总条件。
   汇总关键项目可以自己设定!设定相关的列名即可。
   这个要适应列自由设定的汇总太难了。速度还也可。
   测试机器(8年前老笔记本):
   win8.1 64+8GDDR3+cire I3 2代处理器1.5GHZ(垃圾处理器)+excel 2010 网络精简版
   10个sheet,共8万数据,汇总条目1700+,用时1秒
   多sheet自动汇总 alt+F8 执行 sumAll
   汇总程序多次修改,主要是适应 汇总条件 自动列太麻烦。如果是固定列的表格,那就简单多了。
   汇总用了数组,字典、字符串多种组合方式
   另外,调试汇总功能时,调试过程中设置的边框区域太大,导致文件太大(格式的原因?反正文件突然增加了)
   在意这个的,复制程序到新建xlsm文档。
2、关键项目(参与汇总)数据有效性改根据输入自动生成,不用再设置。
2、修复bug。
Snipaste_2022-01-23_17-05-24.png
2022,1,22
1、优化以前的功能,更改bug
2、增加单位上标
3、增加计算式模板:在sheet处点右键 取消隐藏 可以编辑修改
4、增加按照模板新建计算式表格 直接在sheet 处点击 插入新工作表(Ctrl+F11)
5、增加打印自动设置
6、错误结果红色提示

2022,1.20
增加功能:
1、Ctrl+Q Q代表Quick 快速重新计算
2、Ctrl+E E代表编辑 编辑单元格式,格式化计算式并计算 因为格式化不能在内存中处理好数据一次写入单元格
          故本方法是一行行处理计算式。弊端:速度慢 好处:代号的值会依照先后处理正确
          确定这个,快捷键考虑到左手操作方便,而且视乎Excel在sheet界面没有这个快捷键冲突。
3、重大功能更新
   3.1、支持{1+2+3}单独出结果,结果上标,便于局部算量
   3.2、支持代号自动将结果上标在后上方,方便查看代号的值
   熟悉MQ计算稿的都知道,本来是用微软拼音方案标注的,这样在正上方,效果更好。
   但是WPS不支持微软拼音方案(版权因素?)
   故采用上标方案,这样WPS合Excel都能兼顾。经测试wps下完全正常。
4、增加1,2功能的状态栏提示。很多高手都不建议搞这个,但相信我,该提示已经最大限度的减少资源的耗费。可以忽视
   这个状态栏提示对资源的消耗。
5、代号功能 (本通用计算表的代号使用Excel自己的名称方式 点击 公式->名称管理器 即可看到)
   使用方法:a、在代号栏输入:代号 会自动 变 <代号>,在代号栏 删除 <代号>,代号名称会自动删除
             b、在计算式栏,双击编辑状态 按F3,会出现代号列表,其实就是名称列表。在计算式编辑直接输入《代号名》会自动转换为<代号名>
             c、名称的作用就是引用数据,因此用在代号上数据准确有保障。本程序只是把代号建立名称,删除名称的过程自动化了。
6、其他:a、修复一些bug、调整一些代码
         b、如果不小心按了Ctrl+W(微软的关闭工作表,不退Excel),导致快捷键失效,点取消后,任意双击计算式表恢复快捷键。

综上,本通用计算表的功能基本完善。适合了大多数人的需求。类似像MQ工程量计算稿那种下划线,加粗自动计算,个人认为有些华而不实。用大括号{}就可以了,没必要搞得很复杂,这样程序得计算处理字符得难度很大,处理速度很慢。


MQ通用计算式-汇总-测试数据.rar

1.78 MB, 下载次数: 47

TA的精华主题

TA的得分主题

发表于 2022-1-23 18:25 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2022-1-23 21:44 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖最后由 mythqiu 于 2022-1-23 23:45 编辑
前进者 发表于 2022-1-23 18:25
造价人中的VBA高手啊,学习学习!

欢迎,这个代码简单明了,适合学习,连工程密码都没有。
修复:
修复bug。修复sheet名称很特殊时不能自动删除没有的名称bug。
   比如以下几种状况:
   a、表名称中有-符号
   b、更加奇葩的表名中有!$符号。

2022.1.23 下午
上一个大数据测试版本审核一直没出来。不知道为什么。
1、汇总完成。
   这个要适应列自由设定的汇总太难了。速度还也可。
   测试机器(8年前老笔记本):
   win8.1 64+8GDDR3+cire I3 2代处理器1.5GHZ(垃圾处理器)+excel 2010 网络精简版
   10个sheet,共8万数据,汇总条目1700+,用时1秒
   多sheet自动汇总 alt+F8 执行 sumAll
   汇总程序多次修改,主要是适应 汇总条件 自动列太麻烦。如果是固定列的表格,那就简单多了。
   汇总用了数组,字典、字符串多种组合方式。
   另外,调试汇总功能时,调试过程中设置的边框区域太大,导致文件太大
   在意这个的,复制程序,新建文档。
2、关键项目(参与汇总)数据有效性改根据输入自动生成,不用再设置。
3、算量界面增加一个选择,暂时屏蔽自动计算,方便复制粘贴。计算式标题下拉
4、修复bug。


MQ通用计算式v1.0.0.rar

84.43 KB, 下载次数: 43

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

本版积分规则

关闭

最新热点上一条 /1 下一条

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

GMT+8, 2024-4-22 18:41 , Processed in 0.052188 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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