以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何用vba设置excel单元格背景色  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=171740)

--  作者:chen_sheng
--  发布时间:2021/9/8 9:55:00
--  如何用vba设置excel单元格背景色
如何用vba实现把excel
指定区域的空白单元格  设置指定背景色

--  作者:有点蓝
--  发布时间:2021/9/8 10:03:00
--  
http://www.foxtable.com/webhelp/topics/2121.htm
--  作者:chen_sheng
--  发布时间:2021/9/8 10:41:00
--  
蓝版 有没有示例的代码可以参考  帮助的点比较分散,组合起来使用还是有点困难,这个场景比较特殊,帮忙指导一下  谢谢!
--  作者:有点蓝
--  发布时间:2021/9/8 10:48:00
--  
帮助都是

Interior

利用Range对象的Interior属性,可以设置单元格的填充颜色、背景图案和背景颜色等。如:

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\Report.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.UsedRange
With Rg.Interior
    .ColorIndex = 3\'单元格填充颜色为红色
    .Pattern = MSExcel.XlPattern.xlPatternCrissCross   \'单元格背景图案为十字图案
    .PatternColorIndex = 6 \'单元格背景颜色为黄色
End With
App.Visible = True

自己再去看看怎么通过range获取指定单元格