单击一张表上的button以查看另一张表上的数据

我在“sheet1”上有一个单击button，并希望它在所有数据所在的“sheet2”上单击时执行其代码。 build议如何激活另一张纸？

我是vba的新手，在过去的几天里已经阅读了一些关于这方面的文章，但是迄今为止还没有find一个令人满意的答案，就如何尽可能简单地实现换页。 我看过像这样的东西：

Private Sub CommandButton1_Click() Worksheets("sheet2").Cells(1, 1).Value = 1 Worksheets("sheet2").Cells(2,1).Value = 1 ... End Sub 

，我必须不断地将对象的范围重新声明为“sheet2”。

Answer 1

您应该使用With和Activate或Select将使表格成为焦点。

 Private Sub CommandButton1_Click() With Worksheets("sheet2") .Cells(1, 1).Value = 1 .Cells(2,1).Value = 1 ... '/Activate the sheet .Activate End With End Sub 

Answer 2

您可以切换到sheet2 ，然后执行任何后续的命令，而不需要像这样明确提到sheet2 ：

 Private Sub CommandButton1_Click() Worksheets("sheet2").Activate 'Switch to sheet2 Cells(1, 1).Value = 1 'this change will happen in sheet2 Celss(2,1).Value = 1 'this too ... End Sub