При нажатии F3 переместить курсор

[valerij]

При нажатии F3 переместить курсор в заданный диапазон.
Но, почему- то не работает?

Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Excel.Range)
   Select Case sh.Index
        Case 1 To 3
        For dat = 0 To 30
        With [A3:J45].Offset(dat * 54)
If Not Intersect(Target, .Cells) Is Nothing Then
Application.OnKey "{F3}" = Cells(dat * 54 + 3, 4).Select
End If
End With
Next
End Select
End Sub

[EducatedFool]

Твой код можно заменить одной строкой:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
    If Sh.Index <= 3 Then Cells(((Target.Row - 4) \ 54) * 54 + 3, 4).Select
End Sub

Но, почему- то не работает?

И не будет, пока ты не начнёшь соблюдать синтаксис VBA.
У тебя есть множество рабочих примеров использования Application.OnKey, а ты опять изобретаешь что-то новое...

[valerij]

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

У тебя есть множество рабочих примеров использования Application.OnKey, а ты опять изобретаешь что-то новое...

Да, но не могу придумать, как использовать.
Задача такая:
Например, я нахожусь в диапазоне А489:К583, но видимый диапазон(на мониторе) А572:К593, курсор находится К579, теперь мне надо переместиться на D543, кручу колесиком пока не увижу 543 строку, долго, вот и подумал про нажатие
Application.OnKey "{F3}" = Cells(dat * 54 + 3, 4).Select

Хотел переместить в модуль

Private Sub Workbook_Open() 
Application.OnKey "{F3}", "вначало"
End Sub

Но модуль не видит переменную dat, вернее она все время =0, Public dat, результата не дал.

Sub вначало()
    Sheets(1).Cells(dat * 54 + 3, 4).Select
End Sub

Вот и загвоздка.

[EducatedFool]

Например, я нахожусь в диапазоне А489:К583, но видимый диапазон(на мониторе) А572:К593, курсор находится К579

Что такое видимый диапазон и курсор, я понял.
Но что означает "я нахожусь в диапазоне А489:К583" - увы, не понимаю.

Попробуй так:

Sub вначало()
    Cells(((Activecell.Row - 4) \ 54) * 54 + 3, 4).Select
End Sub

Private Sub Workbook_Open() 
    Application.OnKey "{F3}", "вначало"
End Sub

[valerij]

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

Но что означает "я нахожусь в диапазоне А489:К583" - увы, не понимаю.

Я имел ввиду, что программа выполняется только по условию(не знаю как объяснить)

For dat = 0 To 30
        With [A3:J45].Offset(dat * 54)
If Not Intersect(Target, .Cells) Is Nothing Then

Попробуй так:
Sub вначало()
Cells(((Activecell.Row - 4) \ 54) * 54 + 3, 4).Select
End Sub

Ага, ага, очень близко к "телу", попробую разобраться
Игорек, Спасибо!!!

[valerij]

Игорь, вот так, все СУПЕР!!

Sub вначало()
    Cells(((ActiveCell.Row - 4) \ 54) * 54 + 3, 4).Select
    ActiveWindow.SmallScroll Down:=11
End Sub

[valerij]

Выявился один бок, если видимый диапазон А19:К40, то при нажатии F3, курсор перемещается в D3, но не сдвигает строку D3 в зону видимости, бок исправил так:

Sub вначало()
Dim iScr As Byte
    Cells(((ActiveCell.Row - 4) \ 54) * 54 + 3, 4).Select
    If ActiveCell.Row > 54 Then iScr = 11
    ActiveWindow.SmallScroll Down:=iScr
End Sub