VBA编写的测试用例模板

使用VBA编写的可以自动统计的测试用例模版 在瀑布模型中，测试是一个非常重要的环节。测试用例和报告的编写，就成为非常重要的内容。这里使用VBA编写了一个可以自动标识颜色，自动统计项目总数，通过数，错误数，未测试项目数的excel模版。由于只能上传图片附件，这里给出截图（如图1所示），和实际的VBA代码。在实际项目中，可以按照图中所示的列和行来指定格式，并在实际结果栏添加下拉列表，内容如图2所示。 Option Explicit ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Function Name:calculate_Click 'Purpose:用来计算项目总数，未测试项目数，正常数，错误数和通过率,并填充到相应的单元格 'Author:米向阳 'Date:2011-5-10 'Change History: '2011-5-10:米向阳，建立0.1版本。 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub calculate_Click() '''''''''下面的值有可能改变，改变这些定义即可''''''''''''''''''''''''''''''''''' '根据文档中结构可以知道，最多测试项目是102个，开始从第五个开始，如果超过这个数字，需要修改该值 Dim iStart As Integer Dim iEnd As Integer iStart = 5 iEnd = 102 'strTestName表示测试内容所在sheet的名称 Dim strTestName As String strTestName = "单元测试用例内容" '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim iTotal As Integer 'iTotal表示项目总数 Dim iNot As Integer 'iNot表示未测试项目数 Dim iOk As Integer 'iOk表示正常数 Dim iError As Integer 'iError表示错误数 iTotal = 0 iNot = 0 iOk = 0 iError = 0 Dim iIndex As Integer '局部循环索引 iIndex = 0 Dim dPassRate As Double dPassRate = 0 '========================================= For iIndex = iStart To iEnd '开始判断C5到C102单元格是否不为空，不为空则total加1 If (Range("C" & iIndex).Value <> "") Then iTotal = iTotal + 1 End If Next '========================================== For iIndex = iStart To iEnd '开始判断G5到G102单元格内容是未测试，正常，错误，如果匹配，相应的变量加1 If ("未测试" = Range("g" & iIndex).Value) Then iNot = iNot + 1 Else If ("正常" = Range("g" & iIndex).Value) Then iOk = iOk + 1 Else If ("错误" = Range("g" & iIndex).Value) Then iError = iError + 1 End If End If End If Next '根据上面的数据计算通过率 If iTotal <> 0 Then dPassRate = iOk / iTotal dPassRate = Round(dPassRate, 2) Else dPassRate = 0 End If '下面将数据填入指定的单元格内 Sheets(strTestName).Select Range("I3").Select ActiveCell.FormulaR1C1 = Str(iTotal) Sheets(strTestName).Select Range("J3").Select ActiveCell.FormulaR1C1 = Str(iNot) Sheets(strTestName).Select Range("K3").Select ActiveCell.FormulaR1C1 = Str(iOk) Sheets(strTestName).Select Range("L3").Select ActiveCell.FormulaR1C1 = Str(iError) Sheets(strTestName).Select Range("M3").Select ActiveCell.FormulaR1C1 = Str(dPassRate) '调用DoJudgement函数来检查数据是否合理 DoJudgement End Sub ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Function Name: DoJudgement 'Purpose: 判断未测试数+正常数+错误数的和，是否等于总数，如果不等于，要发出警告信息 'Author:米向阳 'Date:2011-5-10 'Change History: '2011-5-10:米向阳，建立0.1版本。 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub DoJudgement() Dim iTotal As Integer '总数 Dim iNot As Integer '未测试的数目 Dim iOk As Integer '正常的数目 Dim iError As Integer '错误的数目 iTotal = Range("I3").Value iNot = Range("J3").Value iOk = Range("K3").Value iError = Range("L3").Value If iTotal <> iNot + iOk + iError Then MsgBox "请仔细检查测试用例，发现未测试的数目 + 正常的数目 + 错误的数目，和不等于项目总数！注意：如果你填写了'测试小项'，必须填写对应的'实际结果'列,如果没填写，请将'实际结果'列留空！", vbOKOnly + vbExclamation, "发现错误" End If End Sub