顯示vba中的活動行移動頁面

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 <> 400 

Next