Как обрабатывать нажатие клавиши на листе Excel - Мир MS Excel

Регистрация

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

= Мир MS Excel/Как обрабатывать нажатие клавиши на листе Excel - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Как обрабатывать нажатие клавиши на листе Excel (VBA+Excel)

Как обрабатывать нажатие клавиши на листе Excel

Дата: Понедельник, 25.07.2016, 13:46 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 97

Репутация: 4 ±

Замечаний: 20% ±

Excel 2003

Здравствуйте !

Требуется сделать так, чтобы при нажатии клавиши <Enter> следующая ячейка выбиралась так: сначала следующая за ней в этой же строке, если текущая ячейка в последнем столбце таблицы, то - первая в следующей строке, если текущая ячейка была последней в таблице, то - первая в вервой строке.
Вариант с "плавающим" TextBox не годится :(

Я нашел вот эту ссылку:

https://www.experts-exchange.com/questio....BA.html

но это очень сложно для меня.

Вот мой файл Excel

Спасибо за помощь и участие

К сообщению приложен файл: UsedRange.xls (32.5 Kb)

Мудрость приходит со старостью. Но иногда старость приходит одна :)

Ответить

Дата: Понедельник, 25.07.2016, 14:29 | Сообщение № 2

Группа: Проверенные

Ранг: Ветеран

Сообщений: 980

Репутация: 127 ±

Замечаний: 0% ±

Excel 2007, Excel 2013

SGerman, не знаю, то ли Вам нужно:
в модуле книги
[vba]

Код

Private Sub Workbook_Open()
Application.OnKey "~", "Module1.M111"
End Sub

[/vba]
в модуле1
[vba]

Код

Sub M111()
Application.EnableEvents = False
r& = ActiveCell.Row
If ActiveCell.Column < 9 Then
   ActiveCell.Offset(, 1).Activate
Else
   If (r < 34) Then
       Cells(ActiveCell.Row + 1, 4).Activate
   Else
       Cells(13, 4).Activate
   End If
End If
Application.EnableEvents = True
End Sub

[/vba]
Правда, такая поправка станет действовать на все открытые книги. Пока не закроете эксель.

К сообщению приложен файл: 5997237.xls (45.0 Kb)

Много чего не знаю!!!!

Сообщение отредактировал Roman777 - Понедельник, 25.07.2016, 14:31

Ответить

Дата: Понедельник, 25.07.2016, 16:21 | Сообщение № 3

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

в модуле книги
[vba]

Код

Private Sub Workbook_Activate()
If ActiveSheet Is Sheets("Лист1") Then Application.MoveAfterReturnDirection = xlToRight
End Sub
Private Sub Workbook_Deactivate()
Application.MoveAfterReturnDirection = xlDown
End Sub

[/vba]

в модуле листа
[vba]

Код

Private Sub Worksheet_Activate()
Application.MoveAfterReturnDirection = xlToRight
End Sub
Private Sub Worksheet_Deactivate()
Application.MoveAfterReturnDirection = xlDown
End Sub

[/vba]

К сообщению приложен файл: 3674905.xls (52.5 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Понедельник, 25.07.2016, 16:22

Ответить

Дата: Понедельник, 25.07.2016, 16:22 | Сообщение № 4

Группа: Пользователи

Ранг: Участник

Сообщений: 97

Репутация: 4 ±

Замечаний: 20% ±

Excel 2003

Roman777,
Как указать клавишу <Enter> ?

Вот так не работает

[vba]

Код

Application.OnKey "{ENTER}", "ModTable.GoToNextCell"

[/vba]

Мудрость приходит со старостью. Но иногда старость приходит одна :)

Ответить

Дата: Понедельник, 25.07.2016, 16:30 | Сообщение № 5

Группа: Пользователи

Ранг: Участник

Сообщений: 97

Репутация: 4 ±

Замечаний: 20% ±

Excel 2003

krosav4ig,

О Боже, как все просто когда ЗНАЕШЬ !
Никаких перехватов, "плавающих" текстбоксов и прочей лабуды !

Спасибо огромнейшее !

Мудрость приходит со старостью. Но иногда старость приходит одна :)

Ответить

Дата: Понедельник, 25.07.2016, 16:31 | Сообщение № 6

Группа: Проверенные

Ранг: Ветеран

Сообщений: 980

Репутация: 127 ±

Замечаний: 0% ±

Excel 2007, Excel 2013

SGerman, "{ENTER}" - это "ENTER" на клавиатуре "Num" (клавиатура с цифрами правее стрелочек, обычно). А так просто тильда "~".
Manual.
А так - то у krosav4ig, способ поинтереснее будет).

Много чего не знаю!!!!

Ответить

Дата: Понедельник, 25.07.2016, 16:41 | Сообщение № 7

