Я пытаюсь понять, как перейти в правую ячейку после входа в нее без необходимости ее изменения в настройках параметров. Или, если нет, то, как каждый рабочий лист в рабочей книге переходит в другое направление, когда я нажимаю Enter. (т. е. лист 1: когда вы нажмете Enter, он перейдет в правую ячейку, лист 2: когда вы нажмете Enter, он опустится).Как переместиться в правую ячейку в Excel после нажатия ввода без изменения настроек «Настройки»
ответ
Нажмите TAB для перемещения вправо
Вы можете использовать VBA для изменения поведения клавишу ввода, когда лист включается (при нажатии на вкладку).
Для этого перейдите в VBE (Ctrl + F11) и найти код вашей рабочей книги:
И двойной щелчок "ThisWorkbook", чтобы добавить код объекта Workbook.
В там вы можете использовать что-то вроде:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Sheet1" Or Sh.Name = "Sheet3" Then
Application.MoveAfterReturnDirection = xlToRight
ElseIf Sh.Name = "Sheet2" Or Sh.Name = "sheet4" Then
Application.MoveAfterReturnDirection = xlDown
End If
End Sub
это будет работать в любое время лист/вкладка активируется. Он перевернет поведение клавиши ввода, аналогичное тому, которое вы вручную вносите в параметры и меняете его самостоятельно.
Возможно, стоит упомянуть, что если вы не уверены в том, как VBA имеет свойство [Excel Application object] (https://msdn.microsoft.com/en-us/library/office/ff194565.aspx), вы можете обычно записывать самостоятельно меняя этот вариант. Изучение записанного кода покажет правильный синтаксис. Полный список см. В разделе «Участники приложения Excel» (https://msdn.microsoft.com/en-us/library/office/ff198091.aspx). – Jeeped
@JNevill Это то, что я ввел в код, но он не движется вправо. Private Sub Workbook_SheetActivate (ByVal Sh As Object) Если Sh.Name = "Sheet3" then Application.MoveAfterReturnDirection = xlToRight ElseIf Sh.Name = "Sheet1" или Sh.Name = "sheet2" или Sh.Name = "sheet4" Или Sh.Name = "sheet5" или Sh.Name = "sheet6" или Sh.Name = "sheet7" Then Application.MoveAfterReturnDirection = xlDown End If End Sub – anra
Вы также можете запустить в первой ячейке с помощью [ctrl] + shift] + [→], затем введите и нажмите [enter↵]. – Jeeped