Nếu bạn muốn khôi phục ảnh màn hình cho người dùng sau khi macro đã thay đổi chế độ xem cửa sổ, đôi khi bạn có thể chỉ cần kích hoạt ô là ô hoạt động khi macro bắt đầu. Điều này không phải lúc nào cũng thành công.

Đoạn mã ví dụ sau sẽ khôi phục lại vị trí cửa sổ giống như khi macro bắt đầu:

Dim aRow As Long, aColumn As Integer, aRange As String ' global variables

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