滚动页面以显示活动行

Question

我正在进行计算并使用VBA。当我运行代码时，我无法看到发生了什么，让我们在第400行说，直到运行结束。

我找到了这段代码：

ActiveWindow.ScrollRow = Selection.Row 
ActiveWindow.ScrollColumn = Selection.Column 

要么

Application. Goto ActiveCell.EntireRow,True 

在代码运行时如何滚动页面并显示活动行？

Answer 1

尝试下面它将自动移动到活动单元格

Sub test()
    Dim i as Long    
    For i = 1 To 1000
        Range("A" & i).Select
    Next
End Sub

Answer 2

你想去第400排吗？

Application.Goto  Rows(400)

如果要暂停执行，可以使用Stop或Debug.Assert False

For i = 0 to to lastRow

    If i = 400 then 
        Application.Goto Rows(400)
        Stop
    End IF

Next

如果你想暂停宏是一个条件是真的然后使用Debug.Assert False。注意：当条件为false时，Debug.Assert会暂停代码。

For i = 0 to to lastRow

    Debug.Assert i <&gt 400 

Next

Answer 3

你可以控制它：

Private Sub seid_Change() 
    If seid.Value = 1 Then 
        wsM.Range ("A125").Select 
        Application.Goto ActiveCell.EntireRow, True 
    ElseIf seid.Value = 2 Then 
        wsM.Range ("A128").Select
        Application.Goto <br>ActiveCell.EntireRow, True 
    End If 
End sub