Εάν θέλετε να επαναφέρετε την εικόνα της οθόνης για τον χρήστη μετά από μια μακροεντολή που έχει αλλάξει την προβολή του παραθύρου,
μερικές φορές μπορείτε απλά να ενεργοποιήσετε το κελί που ήταν το ενεργό κελί όταν ξεκίνησε η μακροεντολή. Αυτό δεν είναι πάντα επιτυχές.
Το ακόλουθο παράδειγμα κώδικα θα επαναφέρει τη θέση του παραθύρου ακριβώς όπως ήταν όταν ξεκίνησε η μακροεντολή:
Dim aRow As Long, aColumn As Integer, aRange As String «καθολικές μεταβλητές Sub RememberWindowPosition ()» εκτελέστε αυτό πριν κάνετε αλλαγές με ActiveWindow aRow = .ScrollRow aColumn = .ScrollColumn End With aRange = Selection.Address End Sub Sub RestoreWindowPosition () αυτό για να επαναφέρετε τη θέση στο εύρος του παραθύρου (aRange). Επιλέξτε με το ActiveWindow .ScrollRow = aRow .ScrollColumn = aColumn End With End Sub