2009-11-09 77 views

回答

0

在Excel中您可以使用Window對象的VisibleRange性質,即

Private Sub DirtyTest() 
Dim MyW As Window, TopRow As Long, TopCol As Long 

    Set MyW = Windows(1)    ' index 1 always refers to the window displayed 
    TopRow = MyW.VisibleRange.Cells.Row 
    TopCol = MyW.VisibleRange.Cells.Column 

    ' any other code 

End Sub 

希望幫助

好運拾音