При переключении листов, дергает экран

[valerij]

При переключении листов, дергает экран.
Что только не делал, не помогает, если отключаю событие, то нет, сумм, ввода данных. ?
Кл. PgUp и PgDn листают дни в Листах.

[EducatedFool]

При переключении листов, дергает экран.

Я не сказал бы, что заметно дёргается... даже если обновление экрана включено...

Да и как ты хотел - данные ведь на экране изменяются (при переходе от одного для к другому), в итоге экран-то всё равно надо перерисовывать...


Ну, сделай так, может лучше будет:

Sub Vniz()
    Application.ScreenUpdating = False
        AdrR = ActiveCell.Row + St: AdrC = ActiveCell.Column
        If AdrR > 1582 Then AdrR = 3
        On Error Resume Next
        ActiveSheet.ScrollArea = ""    ' временно отключаем блокировку, чтобы можно было пролистать экран
        ActiveWindow.ScrollRow = ActiveWindow.ScrollRow + St    ' проматываем экран на St = 28 строк вниз
        Dim area As Range    ' area - диапазон доступных для редактирования ячеек
        Set area = Range(Cells(ActiveWindow.ScrollRow, "A"), Cells(ActiveWindow.ScrollRow + St - 2, "O"))
        ActiveSheet.ScrollArea = area.Address: area.Cells(St - 25, 4).Select
    Application.ScreenUpdating = True
End Sub

Sub Vverh()
    Application.ScreenUpdating = False
        AdrR = ActiveCell.Row - St: AdrC = ActiveCell.Column
        If AdrR < 0 Then AdrR = 3
        On Error Resume Next
        ActiveSheet.ScrollArea = ""    ' временно отключаем блокировку, чтобы можно было пролистать экран
        ActiveWindow.ScrollRow = ActiveWindow.ScrollRow - St    ' проматываем экран на St = 28 строк вверх
        Dim area As Range    ' area - диапазон доступных для редактирования ячеек
        Set area = Range(Cells(ActiveWindow.ScrollRow, "A"), Cells(ActiveWindow.ScrollRow + St - 2, "O"))
        ActiveSheet.ScrollArea = area.Address: area.Cells(St - 25, 4).Select
    Application.ScreenUpdating = True
End Sub

Что только не делал, не помогает

Попробуй убрать раскраску ячеек

[valerij]

Сообщение от EducatedFool

Я не сказал бы, что заметно дёргается... даже если обновление экрана включено...

Не помогло.
Вот я заметил, что 2-ядерном, все дергается, а перехожу на офисный, старье, приходится раскомментировать .ScreenUpdating = False, завтра в офисе, попробую.

Видимо скорость обработки процессора > быстрее, чем обновление экрана.

[vladtr]

Сообщение от valerij

При переключении листов, дергает экран.
Что только не делал, не помогает, если отключаю событие, то нет, сумм, ввода данных. ?
Кл. PgUp и PgDn листают дни в Листах.

Так как у вас фактически идет пересчет листа (рабочего диапазона) то можно в параметрах установить вычисления вручную.
дергаться будет меньше. Вся проблема не в быстродействии оборудования, а в коде.

[valerij]

Сообщение от vladtr

Вся проблема не в быстродействии оборудования, а в коде.

Если бы в коде, то смена ПК, не влияло бы... пост #3.

[EducatedFool]

Если бы в коде, то смена ПК, не влияло бы...

Видимо скорость обработки процессора > быстрее, чем обновление экрана

Да, скорость обработки процессора немного выше, чем скорость обновления экрана. Всего-то в несколько миллионов раз...

приходится раскомментировать .ScreenUpdating = False

А зачем её вообще надо было закомментировать?

[valerij]

Сообщение от EducatedFool

А зачем её вообще надо было закомментировать?

Иначе при вводе данных постоянно дергается.