Excel VBA Commandbutton Switching Worksheet如何保持相同的viewarea

Question

我在工作表上使用了一些表单控件命令按钮作为工作表之间切换的导航按钮，我的问题是导航按钮位于工作表的底部，并且在每个工作表的同一位置，您必须向下滚动到，当切换工作表页面时，位置变为最高位置，无论如何都要在切换工作表时复制当前活动工作表/ scollbar位置，并在我转到下一个工作表时使其相同。

原因是我创建的导航面板看起来不像是在换页之间移动

My current code is this

Sub Page2()

  Sheets("Page 2").Activate

End Sub

非常感谢提前

Answer 1

方法2：

Sub Page2()

Application.ScreenUpdating = False

Sheets("Page 2").Activate

ActiveWindow.ScrollRow = 20
'this will be superior; set this number to the row of your buttons or whatever

Application.ScreenUpdating = True

End Sub