51Testing软件测试论坛

标题: 请教各位，如何改变Excel单元格填充颜色？ [打印本页]

作者: yuandjing 时间: 2007-8-28 09:04
标题: 请教各位，如何改变Excel单元格填充颜色？
请教各位，如何改变Excel单元格填充颜色？
唉，自己摸索了半天，只能改变字体颜色，代码如下：
'改变Excel的单元格颜色
Public Function QTP_Change_Color(pathway,sheetname,x,y)
Dim srcData,srcDoc,sp1,sp2,num,use,a1,a2,a3
set srcData = CreateObject("Excel.Application")
srcData.Visible = True
set srcDoc = srcData.Workbooks.Open(pathway)
srcDoc.Worksheets(sheetname).Activate
srcDoc.Worksheets(sheetname).Cells(x,y).Font.Color = vbRed '就是这句话

Dim WshShell
Set WshShell=CreateObject("Wscript.Shell")
WshShell.SendKeys "^s"
wait(1)

srcData.Workbooks.Close
Set srcDoc = nothing

Window("text:=Microsoft Excel").Close
End Function
我想改变的是填充颜色，有个什么fillformat.backcolor
但是搞了半天搞不定，请各路高手指点迷经

作者: yuandjing 时间: 2007-8-28 09:07
最近想用读Excel数据作为测试用例，最后改写单元格填充颜色作为测试输出结果玩玩

作者: walker1020 时间: 2007-8-28 09:13
呵呵！不错！有想法！这个要看 Excel里面有没有实现你说的效果的方法了。

作者: rivermen 时间: 2007-8-28 09:27
If Browser("都视网 www.dusee.cn 首页视频短片").Dialog("Microsoft Internet Explorer").Exist Then
            info= browser("都视网 www.dusee.cn 首页视频短片").Dialog("Microsoft Internet Explorer").GetVisibleText
            Browser("都视网 www.dusee.cn 首页视频短片").Dialog("Microsoft Internet Explorer").WinButton("确定").Click
            reporter.ReportEvent 1,"登录状态","登录失败：" & info
            wkSheet.cells(i,3)="log in fail"
            wkSheet.cells(i,3).font.color=vbblack
            wkSheet.cells(i,3).Interior.color=vbred
      else
            reporter.ReportEvent 0,"登录状态","登录成功！"
            wkSheet.cells(i,3)="log in successfully"
            wkSheet.cells(i,3).font.color=vbblack
            wkSheet.cells(i,3).Interior.color=vbblue
End If

作者: walker1020 时间: 2007-8-28 09:28
rivermen 真是高手呀。既然能写出来wkSheet.cells(i,3).Interior.color=vbblue，我想楼主的问题就解决了大半了。

作者: yuandjing 时间: 2007-8-28 09:55
今天上班挺忙的，谢谢rivermen 兄，我中午吃饭的时候试一下

作者: yuandjing 时间: 2007-8-28 10:50
试过了，成功了，感谢rivermen兄的指点

作者: powers_lee 时间: 2008-9-13 10:33
标题: 用得了这么烦吗？
(1)选中需要设置的区域。　　(2)单击“格式→条件格式”，打开“条件格式”对话框，设置“单元格数值”为“小于”60。
　　(3)单击[格式]按钮，打开“单元格格式”对话框，在“字体”标签中设置字体颜色为红色，在“图案”标签中设置单元格底纹颜色为蓝色，单击[确定]后退出。
　　(4)单击[确定]按钮退出“条件格式”窗口，这样成绩小于60分的单元格就变为了蓝底红字格式，突出显示出来了。
　　比较这两种方法，第二种方法更科学，因为第一种方法对单元格的设置是“死”的，不能自动进行变化，而第二种是“活”的，可智能化处理，可随着区域内不及格成绩的增加或减少，自动改变设置。

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)