Gjenopprette vindusposisjonen

Dersom du ønsker å gjenopprette visningen av skjermbildet etter at brukeren har byttet til en annen posisjon har du sikkert oppdaget at det ikke alltid virker perfekt med å aktivere det som var den aktive cellen før brukeren endret skjermbildet. For å kunne gjenopprette visningen av et skjermbilde må du lagre opplysninger om hvilken rad og kolonne som ble vist øverst og til venstre. Dette kan gjøres på følgende måte :

Dim aRow As Long, aColumn As Integer, aRange As String ' globale variabler

Sub RememberWindowPosition() ' run this before making changes
    With ActiveWindow
        aRow = .ScrollRow
        aColumn = .ScrollColumn
    End With
    aRange = Selection.Address
End Sub

Sub RestoreWindowPosition() ' run this to restore position in the window
    Range(aRange).Select
    With ActiveWindow
        .ScrollRow = aRow
        .ScrollColumn = aColumn
    End With
End Sub

Dokumentet er sist oppdatert 1999-07-23 12:31:02 Utskriftsvennlig versjon