一个通用的EXCEL工程量计算表

laisme888

老师能否写个帖子介绍下如何将excel文件转换为exe安装文件的形式？

cbtaja

妙风 发表于 2016-9-1 16:30
楼主，对于撤销功能失效的问题可以解决吗？

代码已经考虑了对撤消功能的影响问题，具体使用方法如下：

      当你需要长时间进行数据输入或编辑，可以先执行“设置选项”宏，在对话框中把“开启自动宏功能”前的对勾取消掉。这样，自动宏就处于关闭状态，不会影响撤消功能了。

四棠棠

真是捡到宝贝了，谢谢楼主无私分享，虽然不会用，慢慢琢磨着吧，谢谢！请教一下，能不能把计算式用文字表达出来，举个简单的例子：层高4.8，梁高：0.3，则内墙净高：计算式是：层高-梁高  ，结果：4.5  。

曾焱

强！！！
下载学习

472254304

老师那个[]变颜色怎么搞的

cbtaja

472254304 发表于 2017-1-9 11:14
老师那个[]变颜色怎么搞的

“[]”之内一般都是注释文字，在公式计算时，是要把它们忽略掉的，所以，首先就要把它们定位出来。
而对文字中特定规律的文字定位的方法，最适合的就是使用“正则表达式”。我的代码中用的就是这种方法。
既然上面已经能定位每个成对的“[]”了，同时，顺便也就能让它们的字体改变颜色了。

472254304

cbtaja 发表于 2017-1-9 11:32
“[]”之内一般都是注释文字，在公式计算时，是要把它们忽略掉的，所以，首先就要把它们定位出来。
而对 ...

老师，可以把这个代码发给我吗

cbtaja

472254304 发表于 2017-1-9 11:37
老师，可以把这个代码发给我吗

举例来说:
要把单元格A1中第2个字符开始的连续3个字符设置为蓝色，代码就是：

Range("A1").Characters(Start:=2, Length:=3).Font.Color = vbBlue

本模板表格的VBA代码中已经有具体的应用，你在其中查找“Characters”，就能找到了

472254304

cbtaja 发表于 2017-1-9 11:47
举例来说:
要把单元格A1中第2个字符开始的连续3个字符设置为蓝色，代码就是：

是这个吗，但是我复制过去，运行宏就运行不了了

cbtaja

这就是核心的代码。
它只是一个函数，所以还需要在其它Sub过程中引用，并且提供一个（或一列连续的）单元格作为参数，才能得到一个去除了注释内容的算式字符串或者字符串数组（同时，它将对被引用的单元格内注释字符串设置字体颜色）。

然后，用Evaluate函数对所得到的算式字符串进行计算，并处理该算式中的不规范问题造成的错误信息，才能够得到算式的最终计算值。