Активная ячейка посередине экрана

[Calvin]

Здраствуйте, уважаемые!
Как сделать так, чтобы при перемещении по ячейкам, активная ячейка всегда была в центре (за исключением того, когда это ограничено границами экрана)....ну там можно сделать on error resume next.....событие я знаю какое...мне мясо нужно

[KL]

насчет "ограничения границами экрана" не скажу (т.к. мне не понятно о чем речь), но то, что ни одна ячейка изначально находящаяся поверх или слева от центра экрана никогда не побывает в центре это наверняка (за искл. передвижения самого окна, разумеется)

[Calvin]

ни одна ячейка изначально находящаяся поверх или слева от центра экрана никогда не побывает в центре это наверняка

так вот на счет этих ячеек я и имел ввиду

[Genyaa]

Вот обработчик для модуля книги:

Код: Выделить всё

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Dim cc As Range
    Dim cw As Range
    Dim dw As Long, dh As Long
   
    Set cc = Target
    Set cc = Sh.Cells(Int(cc.Row + cc.Rows.Count / 2), Int(cc.Column + cc.Columns.Count / 2))
    Set cw = ActiveWindow.VisibleRange
    Set cw = Sh.Cells(Int(cw.Row + cw.Rows.Count / 2), Int(cw.Column + cw.Columns.Count / 2))
   
    dw = cc.Column - cw.Column
    dh = cc.Row - cw.Row
   
    On Error Resume Next
   
    ActiveWindow.SmallScroll Down:=dh
    ActiveWindow.SmallScroll ToRight:=dw
   
End Sub

Может понравится.