VB实现自动生成统计图表

方案主要解决如何通过按钮一次完成实现

表格自动生成统计图表。

使用对象

需要统计出各种直方图、饼图、趋势图需要的人员。

功能概述

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 源码

Sub MacroName()

'

' MacroName Macro

' 要求饼图中显示内容和比率

'

' 快捷键: Ctrl+a

'

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

End Sub

4.如果考虑全量考量数据，既有总量/分项数值，又具有百分比，可以使用条状图表示。

附：VB 源码

Sub Macro Name()

'

' MacroName Macro

' 条状图比率，且无设置数据标签

'

' 快捷键: Ctrl+a

'

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 //图表上下宽度

End Sub

5．如果需要条状图分别显示内容和比率（即含有设置数据标签）。

例如：

表-5

效果图：

图-4

附：VB 源码

Sub Macro Name()

'

' MacroName Macro

'要求条状图中显示内容和比率

'

' 快捷键: Ctrl+a

'

Range("A1:C8").Select //定义表格范围例如上图

ActiveSheet.Shapes.AddChart.Select //选择插入图表

ActiveChart.SetSourceData Source:=Range("'Sheet1'!$A$1:$C$8")//

ActiveChart.ChartType = xlBarStacked100 //调用图表中的条状图

ActiveChart.ApplyLayout (1) //选择格式

ActiveChart.ChartStyle = 26 //选择式样

ActiveChart.ClearToMatchStyle

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

ActiveSheet.ChartObjects("图表 1").Activate //选择生成的图表

Application.Left = 82.75 //图表左右长度

Application.Top = 15 //图表上下宽度

End Sub

相关文章