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

Вход

Регистрация

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

 

= Мир MS Excel/Автоматическое перемещение курсора на нужную ячейку - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Автоматическое перемещение курсора на нужную ячейку
mayvitol Дата: Вторник, 08.07.2025, 11:06 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Здравствуйте.
Возможно ли в сабже при нажатии клавиши вправо, чтобы курсор перемещался не на следующую ячейку, а на начальную?
Например, начинаю вводить данные H5, I5, J5, K5 и нажимая клавишу вправо перехожу не на следующую ячейку L5, а возвращаюсь на B5.
Пример прикрепил.
К сообщению приложен файл: curs.xlsx (9.4 Kb)


Сообщение отредактировал mayvitol - Вторник, 08.07.2025, 11:08
 
Ответить
СообщениеЗдравствуйте.
Возможно ли в сабже при нажатии клавиши вправо, чтобы курсор перемещался не на следующую ячейку, а на начальную?
Например, начинаю вводить данные H5, I5, J5, K5 и нажимая клавишу вправо перехожу не на следующую ячейку L5, а возвращаюсь на B5.
Пример прикрепил.

Автор - mayvitol
Дата добавления - 08.07.2025 в 11:06
Nic70y Дата: Вторник, 08.07.2025, 11:14 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 9133
Репутация: 2416 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    a = Target.Column
    b = Target.Row
    If a > 1 And a < 11 Then Cells(b, a + 1).Select
    If a = 11 Then Cells(b, 2).Select
End Sub
[/vba]
и нажимая клавишу вправо
можете жать на энтер

апдэйт
для клавиши вправо
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    a = Target.Column
    b = Target.Row
    If a > 11 Then Cells(b, 2).Select
End Sub
[/vba]
К сообщению приложен файл: curs.xlsm (14.0 Kb) · curs2.xlsm (13.9 Kb)


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Вторник, 08.07.2025, 11:40
 
Ответить
Сообщение[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    a = Target.Column
    b = Target.Row
    If a > 1 And a < 11 Then Cells(b, a + 1).Select
    If a = 11 Then Cells(b, 2).Select
End Sub
[/vba]
и нажимая клавишу вправо
можете жать на энтер

апдэйт
для клавиши вправо
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    a = Target.Column
    b = Target.Row
    If a > 11 Then Cells(b, 2).Select
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 08.07.2025 в 11:14
mayvitol Дата: Вторник, 08.07.2025, 12:34 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Спасибо! Сработал второй вариант, первый только в случае ввода данных и нажатия энтер.
Второй и по клавише вправо, и по энтеру и без ввода данных. yes


Сообщение отредактировал mayvitol - Вторник, 08.07.2025, 12:35
 
Ответить
СообщениеСпасибо! Сработал второй вариант, первый только в случае ввода данных и нажатия энтер.
Второй и по клавише вправо, и по энтеру и без ввода данных. yes

Автор - mayvitol
Дата добавления - 08.07.2025 в 12:34
MikeVol Дата: Вторник, 08.07.2025, 13:57 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 447
Репутация: 106 ±
Замечаний: 0% ±

MSO LTSC 2021 EN
Дежавю что-ли у меня...


Ученик.
Одесса - Украина
 
Ответить
СообщениеДежавю что-ли у меня...

Автор - MikeVol
Дата добавления - 08.07.2025 в 13:57
  • Страница 1 из 1
  • 1
Поиск:

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