Перезначение клавиш PgUp и PgOn

[valerij]

Перезначение клавиш PgUp и PgOn

Как сделать, что бы этими клавишами, вне зависимости от масштаба листа, переключаться по ячейкам с заданным шагом?

[SAS888]

С помощью метода OnKey, назначте этим клавишам процедуры, выполняющие

Const Stp = 10 'Шаг
Cells(ActiveCell.Row + Stp, ActiveCell.Column).Select

и, соответственно другой клавише - минус "шаг". Константу Stp можно объявить Public. Будет общая для обоих процедур.

[valerij]

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

С помощью метода OnKey, назначте этим клавишам процедуры, выполняющие.

SAS
Маленько не так, так сдвигает на середину экрана и потом, все ОК.
Поясню, у меня на 19' мониторе, лист, масштаб 115, ячейки А1:К24, отображается на весь экран, А1:К2 - закрепленная область, так вот, надо, что бы, где бы не находился курсор диапазона А3:К24, жму "PgOn" и вижу, диапазон А54:К75.....
Сделал так:

Sub verx()
Const Stp = 51
With Application
Cells(ActiveCell.Row + Stp, ActiveCell.Column).Select
ActiveWindow.SmallScroll Down:=11
End With
End Sub
Sub hiz()
Const Stp = 51
With Application
Cells(ActiveCell.Row - Stp, ActiveCell.Column).Select
ActiveWindow.SmallScroll Down:=11
End With
End Sub

Но так, я привязан к верхнему, начальному диапазону, меня число 11, на единицу, могу сдвигать курсор на позицию вниз, что бы выполнить условие А3:К24 - А54:К75.....
А вот как в автомате это сделать....??

[SAS888]

Так Вам нужно "с шагом", или у Вас всего 2 области, между которыми нужно осуществлять переход? Если "с шагом", то что это за шаг такой

А3:К24 - А54:К75.....

Вы можете конкретно сказать шаг по строкам и шаг по столбцам при каждом переходе?
А если у Вас всего 2 области, то можно использовать всего одну кнопку, при нажатии которой будет выполняться переход "туда" или "обратно". Для этого, можно назначить для "понравившейся" Вам кнопки методом OnKey процедуру

Sub MoveWindow()

    If Intersect(ActiveCell, [A1:K24]) Is Nothing Then _
        Application.Goto Reference:=[A1], Scroll:=True _
    Else Application.Goto Reference:=[A54], Scroll:=True
    
End Sub

[valerij]

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

Вы можете конкретно сказать шаг по строкам и шаг по столбцам при каждом переходе?

SAS!
Что бы ответить, скажите, какой у Вас монитор, 19'?
Я выложу, два, чисто интерфейсные файлы и Вы все поймете, а так, мы о разном говорим.

[valerij]

SAS
В первом файле имеем, масштаб листа 110, галка - заголовки строк и столбцов, снята, строка формул и строка состояния, активны.
Ставим курсор на "Хл. Буроз. Под.", жмем два раза кл. PgOn, тот же пункт, но в др. числе, теперь на п. "Рог. Горчичный" и то же самое, если я сдвину на п. "О С Т А Т О К", примерно на середину экрана и жмем два раза кл. PgOn, видео-позиция пунктов, где стоит курсор, не меняется
То же самое надо сделать во втором файле.
Жать кл. PgUp и PgOn не важно, один или два раза

[valerij]

SAS
Наверное, Вы не поняли, что все таки я хотел?
Вот, мне надо скопировать позицию ""Рог. Горчичный" и вставить ее во все числа с шагом 51, в первом файле, шаг 48, там все просто, жму два раза кл. "PgOn" и точно перемещаюсь в ту же в-позицию, а во втором файле, просто так, не получается, нужен макрос.

[SAS888]

Посмотрите вложение. При открытии файла, Клавишам "PageUp" и "PageDown" назначаются макросы "Vverh" и "Vniz" соответственно.
Шаг в файлах разный (требуемый). Нет зависимости не от установленного масштаба, не от величины и разрешения дисплея.
Так нужно было?

[valerij]

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

Посмотрите вложение. При открытии файла, Клавишам "PageUp" и "PageDown" назначаются макросы "Vverh" и "Vniz" соответственно.
Шаг в файлах разный (требуемый). Нет зависимости не от установленного масштаба, не от величины и разрешения дисплея.
Так нужно было?

SAS!!!!!!!
Просто СУПЕР, именно то, что нужно, С П А С И Б О!

---------------
| ^^пиво^^ \\|""\\_,_
|___SAS888__||___|__|)
(@)(@)""*|(@)(@)**(@)