比如在sheet1上面有一个按钮,点一下,修改另外一张表“差异汇总表(非展开)”的部分单元格的背景颜色,字体等设置该怎么写?我写的这样
ThisWorkbook.Sheets("差异汇总表(非展开)").Activate
With Range(Cells(1, 1), Cells(sum + 1, sum + 1))
.Interior.ColorIndex = 16
.Font.Bold = True
.HorizontalAlignment = xlCenter
End With
这样写的话还是只能修改本sheet页(sheet1)的属性,到底怎么才能跨sheet页修改字体等属性??
求大神啊,急,在线等。。。。。。。最好自己测试来个小例子也好的。。。。
我加了ThisWorkbook.Sheets("差异汇总表(非展开)").他会提示我应用程序定义或对象定义错误
如果只加Sheets("差异汇总表(非展开)").还是一样的错误 错误号1004
ThisWorkbook.Sheets("差异汇总表(非展开)").Activate
With Range(Cells(1, 1), Cells(sum + 1, sum + 1))
.Interior.ColorIndex = 16
.Font.Bold = True
.HorizontalAlignment = xlCenter
End With
上面的都不要,直接这样写看看,下面是一句。
Sheets("差异汇总表(非展开)").Range(Cells(1, 1), Cells(sum + 1, sum + 1)).Interior.ColorIndex = 16
还是不行哎
Sheets("差异汇总表(非展开)").Range(Sheets("差异汇总表(非展开)").Cells(1, 1), Sheets("差异汇总表(非展开)").Cells(2, 1)).Interior.ColorIndex = 16
cells() 这个前面也要加 Sheets("差异汇总表(非展开)").
试过了,同上错误
追答Sheets("差异汇总表(非展开)")
.Range(Sheets("差异汇总表(非展开)")
.Cells(1, 1), Sheets("差异汇总表(非展开)")
.Cells(2, 2)).Interior.ColorIndex = 16
cells也要加上Sheets("差异汇总表(非展开)").