Переход по ентер в нужню ячейку (Excel)

Question

[AlexVrag]

Данные вводятся в поля «к-сть» и «ціна», нужно чтобы после ввода поля «ціна», курсор уходил вниз на «к-сть» и т.д. до конца таблицы.

Comments

[AlexVrag]

upd. Вариант с защищенными ячейками, не устраивает.

Answer 1

[bmforce]

С использованием макросов данную задачу можно было бы решить как-то так:

Sub myMacro()

    Dim sheet As Worksheet
    Set sheet = ActiveWorkbook.ActiveSheet
    If sheet.Cells(1, ActiveCell.column).Value = "ціна" Then
        sheet.Cells(ActiveCell.Row + 1, ActiveCell.column - 1).Activate
    End If
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnKey "{ENTER}"
End Sub

Private Sub Workbook_Open()
    Application.OnKey "{ENTER}", "myMacro"
End Sub

Можно использовать событие Worksheet_Change, чтобы не привязываться к нажатию на клавишу Enter.