Как настроить автоматический переход в следующую ячейку после ввода данных в Excel?
В этой статье я расскажу, как автоматически перемещать курсор в следующую ячейку для ввода порядкового номера в Excel — без нажатия клавиши Enter.
Автозаполнение серии из 4-значных чисел с помощью Kutools для Excel 
Автоматический переход в следующую Ячейка справа после ввода 4-значного числа без нажатия клавиши Enter с помощью VBA
Ниже приведён код VBA, который автоматически переводит курсор в следующую ячейку справа сразу после ввода четырёхзначного числа — без необходимости нажимать клавишу Enter.
1. Нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. Щёлкните Вставка > Модуль и вставьте приведённый ниже код VBA в окно Модуль. См. снимок экрана:
VBA: Автоматический переход в следующую ячейку справа после ввода четырёхзначного числа.
Sub FourCharEntry1()
'UpdatebyExtendoffice20160614
Dim xStr As String
Dim I As Integer
Dim K As Integer
xStr = Application.InputBox("Enter string", "Kutools for Excel", , , , , , 2)
K = 0
Application.ScreenUpdating = False
For I = 1 To Len(xStr) Step 4
ActiveCell.Offset(0, K) = "'" & Mid(xStr, I, 4)
K = K + 1
Next
Application.ScreenUpdating = True
End Sub
3. Нажмите клавишу F5, чтобы запустить код. После этого откроется диалоговое окно Kutools для Excel, в котором можно ввести последовательные числа без каких-либо разделителей. См. снимок экрана:
4. Нажмите кнопку ОК. Теперь каждые 4 цифры будут размещаться в ячейках слева направо.
Совет: Если вы хотите вводить в ячейку числа из 5, 6 или более цифр, замените в коде 4 на 5, 6 или другое нужное значение.
Автозаполнение серии из 4-значных чисел с помощью Kutools для Excel
С помощью Kutools для Excel — удобного инструмента — вы можете автоматически заполнять серии чисел в диапазоне без нажатия клавиши Enter, используя функцию Вставить номер последовательности.
После бесплатной установкиKutools для Excel выполните следующие действия:
1. Выделите столбец или строку, в которую нужно вставить серию, и нажмите Kutools > Вставка > Вставить номер последовательности. См. снимок экрана:
2. В диалоговом окне Вставить номер последовательности нажмите кнопку Создать, чтобы открыть дополнительное окно. См. снимок экрана:
3. Затем выберите нужную серию. См. снимок экрана:
4. Нажмите кнопку Добавить > Заполнить диапазон, и диалоговое окно «Выберите диапазон» автоматически заполнится с использованием последовательных чисел.
Совет: с помощью функции Вставить номер последовательности вы также можете вставлять повторяющиеся серии. Установите флажок Конечное число в диалоговом окне, введите нужное конечное число в правое текстовое поле — и числа серии будут повторяться каждые 10 значений. См. снимок экрана:
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек