Jeśli chcesz przywrócić obraz ekranu dla użytkownika po zmianie widoku okna przez makro,
czasami możesz po prostu aktywować komórkę, która była aktywną komórką podczas uruchamiania makra. Nie zawsze się to udaje.
Poniższy przykładowy kod przywróci położenie okna tak, jak było podczas uruchamiania makra:
Dim aRow As Long, aColumn As Integer, aRange As String ' zmienne globalne Sub RememberWindowPosition() ' uruchom to przed wprowadzeniem zmian za pomocą ActiveWindow aRow = .ScrollRow aColumn = .ScrollColumn End With aRange = Selection.Address End Sub Sub RestoreWindowPosition() ' run to przywraca pozycję w oknie Range(aRange).Select With ActiveWindow .ScrollRow = aRow .ScrollColumn = aColumn End With End Sub