Question

vba如何跨sheet页修改excel字体等属性

比如在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页修改字体等属性？？
求大神啊，急，在线等。。。。。。。最好自己测试来个小例子也好的。。。。

Answer 1

Range(Cells(1, 1)

前面加工作表名

sheet1.Range(Cells(1, 1)
sheet2.Range(Cells(1, 1)
sheet?.Range(Cells(1, 1)

追问

我加了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("差异汇总表(非展开)").

Answer 2

With Sheets("差异汇总表(非展开)").Range(Cells(1, 1), Cells(sum + 1, sum + 1))

如果这个错误，又显示1004

可考虑，是不是没有这个 Sheets("差异汇总表(非展开)") 工作表
通常我都直接写成 SHEET4 这样的

Answer 3

Range()之前加上sheet().

如该表2就SHEET2.RANGE(Cells(1, 1))

追问

试过了，同上错误

追答

Sheets("差异汇总表(非展开)")
.Range(Sheets("差异汇总表(非展开)")
.Cells(1, 1), Sheets("差异汇总表(非展开)")
.Cells(2, 2)).Interior.ColorIndex = 16

cells也要加上Sheets("差异汇总表(非展开)").

Answer 4

With Sheets("差异汇总表(非展开)").Range(Cells(1, 1), Cells(sum + 1, sum + 1))

试试这个

追问

还是一样……