excel - VBA Excel - 转到页面布局 View 中的下一页

Question

我正在将各种范围复制到新的 Excel 工作表，并寻找在页面布局 View 中引用下一页或任何特定页面的解决方案。

我已经设置了包含边距、标题和其他格式的页面布局，并希望根据屏幕上显示的布局填写我的报告。由于布局已设置，我可以对单元格引用进行硬编码以放置我的范围，但我宁愿动态确定这一点。有什么解决办法吗？

Answer 1

最简单的方法是更改​​为页面布局 View ，然后使用 LargeScroll 转到您想要的页面。

ActiveWindow.View = xlPageLayoutView     '<--- Changes view to "Page Layout"
ActiveWindow.LargeScroll 1               '<--- Scrolls down a full page 1 time

“1”是您要执行的 LargeScrolls 的数量，因此在上面的示例中，无论您所在的位置，您都会向下移动 1 页。这适用于页面布局 View 中的任何页面。

下面是一个示例，说明您是否想转到第 2 页，但不确定代码将您留在哪个页面。它使用 cells(1,1) 将您带到工作表的第一个单元格，即第 1 页。

Cells(1,1).Activate                      '<--- Takes you to first cell in your worksheet
ActiveWindow.View = xlPageLayoutView     
ActiveWindow.LargeScroll 1

您可以将“1”更改为任何数字。请记住，它的工作原理类似于偏移量，因此如果您从单元格 A1 开始并想要转到第 3 页，则只需滚动 2 次，而不是 3 次。代码看起来像 ActiveWindow.LargeScroll 2 因为它是使您从当前页面下降 2 (2 + 1)。