软件测试论坛 › [51Testing软件测试沙龙] › QTP 如何设置Excel文件单元格字体样式 红色字体部分

fsweicaixia 发表于 2013-9-3 10:30:05

QTP 如何设置Excel文件单元格字体样式 红色字体部分

本帖最后由 fsweicaixia 于 2013-9-9 09:45 编辑

'************************************************************
'修改测试用例执行结果
'参数：
'测试用例文件名称
'测试用例编号
'描述：
'根据测试用例文件名称确定用例文件名称
'根据用例编号确定当前行，并对其他列输入值
'************************************************************

Function inputColumnValue(SheetName,TestCaseCode,actualvalue,statuse)
    Dim TestCaseFilePath'测试用例文件路径
TestCaseFilePath="\PM3_TestCase\TestCasesDetails.xls"
Dim M
Dim rnum'行号
Dim cnum'列号
Set oExcel = CreateObject("Excel.Application")
Set oWorkbook = oExcel.Workbooks.Open(getFolderTestDirPath& TestCaseFilePath)
Set oSheet = oWorkbook.Worksheets(SheetName)
M = oSheet.UsedRange.Count
Set oCell = oSheet.Range("B" & M).Find(TestCaseCode)'查找B列用例编号为TestCaseCode的行

If oCell Is Nothing Then
GetDataCoordinate = "Not Found"
Else
rnum = oCell.Row
oSheet.cells(rnum,9)=actualvalue‘写入数据到第rnum行第九列
oSheet.cells(rnum,10)=statuse'写入数据到第rnum行第十列'oSheet.cells(rnum,10) 如何设置字体颜色为红色

'******************问题已解决**********************
此处设置单元格字体颜色
oSheet.cells(rnum,10).Font.Color=vbred
'************************************************
End If
oWorkbook.Close
oExcel.Quit
Set oCell = Nothing
Set oSheet = Nothing
Set oWorkbook = Nothing
Set oExcel = Nothing
End Function

吼吼哈哈 发表于 2013-9-3 20:55:46

顶

fsweicaixia 发表于 2013-9-7 09:55:49

为何没反应那

fsweicaixia 发表于 2013-9-7 09:56:07

顶起来

fsweicaixia 发表于 2013-9-7 10:16:50

oSheet.cells(rnum,10).Font.Color=vbred    此问题已解决。

查看完整版本: QTP 如何设置Excel文件单元格字体样式 红色字体部分