2016-04-01 3 views
0

Я пытаюсь понять, как перейти в правую ячейку после входа в нее без необходимости ее изменения в настройках параметров. Или, если нет, то, как каждый рабочий лист в рабочей книге переходит в другое направление, когда я нажимаю Enter. (т. е. лист 1: когда вы нажмете Enter, он перейдет в правую ячейку, лист 2: когда вы нажмете Enter, он опустится).Как переместиться в правую ячейку в Excel после нажатия ввода без изменения настроек «Настройки»

ответ

2

Нажмите TAB для перемещения вправо

+0

Вы также можете запустить в первой ячейке с помощью [ctrl] + shift] + [→], затем введите и нажмите [enter↵]. – Jeeped

3

Вы можете использовать VBA для изменения поведения клавишу ввода, когда лист включается (при нажатии на вкладку).

Для этого перейдите в VBE (Ctrl + F11) и найти код вашей рабочей книги:

enter image description here

И двойной щелчок "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 

это будет работать в любое время лист/вкладка активируется. Он перевернет поведение клавиши ввода, аналогичное тому, которое вы вручную вносите в параметры и меняете его самостоятельно.

+0

Возможно, стоит упомянуть, что если вы не уверены в том, как 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

+0

@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