设备运行功率统计Excel工作表这么做很实用

一个企业中，动设备占一定的比例，利用过程中的功率打算也是一件很主要的统计事情，可以对企业运营本钱进行统计。

下面如图，制作一个统计表，实现一键统计。

首先制作一个设备信息台账表，这个根据实际情形进行整合制作，没有特殊的难度。

可参考下图进行制作。

统计表

统计表以年进行选择，表中每月实现数据统计打算，右侧为图表显示样式。

在主页中，可以实现当前运行设备和停运设备的选择显示，同时将运行设备的功率进行累加统计。

下面是一些部分代码

Private Sub xCount()'当前运行设备Dim xCount As DoubleDim s As WorksheetSet s = ActiveSheetDim ic As Long, ir As Long, icx As Long, i As Longic = 11icx = 15ir = s.UsedRange.Rows.CountIf ir <= 1 Then Exit SubFor 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 IfNext iMe.Label1.Caption = "当前运行功率：" & xCount & " Kw"Set s = NothingEnd Sub

特定情形，也便是在运行设备较多的时候，这样的表进行统计是十分有用的，也会对生产本钱打算起到关键浸染。

欢迎关注、收藏

---END---