缩放选择以适合

Question

我最近更换了我的电脑，不同的屏幕分辨率改变了我的 Excel 仪表板，不适合一个 window。

我查看了一些 VBA 的建议，但我找不到可以应用于多个工作表的解决方案，每个工作表都有一个特定的单元格范围以自动将其放入一个 window，并且只运行一次，不是连续的。

我的主工作簿中有代码。我很难理解它是否必须适合工作簿或作为一个新模块。

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

我如何插入一个 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

缩放选择以适合

Zoom Selection to Fit

excel

vba

zooming