AlexVrag
@AlexVrag

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

Данные вводятся в поля «к-сть» и «ціна», нужно чтобы после ввода поля «ціна», курсор уходил вниз на «к-сть» и т.д. до конца таблицы.
  • Вопрос задан
  • 5778 просмотров
Пригласить эксперта
Ответы на вопрос 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.
Ответ написан
Комментировать
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы
18 мая 2022, в 00:48
3000 руб./за проект
18 мая 2022, в 00:31
100000 руб./за проект
18 мая 2022, в 00:09
15000 руб./за проект