工程量计算表格

125675117

mythqiu 发表于 2022-1-4 23:03
主要是加载宏分离版本：
      消灭了自己测试出来的错误。加载宏加载的情况下，没有打开正确的数据模板， ...

好难，不会使用

mythqiu

125675117 发表于 2022-1-5 11:06
好难，不会使用

很简单，你多观察一下例子就明白了。
小分类以$在序号开头。在实际工程中建议
1,一个sheet表做一个楼
2,计算项目和量归类是小计总计的必要条件，目的是使一个大范围的量，比如模板量，可以细分为墙，柱，梁，板细分的模板量。
其他砼量，抹灰量同样的道理。
计算项目需要结合工程合同的清单来确定。
3，如果你有预算的实际经验，一定明白我说的什么。
4，以上只是建议，具体计算项目细化到什么程度，需要根据实际需要。最佳方式按照合同清单。
然后在添加分类符号$进行下一个小项目计算

mythqiu

功能增加：
xlsm版本增加导出为xlsx，这样比直接另存为的好处是数据文件没有功能菜单。
在菜单和右键增加另存的功能。
其他：都修改了以下菜单和右键菜单

125675117

mythqiu 发表于 2022-1-5 15:26
很简单，你多观察一下例子就明白了。
小分类以$在序号开头。在实际工程中建议
1,一个sheet表做一个楼

谢谢！真佩服你！！！

嚒⒋ā

建议增加一个取消右键功能的功能，因为现在右键有好多EXCEL原本有的功能被替换掉了不方便找

mythqiu

嚒⒋ā 发表于 2022-1-11 13:23
建议增加一个取消右键功能的功能，因为现在右键有好多EXCEL原本有的功能被替换掉了不方便找

这个功能可以增加。初步想法在 设置里面增加 一个使用excel本身右键功能 的选项。

yy6831817

三年多了，还在更新，给个赞计算式中出现无效代码（J列中找不到有代码）时计算结果不正确

yy6831817

现在工程中计算模板砼基本都是用软件计算，只有在零星项目中用到表格计算
你做的表格已关注多年，界面有点复杂，借你表格自己东凑西借拼出这简单表格（自用），由于是 VBA程序小白表，好多问题无法解决，求老师出手，能否给于调整（附件158楼），谢谢

表格存在问题：
1、当计算式中代码在K列中找不到时，会出现计算卡死和计算结果错误问题（没办法只能加了个关闭按键与多个计算结果对比），调整后达到出现无效代码返回空值
2、《窗口 》输入时最后一行代码插入显示不正常                                                     
3、导出表格时数量为空
希望加入功能
1、右键能加入行上下移动（不影响公式）功能

mythqiu

yy6831817 发表于 2022-1-14 10:25
现在工程中计算模板砼基本都是用软件计算，只有在零星项目中用到表格计算
你做的表格已关注多年，界面有点 ...

1. 
   

复制代码

'代码显示内容

Private Sub ShowDhFrm(pg As Long)
'代号窗体功能 初版 2018年9月3日
'更新 增加翻页 功能
    On Error Resume Next
    Dim Rd(), RowCurr&, JRend&, i&, RDH(), Ui&, j&, St$, k&, Po As Range
    Const DataPage = 9 '每页数量 和窗体按键一致
    RowCurr = ActiveCell.Row: JRend = [H65536].End(3).Row
    If RowCurr = 0 Then
        RowCurr = JRend
    ElseIf RowCurr > JRend Then
        RowCurr = JRend
    End If
    Rd = Range("k4:k" & RowCurr - 1): Ui = UBound(Rd): j = 0
    For i = Ui To 1 Step -1
        If Len(Rd(i, 1)) > 2 And Left(Rd(i, 1), 1) & Right(Rd(i, 1), 1) = "<>" Then
            j = j + 1
            ReDim Preserve RDH(1 To 1, 1 To j)
            RDH(1, j) = Rd(i, 1)
            If j >= 80 Then Exit For           '只取前120个代号
        End If
    Next
    If j Mod DataPage = 0 Then k = j \ DataPage Else k = j \ DataPage + 1        '设置翻页
    If j = 0 Then k = 1
    Page = pg
    ReDim Preserve RDH(1 To 1, 1 To k * DataPage)
    Rem 初始化按键
    With Me
        For i = 1 To DataPage Step 1
          .Controls("CB" & i).Caption = "空": .Controls("CB" & i).Enabled = True
        Next i
        For i = 1 To DataPage Step 1
          If Len(RDH(1, (Page - 1) * DataPage + i)) Then .Controls("CB" & i).Caption = RDH(1, (Page - 1) * DataPage + i): .Controls("CB" & i).ControlTipText = "" & (Page - 1) * DataPage + i & "#代号:" & RDH(1, (Page - 1) * DataPage + i) Else .Controls("CB" & i).Enabled = False
        Next i
        If Page = 1 Then .CBt1.Enabled = False Else .CBt1.Enabled = True
        If Page = k Then .CBt2.Enabled = False Else .CBt2.Enabled = True
    Erase Rd, RDH
    End With
End Sub
修改了红色的地方。代号可以正常显示第一页、翻页页有问题。不知道问题在那里，这个代码我很久都没动过了
另外，你的表格计算在我的2016上完全不正常。窗口代码视乎也有改动，也不知道你的计算是怎么搞的，无从下手。

yy6831817

谢谢老师。。跟你说的一样翻页不行，我用的是WPS2019，现在就是带代码计算还有点错