大佬教程收集整理的这篇文章主要介绍了VB实现自动生成统计图表，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。
点击链接加入QQ群 522720170（免费公开课、视频应有尽有）：https://jq.qq.com/?_wv=1027&k=5C08ATe
方案主要解决如何通过按钮一次完成实现
表格自动生成统计图表。
需要统计出各种直方图、饼图、趋势图需要的人员。
1.自动选择表格，自动化生成统计图表。
2.自动设置图表式样、格式
3.设置按钮，满足‘一键完成统计图表’
图1
图2
优势1：扩展了TD REQUIREMENT功能，提供具体需求-用例覆盖数值（覆盖率）。
优势2：便于需求管理，实时评估测试用例是否符合标准“100%覆盖产品需求”。
优势3：增加字段，符合项目需求列表特性。
1.原始表格
以TD数据库定期导出的‘History_bug.xls’为例
表2
2.在EXCEL调用VB,实现筛选Reopen记录的功能
效果图：
表3
附：VB编码
Sub MacroName()
'
' MacroName Macro
' 快捷键: Ctrl+a
Columns("G:G").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(""Reopen"",History_bug!$A$2:$G$2000,7,False)"
//添加筛选公式
End Sub
3通过一键‘按钮1’，自动生成报告图表。
例如
表-4
图-3
附：VB 源码
' 要求饼图中显示内容和比率
Range("A1:A13,B1:B13").Select //定义列表范围
Range("B1").Activate //调用Excel插入图表功能
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range( _
"'Sheet1'!$A$1:$A$13,'Sheet1'!$B$1:$B$13")
ActiveChart.ChartType = xlPie //调用图表中的饼图功能
ActiveChart.ApplyLayout (1) //饼图设计
ActiveChart.ChartStyle = 26 //饼图格式
ActiveChart.ClearToMatchStyle
4.如果考虑全量考量数据，既有总量/分项数值，又具有百分比，可以使用条状图表示。
Sub Macro Name()
' 条状图比率，且无设置数据标签
Range("A1:C8").Select //定义列表范围
ActiveSheet.Shapes.AddChart.Select //选择插入图表
ActiveChart.SetSourceData Source:=Range("'Sheet1'!$A$1:$C$8")
ActiveChart.ChartType = xlBarStacked100 //调用图表中的条状图
ActiveChart.ApplyLayout (1)
ActiveChart.Axes(xlValue).Select //打开横轴x轴编辑框
ActiveChart.Axes(xlValue).MajorUnit = 0.1
ActiveChart.Axes(xlValue).MajorUnit = 0.02 //定义横轴的刻度
ActiveSheet.ChartObjects("图表 1").Activate
Application.Left = 82.75 //图表左右长度
Application.Top = 15 //图表上下宽度
5．如果需要条状图分别显示内容和比率（即含有设置数据标签）。
例如：
表-5
图-4
'要求条状图中显示内容和比率
Range("A1:C8").Select //定义表格范围例如上图
ActiveChart.SetSourceData Source:=Range("'Sheet1'!$A$1:$C$8")//
ActiveChart.ApplyLayout (1) //选择格式
ActiveChart.ChartStyle = 26 //选择式样
ActiveChart.Axes(xlValue).Select //打开X轴编辑框
ActiveChart.Axes(xlValue).MajorUnit = 0.2 //X轴默认坐标值
ActiveChart.Axes(xlValue).MajorUnit = 0.02 //定义X轴坐标值
ActiveSheet.ChartObjects("图表 1").Activate //选择生成的图表
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).ApplyDataLabels //打开设置数据标签格式
ActiveChart.SeriesCollection(2).Select
ActiveChart.SeriesCollection(2).ApplyDataLabels //打开设置数据标签格式
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
End Sub
以上是大佬教程为你收集整理的VB实现自动生成统计图表全部内容，希望文章能够帮你解决VB实现自动生成统计图表所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。