Question

向社区问好，2019年新年快乐：）

我最近更换了计算机，但令我惊讶的是，我从未想到过不同的屏幕分辨率会改变我的excel仪表板，使其不再适合一个窗口。我研究了一些VBA建议，但是我找不到真正适用于多个工作表的解决方案，每个工作表都有一个特定的单元格范围，可以自动将其放回到一个窗口中，并且只能运行一次，而不是连续运行。 >

我已经在我的主要工作簿中编写了以下代码，因此我很难理解它是否适合工作簿或作为新模块。

Private Sub Workbook_Open()
Worksheets("Dashboard").Activate
LoginFlag = False
Login.Show
End Sub

问题：我如何插入一个VBA，该VBA将自动为如下所示的特定工作表调整范围选择？

Dashboard.Range("A1:AD36").Select 
ActiveWindow.Zoom = True

与往常一样，感谢您阅读并抽出时间来解决这个问题。

Answer 1

希望我理解您的问题。我认为下面的代码应该会对您有所帮助。

Private Sub Workbook_Open()
 Dim s1 As Worksheet
 Set s1 = Worksheets("Dashboard")
 Dim s2 As Sheet2
 Set s2 = Sheet2
 s1.Activate
 s1.Range("C1:D8").Select
 ActiveWindow.Zoom = True
 s2.Activate
 s2.Range("A1:B10").Select
 ActiveWindow.Zoom = True

End Sub

自动缩放以适合选择

1 个答案: