2009-11-09 3 views

ответ

0

В Excel можно использовать свойство VisibleRange объекта Window, т.е.

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 

Надежда, что помогает

удачи MikeD

Смежные вопросы