生产车间制造产品,不可避免要损耗能源,包括各种原材料,如果对这些能源及源材料进行合理统计,那么对于产品的产出就有了一个清晰的了解,是决策层最想知道的信息,统计就显得尤为重要。
本节就以原料消耗为主制作一个统计表,分别对每天的原料进行统计,包括电、气、水等等。
其功能是实现信息录入,月表保存,打印,以及月度统计等操作。
具体可参考下图:
信息录入,根据每日录入一次,选择部门,自动筛选出要录入的车间信息。
其中有一些数据计算,这里不做介绍了,由于每个实际生产情况不同,计算公式要相应修改。
如下统计函数:
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---
,