Zoom Fit to Selection автоматически

Question

привет сообществу и счастливого нового года 2019:)

Я недавно сменил свой компьютер и, к своему удивлению, никогда не думал, что другое разрешение экрана может изменить мою панель Excel, чтобы она больше не помещалась в одном окне,Я рассмотрел несколько предложений VBA, но я не могу найти решение, которое могло бы применяться для нескольких рабочих листов, каждый из которых имел бы определенный диапазон ячеек, чтобы он автоматически помещался в одно окно и работал только один раз, а не непрерывно.

У меня уже есть кодирование в моей основной книге, как показано ниже, поэтому я пытаюсь понять, должно ли оно соответствовать книге или как новый модуль.

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