Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/После ввода данных, переход на следующую строку вправо - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » После ввода данных, переход на следующую строку вправо (Формулы/Formulas)
После ввода данных, переход на следующую строку вправо
Miha Дата: Среда, 26.02.2020, 15:37 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Уважаемые знатоки Exel, нужна ваша помощь. Суть такая: данные вводятся в два столбца, требуется, чтобы после ввода данных во второй столбец, курсор переходил на следующую строку в левый столбец. Помогите решить эту проблему.


Хочу всё знать!
 
Ответить
СообщениеУважаемые знатоки Exel, нужна ваша помощь. Суть такая: данные вводятся в два столбца, требуется, чтобы после ввода данных во второй столбец, курсор переходил на следующую строку в левый столбец. Помогите решить эту проблему.

Автор - Miha
Дата добавления - 26.02.2020 в 15:37
Nic70y Дата: Среда, 26.02.2020, 15:42 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8706
Репутация: 2260 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("b1:b65536")) Is Nothing Then
        Target.Offset(1, -1).Select
    End If
End Sub
[/vba]


ЮMoney 41001841029809
 
Ответить
Сообщение[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("b1:b65536")) Is Nothing Then
        Target.Offset(1, -1).Select
    End If
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 26.02.2020 в 15:42
Miha Дата: Среда, 26.02.2020, 17:44 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Что то не получается. Ругается: "expected end sub".


Хочу всё знать!

Сообщение отредактировал Miha - Среда, 26.02.2020, 17:45
 
Ответить
СообщениеЧто то не получается. Ругается: "expected end sub".

Автор - Miha
Дата добавления - 26.02.2020 в 17:44
Miha Дата: Среда, 26.02.2020, 18:10 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("b1:b65536")) Is Nothing Then
        Target.Offset(1, -1).Select
    End If
End Sub


Что то не получается ;) Добавляю имя макроса, ругается: "expected end sub".


Хочу всё знать!
 
Ответить
Сообщение
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("b1:b65536")) Is Nothing Then
        Target.Offset(1, -1).Select
    End If
End Sub


Что то не получается ;) Добавляю имя макроса, ругается: "expected end sub".

Автор - Miha
Дата добавления - 26.02.2020 в 18:10
Nic70y Дата: Четверг, 27.02.2020, 08:18 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 8706
Репутация: 2260 ±
Замечаний: 0% ±

Excel 2010
Miha, Вы куда его (макрос) вставляете?
нужно в модуль листа.
приложите файл, если что...

апдэйт
Цитата
Добавляю имя
это
Цитата
Private Sub Worksheet_Change(ByVal Target As Range)
как-бы и есть имя,
точнее событие листа, при котором срабатывает макрос
и соот. ни какого имени добавлять не нужно


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Четверг, 27.02.2020, 09:03
 
Ответить
СообщениеMiha, Вы куда его (макрос) вставляете?
нужно в модуль листа.
приложите файл, если что...

апдэйт
Цитата
Добавляю имя
это
Цитата
Private Sub Worksheet_Change(ByVal Target As Range)
как-бы и есть имя,
точнее событие листа, при котором срабатывает макрос
и соот. ни какого имени добавлять не нужно

Автор - Nic70y
Дата добавления - 27.02.2020 в 08:18
Miha Дата: Четверг, 27.02.2020, 12:01 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Miha, Вы куда его (макрос) вставляете?
нужно в модуль листа.
приложите файл, если что...

Как раз в модуль листа и вставляю. Всё равно не работает. Или я, что то не то делаю) Посмотрите, если не трудно. Задача очень простая: сканером считываюся два номера. И таких пар номеров более 1000 шт. По этому очень хочется, чтоб курсор автоматом переходил в начало следующей строки.
Заранее спасибо.


Хочу всё знать!
 
Ответить
Сообщение
Miha, Вы куда его (макрос) вставляете?
нужно в модуль листа.
приложите файл, если что...

Как раз в модуль листа и вставляю. Всё равно не работает. Или я, что то не то делаю) Посмотрите, если не трудно. Задача очень простая: сканером считываюся два номера. И таких пар номеров более 1000 шт. По этому очень хочется, чтоб курсор автоматом переходил в начало следующей строки.
Заранее спасибо.

Автор - Miha
Дата добавления - 27.02.2020 в 12:01
Nic70y Дата: Четверг, 27.02.2020, 12:06 | Сообщение № 7
Группа: Друзья
Ранг: Экселист
Сообщений: 8706
Репутация: 2260 ±
Замечаний: 0% ±

Excel 2010
сканером считываюся два номера
2 - это уже интересно
как это происходит? можно подробности?
возможно (предположительно) нужно событие изменения первого столбца.


ЮMoney 41001841029809
 
Ответить
Сообщение
сканером считываюся два номера
2 - это уже интересно
как это происходит? можно подробности?
возможно (предположительно) нужно событие изменения первого столбца.

Автор - Nic70y
Дата добавления - 27.02.2020 в 12:06
Miha Дата: Четверг, 27.02.2020, 12:27 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
2 - это уже интересно
как это происходит? можно подробности?
возможно (предположительно) нужно событие изменения первого столбца.

Спасибо большое за помощь. С горем по полам сам разобрался. Всё заработало как надо. На вопрос отвечу. Последовательно считываются два номера. Сначала один потом другой, соответственно следующая пара на следующей строчке и т.д.
Ещё раз спасибо.


Хочу всё знать!
 
Ответить
Сообщение
2 - это уже интересно
как это происходит? можно подробности?
возможно (предположительно) нужно событие изменения первого столбца.

Спасибо большое за помощь. С горем по полам сам разобрался. Всё заработало как надо. На вопрос отвечу. Последовательно считываются два номера. Сначала один потом другой, соответственно следующая пара на следующей строчке и т.д.
Ещё раз спасибо.

Автор - Miha
Дата добавления - 27.02.2020 в 12:27
Мир MS Excel » Вопросы и решения » Вопросы по Excel » После ввода данных, переход на следующую строку вправо (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!