Ако искате да възстановите екранната картина за потребителя, след като макросът е променил изгледа на прозореца,
понякога можете просто да активирате клетката, която е била активната клетка, когато макросът стартира. Това не винаги е успешно.
Следният примерен код ще възстанови позицията на прозореца точно както е била при стартирането на макроса:
Dim aRow As Long, aColumn As Integer, aRange As String 'глобалните променливи Sub RememberWindowPosition ()' изпълнете това преди да направите промени С ActiveWindow aRow = .ScrollRow aColumn = .ScrollColumn End With aRange = Selection. това за възстановяване на позицията в прозореца Range (aRange) .Изберете с ActiveWindow .ScrollRow = aRow .ScrollColumn = aColumn End With End Sub