简单而通用的工程类计算式算量表格

mythqiu

曾经写了一个工程算量表格，获得了本论坛的有缘人喜爱。但时过境迁，日前表格算量也是末路，只能作为小型工程使用。或者图形算量的补充。

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


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

参数设置

设置




补充内容 (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 网盘分享已经失效

bbsy83

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

mythqiu

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）

mythqiu

主贴提到的曾经的一个算量表格：https://club.excelhome.net/forum ... 61&pid=10873751

mythqiu

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

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

汇总建议 excel的透视表 功能

weisen720

学习到了，非常感谢

mythqiu

2022.1.18版本
增加功能：
1、大于255字符，有代号的计算式也计算正确
2、增加计算式表格判断 计算式 标题 含有 计算式 三字即可。
3、增加Ctrl+Q一键快算本sheet（只算当前活动的sheet计算式）
4、更改了计算过程名CC为CCal，如果移植，需要复制所有的代码

mythqiu

我正在增加的几个功能
1,一键格式化计算式并重算所有
2,代号在计算式中增加结果显示，使用上标方式。这样兼容wps.拼音方案wps不支持。
3,用大括号{}进行计算式局部计算，在计算式里用上标显示。也是为了兼容wps.
4,汇总已经有些思路了。只是思路。1-3功能基本完成，测试好了再发上来。

mythqiu

汇总功能写出来，最后再发一次最新版本，之后本帖就完结。
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

mythqiu

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。

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工程量计算稿那种下划线，加粗自动计算，个人认为有些华而不实。用大括号{}就可以了，没必要搞得很复杂，这样程序得计算处理字符得难度很大，处理速度很慢。

前进者

造价人中的VBA高手啊，学习学习！

mythqiu

前进者 发表于 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。