VBA编程，数据统计方法介绍，这样管理就轻松多了-vba代码统计总数

 

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

上述示例都具有相关内容设置的关联性，如果直接使用将不能实现想要的效果，建议对代码有一个清晰的了解之后再进行使用。

欢迎关注、收藏

---END---