Excel VBA循环并以交互方式显示更改

Question

我有一个 VBA 应用程序，它遍历一个范围并进行一些更改。
但是，我不太关心运行时间，但我想向用户展示在运行时进行的更改。

我在想这样的事情。

Private Sub ProcessALBODY(ByRef Fullpath, ByRef MasterWB)
...

    For Each Row In rng.rows
    ... 'Do Something

    DoEvents
    ActiveWindow.ScrollRow = 1 'for each row scrolldown and proceed to next row
    Next

...
End Sub

不幸的是，我的应用程序卡住，直到它完成..

Answer 1

ActiveWindow.ScrollRow = Row.Row

应该做你想做的