Простой Excel VBA – изменить масштаб страницы до значения по умолчанию

Текущий макрос

Private Sub Worksheet_SelectionChange If Target.Address = "$C$11" Then ActiveWindow.Zoom = 120 Else ActiveWindow.Zoom = 55 End If End Sub 

желаемый макрос

Нажмите на ячейку C11, увеличьте масштаб до 120, иначе масштабирование должно быть любым, на котором установлен лист. Я использую 55, но кто-то еще может использовать 75, и я не хочу, чтобы мой макрос остановил это. Идеи?

Вы можете попробовать этот код:

 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Static zoomLevel As Integer 'Ensure zoomLevel is set If zoomLevel = 0 Then zoomLevel = ActiveWindow.Zoom End If 'If cell C11 is selected, zoom on If Target.Address = "$C$11" Then zoomLevel = ActiveWindow.Zoom ActiveWindow.Zoom = 120 Else 'If any other cell is selected zoom to the user's zoomLevel ActiveWindow.Zoom = zoomLevel End If End Sub 

Использование Static позволяет переменной сохранять свое значение после завершения выполнения подпрограммы.

Давайте будем гением компьютера.