Переход по нажатию ENTER в заданном порядке

[Dog_DinGo]

Доброго времени суток...

у меня проблема... нужна очень помощь, буду признателен...

Суть: надо, чтобы при нажатии клавиши Enter курсор двигался в заданном направлении... то есть зигзагом....

В приложенном скрине чёрной линией отмечено как именно....

[IgorGO]

такую траекторию надо получить с одного нажатия Enter?

[Dog_DinGo]

в том-то и дело, что нет...
это было бы слишком просто =)

одно нажатие, один переход....

я сделал, чтобы он переходил первый диапозон, но дальше ничерта... как бы не пытался, увы... макрос начинает криво работать


вот таким образом:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column < 4 And Target.Row > 2 Then Cells(Target.Row + 0, Target.Column + 2).Select
If Target.Column = 4 Then Cells(Target.Row + 1, 2).Select
End Sub


Желательно, чтобы курсор двигался в нужном направлении не только при смене значения ячейки. Желательно, но не обязательно...

[Hugo121]

Может так? (сам принцип)

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Select Case Target.Address
Case "$B$1", "$B$2", "$F$1", "$F$2": Target.Offset(, 1).Select
Case "$C$1", "$G$1": Target.Offset(1, -1).Select
Case "$C$2": Target.Offset(-1, 3).Select
Case "$G$2": Target.Offset(-1, -5).Select
End Select
Application.EnableEvents = True
End Sub

[IgorGO]

или так:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim dr as Long, dc a long
  If Intersect(Target, Union(Range("C3:C6"), Range("H3:H8"))) Is Nothing Then ' с которых 2 вправо
    If Intersect(Target, Union(Range("E3:E5"), Range("I3:I7"))) Is Nothing Then ' с кот. 1 вниз 2 влево
      If Intersect(Target, Range("E6")) Is Nothing Then Exit Sub ' с кот. вверх вправо на сосед.столбик
      Else: dr = -3: dc = 3: End If
    Else: dr = 1: dc = -2: End If
  Else: dr = 0: dc = 2: End If
  Target.Offset(dr, dc).Select
End Sub

[Dog_DinGo]

Первый вариант посмотрел.. сейчас второй гляну...

[Dog_DinGo]

В Варианте от IgorGo он ругается на то, что нет "Else" без " if"
Хотя всё есть....

[Hugo121]

У Игоря Exit Sub лишнее.

[IgorGO]

я изучаю синтаксис ВБА, не все еще получается...
пробуйте так:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim dr As Long, dc As Long
  If Intersect(Target, Union(Range("C3:C6"), Range("H3:H8"))) Is Nothing Then ' с которых 2 вправо
    If Intersect(Target, Union(Range("E3:E5"), Range("I3:I7"))) Is Nothing Then ' с кот. 1 вниз 2 влево
      If Intersect(Target, Range("E6")) Is Nothing Then ' с кот. вверх вправо на сосед.столбик
        Exit Sub
      Else: dr = -3: dc = 3: End If
    Else: dr = 1: dc = -2: End If
  Else: dr = 0: dc = 2: End If
  Target.Offset(dr, dc).Select
End Sub

убедитесь, что все диапазоны заданы правильно, по рисунку Вашему это не очень понятно.
Exit Sub - не лишний, он коряво записан... был

[Dog_DinGo]

Спасибо, Вам...

Буду подгонять под себя....

Я вообще ВБА изучаю всего две недели...

ПОэтому, далеко не всё получается...

СПасибо большое =)))