请教各位，如何改变Excel单元格填充颜色？

yuandjing 发表于 2007-8-28 09:04:26

请教各位，如何改变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:01

最近想用读Excel数据作为测试用例，最后改写单元格填充颜色作为测试输出结果玩玩

walker1020 发表于 2007-8-28 09:13:21

呵呵！不错！有想法！这个要看 Excel里面有没有实现你说的效果的方法了。

rivermen 发表于 2007-8-28 09:27:02

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:48

rivermen 真是高手呀。既然能写出来wkSheet.cells(i,3).Interior.color=vbblue，我想楼主的问题就解决了大半了。

yuandjing 发表于 2007-8-28 09:55:44

今天上班挺忙的，谢谢rivermen 兄，我中午吃饭的时候试一下

yuandjing 发表于 2007-8-28 10:50:52

试过了，成功了，感谢rivermen兄的指点

powers_lee 发表于 2008-9-13 10:33:01

用得了这么烦吗？

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

页: [1]

51Testing软件测试论坛 's Archiver

请教各位，如何改变Excel单元格填充颜色？

用得了这么烦吗？