怎么用vb或vba程序把一个excel工作簿里的多个工作表特定单元格填充颜色 5
展开全部
这个很简单,问题是特定的单元格是哪些?我假设都是单元格A1,颜色填充红色。
则代码:
Sub 宏1()
Sheets("Sheet1").Select
Range("A1").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub
以上代码为将SHEET1,SHEET2以及SHEET3三个工作表的A1单元格涂成红色。
则代码:
Sub 宏1()
Sheets("Sheet1").Select
Range("A1").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub
以上代码为将SHEET1,SHEET2以及SHEET3三个工作表的A1单元格涂成红色。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |