本文介绍一个统计表，实现简单的运行设备功率统计。
一个企业中，动设备占一定的比例，使用过程中的功率计算也是一件很重要的统计工作，可以对企业运营成本进行统计。
下面如图，制作一个统计表，实现一键统计。
首先制作一个设备信息台账表，这个根据实际情况进行整合制作，没有特别的难度。
可参考下图进行制作。
统计表
统计表以年进行选择，表中每月实现数据统计计算，右侧为图表显示样式。
在主页中，可以实现当前运行设备和停运设备的选择显示，同时将运行设备的功率进行累加统计。
下面是一些部分代码
Private Sub xCount()
'当前运行设备
Dim xCount As Double
Dim s As Worksheet
Set s = ActiveSheet
Dim ic As Long, ir As Long, icx As Long, i As Long
ic = 11
icx = 15
ir = s.UsedRange.Rows.Count
If ir <= 1 Then Exit Sub
For i = 2 To ir
If VBA.IsNumeric(s.Cells(i, ic).Value) Then
If s.Cells(i, icx).Value = "是" Then
xCount = xCount + s.Cells(i, ic).Value
End If
End If
Next i
Me.Label1.Caption = "当前运行功率：" & xCount & " Kw"
Set s = Nothing
End Sub
特定情况，也就是在运行设备较多的时候，这样的表进行统计是十分有用的，也会对生产成本计算起到关键作用。
欢迎关注、收藏
---END---
