Excel中的一个优势就是对数据进行有序管理,那统计就是组数据的相关性组合计算,通过一定的逻辑处理,加以图表进行显示,整合效果就显得十分明显了。
上图为本文介绍的内容,以设备故障管理为例,进行数据统计管理。
根据设备信息进行相关分类统计,得出一个图表结果,很直观地将数据内含表达出来。
如下图所示,选择不同的关键字,可以显示相应的统计数据和图表样式,最终达到数据可视化的结果。
同时,在进行设备故障记录的时候,增加了图片功能,可以记录和上传相应的故障图片,更好地作数据记录。
本应该也是为完善以前的一个而重新编码的一个应用,在吸取一些经验和不足这后,完成了一个更加人性化和可视化的一个设备故障管理行为记录管理过程。
通过增加一些公共变量设置,提高了应用执行的灵活性,也是一个不小的提高。
下面给出一段过程函数,以增加学习的内容性。
设置图片过程
Private Function SetxPic(xStr As Variant, Lobj As Object) As Boolean
SetxPic = False
On Error Resume Next
'创建统计图表
Dim x As Worksheet, s As Worksheet, c As Chart
Set x = GetSheet(xSheetCount)
Set s = GetSheet(xSheetM)
Set c = ThisWorkbook.Charts("统计图表")
x.Cells.Clear
Dim ir As Long, ic As Long
ir = 1
ic = s.Cells(ir, s.Columns.Count).End(xlToLeft).Column
If ic <= 1 Then Exit Function
With x.Cells(1, 1)
.Value = "序号"
.Offset(0, 1).Value = xStr
.Offset(0, 2).Value = "数量"
End With
x.Cells(2, 1).Resize(Lobj.ListCount, 3).Value = Lobj.List
c.ChartTitle.Text = xStr
c.SetSourceData Source:=x.Range("A2:C6")
c.Export xPic(xStr)
SetxPic = True
Set c = Nothing
Set s = Nothing
Set x = Nothing
End Function
返回并设置统计数据列表过程
Private Sub Getxlist(xStr As Variant, Lobj As Object)
'返回并设置统计数据列表.
On Error Resume Next
With Lobj
.AddItem
.List(0, 0) = "序号"
.List(0, 1) = xStr
.List(0, 2) = "数量"
.List(0, 3) = "故障率"
End With
Dim larr, li As Long
larr = GetsList(xStr)
For li = LBound(larr) To UBound(larr)
With Lobj
.AddItem
.List(li + 1, 0) = li + 1
.List(li + 1, 1) = larr(li)
.List(li + 1, 2) = GetxCount(sComIc(GetIc(xStr)), larr(li)) '返回统计值
End With
Next li
Erase larr
End Sub
上述示例都具有相关内容设置的关联性,如果直接使用将不能实现想要的效果,建议对代码有一个清晰的了解之后再进行使用。
联系客服