材料统计表表格怎么做,材料清单明细表怎么制作

首页 > 生活 > 作者:YD1662024-12-19 13:47:10

生产车间制造产品,不可避免要损耗能源,包括各种原材料,如果对这些能源及源材料进行合理统计,那么对于产品的产出就有了一个清晰的了解,是决策层最想知道的信息,统计就显得尤为重要。

材料统计表表格怎么做,材料清单明细表怎么制作(1)

本节就以原料消耗为主制作一个统计表,分别对每天的原料进行统计,包括电、气、水等等。

其功能是实现信息录入,月表保存,打印,以及月度统计等操作。

具体可参考下图:

材料统计表表格怎么做,材料清单明细表怎么制作(2)

信息录入,根据每日录入一次,选择部门,自动筛选出要录入的车间信息。

其中有一些数据计算,这里不做介绍了,由于每个实际生产情况不同,计算公式要相应修改。

材料统计表表格怎么做,材料清单明细表怎么制作(3)

如下统计函数:

Private Function GetEtCount(tObjName As String) As Double Dim s As Worksheet, R As Range, Rx As Range Set s = ThisWorkbook.Worksheets("设置") Set R = s.Range("C2:C20") Set Rx = R.Find(tObjName) If Not Rx Is Nothing Then GetEtCount = Rx.Offset(0, 1).Value Else GetEtCount = 1 End If Set s = Nothing Set R = Nothing Set Rx = Nothing End Function

根据ComboBox控件的值来选择Pages页,进行而对其中的TextBox进行数据计算。然后添加到表中相应位置。

Private Sub CommandButton1_Click() If VBA.Len(VBA.Trim(Me.ComboBox2.Value)) = 0 Then Exit Sub Dim ic() Select Case Me.ComboBox1.ListIndex Case 0 '部门 ic = Array(6, 5, 0, 7) '电列号,水,蒸气,天然气 Case 1 ic = Array(12, 11, 13) ' Case 2 ic = Array(18, 17) ' Case 3 ic = Array(24, 0, 25) End Select Dim R As Range Dim xC As Integer For xC = 0 To UBound(ic) If ic(xC) <> 0 Then Set R = Cells(Me.ComboBox2.Value 5, ic(xC)) R = GetPagesValueSum(xC) End If Next xC ThisWorkbook.Save MsgBox "添加成功!", vbInformation, "提示" Set R = Nothing End Sub

其实,实现过程很复杂,看上制作了一个简单表,实际上需要考虑很多逻辑思路,只有逻辑通了,也就实现了自动化操作。

欢迎关注、收藏

---END---

,

栏目热文

文档排行

本站推荐

Copyright © 2018 - 2021 www.yd166.com., All Rights Reserved.