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

yuandjing

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

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

walker1020

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

rivermen

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

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

yuandjing

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

yuandjing

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

powers_lee

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