Группа: Пользователи

Ранг: Участник

Сообщений: 97

Репутация: 4 ±

Замечаний: 20% ±

Excel 2003

Roman777,

Ваше решение тоже отличное, спасибо !
Если б еще узнать где почитать о том, что под загадочным "~" понимется {Enter}, а заодно и все остальные клавиши, например {Ctrl+Del}, {Ctrl+Ins} и прочие

Мудрость приходит со старостью. Но иногда старость приходит одна :)

Ответить

Дата: Понедельник, 25.07.2016, 16:48 | Сообщение № 8

Группа: Пользователи

Ранг: Участник

Сообщений: 97

Репутация: 4 ±

Замечаний: 20% ±

Excel 2003

Roman777,

Добавил такую строчку и теперь обе клавиши "в теме"

[vba]

Код

Application.OnKey "{ENTER}", "Module1.M111"

[/vba]

Теперь все как надо.

Но у krosav4ig, действительно, универсальнее, т.к. рабтает только на нужном листе

Мудрость приходит со старостью. Но иногда старость приходит одна :)

Ответить

Дата: Понедельник, 25.07.2016, 16:51 | Сообщение № 9

Группа: Проверенные

Ранг: Ветеран

Сообщений: 980

Репутация: 127 ±

Замечаний: 0% ±

Excel 2007, Excel 2013

в ссылке под названием "Manual" (сообщение №6) какраз-таких одно из самых популярным мест, где можно об этом почитать) в сообщении № 7

Много чего не знаю!!!!

Сообщение отредактировал Roman777 - Понедельник, 25.07.2016, 16:56

Ответить

Дата: Понедельник, 25.07.2016, 16:52 | Сообщение № 10

Группа: Пользователи

Ранг: Участник

Сообщений: 97

Репутация: 4 ±

Замечаний: 20% ±

Excel 2003

Roman777,

Ваш Manual у меня не открывается

Цитата

Не удаётся завершить защищённую транзакцию

Мудрость приходит со старостью. Но иногда старость приходит одна :)

Ответить

Дата: Понедельник, 25.07.2016, 16:58 | Сообщение № 11

Группа: Проверенные

Ранг: Ветеран

Сообщений: 980

Репутация: 127 ±

Замечаний: 0% ±

Excel 2007, Excel 2013

Цитата SGerman, 25.07.2016 в 16:52, в сообщении № 10

Не удаётся завершить защищённую транзакцию

Странно, но это обычная справка Майкрософт.

Много чего не знаю!!!!

Ответить

Дата: Понедельник, 25.07.2016, 16:58 | Сообщение № 12

Группа: Пользователи

Ранг: Участник

Сообщений: 97

Репутация: 4 ±

Замечаний: 20% ±

Excel 2003

В принципе я нашел тут
http://access-excel.tips/excel-vba-assign-hotkey-to-macro/
Но все равно спасибо еще раз

Мудрость приходит со старостью. Но иногда старость приходит одна :)

Ответить

Дата: Понедельник, 25.07.2016, 17:00 | Сообщение № 13

Группа: Пользователи

Ранг: Участник

Сообщений: 97

Репутация: 4 ±

Замечаний: 20% ±

Excel 2003

Roman777,
msdn у меня вообще не открывается, может потому что Украина

Мудрость приходит со старостью. Но иногда старость приходит одна :)

Ответить

Дата: Понедельник, 25.07.2016, 23:47 | Сообщение № 14

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

Цитата SGerman, 25.07.2016 в 17:00, в сообщении № 13

msdn у меня вообще не открывается

а чего пишет? куда посылает?

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Ответить

Дата: Среда, 27.07.2016, 00:07 | Сообщение № 15

Группа: Пользователи

Ранг: Участник

Сообщений: 97

Репутация: 4 ±

Замечаний: 20% ±

Excel 2003

Цитата SGerman, 25.07.2016 в 17:00, в сообщении № 13

а чего пишет? куда посылает?

См. сообщение № 10

Мудрость приходит со старостью. Но иногда старость приходит одна :)

Ответить

Дата: Четверг, 28.07.2016, 20:18 | Сообщение № 16

Группа: Пользователи

Ранг: Участник

Сообщений: 97

Репутация: 4 ±

Замечаний: 20% ±

Excel 2003

Цитата SGerman, 25.07.2016 в 16:58, в сообщении № 12

msdn у меня вообще не открывается, может потому что Украина

Как и предполагалось, дело вовсе не в Украине, а в устаревшей версии Opera

Мудрость приходит со старостью. Но иногда старость приходит одна :)

Ответить

Как обрабатывать нажатие клавиши на листе Excel (VBA+Excel)

Страница 1 из 1
1

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