Jei norite atkurti vartotojo ekrano vaizdą, kai makrokomanda pakeičia lango vaizdą,
kartais galite tiesiog suaktyvinti langelį, kuris buvo aktyvus langelis, kai prasidėjo makrokomanda. Tai ne visada pavyksta.
Šis kodo pavyzdys atkuria lango padėtį taip, kaip buvo tada, kai prasidėjo makrokomanda:
Dim aRow as Long, aColumn As Integer, aRange As String "global kintamieji Sub RememberWindowPosition ()" paleiskite tai prieš atlikdami pakeitimus Su ActiveWindow aRow = .ScrollRow aColumn = .ScrollColumn End With aRange = Selection.Address End Sub Sub RestoreWindowPosition () run tai atkurti padėtį lango diapazone (aRange). Pasirinkite su ActiveWindow .ScrollRow = aRow .ScrollColumn = aColumn End With End Sub