Какие клавиши нажаты (не для слежки)

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

Какие клавиши нажаты (не для слежки) (Макросы/Sub)

SergeyKorotun

Дата: Пятница, 25.07.2014, 11:47 | Сообщение № 1

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

Ранг: Обитатель

Сообщений: 301

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

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

Excel 2007

Хотел тоже задать такой вопрос, но опередили, и тему закрыли.
Я назначил первым четырем макросам горячие клавиши Ctrl+A, Ctrl+D, Ctrl+W, Ctrl+S соответственно, и с них вызываю основную процедуру, передавая ей в качестве параметра условный код нажатой клавиши.
А как перехватить нажатие стрелок управления курсором?
[vba]

Код

Sub left()
    Call hod("left")
End Sub

Sub right()
    Call hod("right")
End Sub

Sub up()
    Call hod("up")
End Sub

Sub down()
    Call hod("down")
End Sub

Sub hod(route)
    MsgBox route
End Sub

[/vba]

Ответить

Hugo

Дата: Пятница, 25.07.2014, 12:12 | Сообщение № 2

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

Ранг: Участник клуба

Сообщений: 3854

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

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

365

Не туда пошли. Думаю нужно как то так:
[vba]

Код

Sub tt()
     Application.OnKey "{DOWN}", "msgdwn"
     Application.OnKey "{UP}", "msgup"
End Sub

Sub msgdwn()
     MsgBox "down"
End Sub

Sub msgup()
     MsgBox "up"
End Sub

[/vba]

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

SergeyKorotun

Дата: Пятница, 25.07.2014, 12:43 | Сообщение № 3

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

Ранг: Обитатель

Сообщений: 301

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

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

Excel 2007

А куда ее надо вставить (или как ее обозвать), чтобы при загрузке екселя она автоматически запустилась.
И ее как остановить? [vba]

Код

Application.OnKey "{DOWN}",""

[/vba] Так?

Ответить

nilem

Дата: Пятница, 25.07.2014, 15:22 | Сообщение № 4

Группа: Авторы

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

Сообщений: 1613

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

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

Excel 2013, 2016

нажатие кнопки "стрелка вниз" просто игнорируется:
[vba]

Код

Application.OnKey "{DOWN}",""

[/vba]
а чтобы отменить OnKey (вернуть обычную функциональность):
[vba]

Код

Application.OnKey "{DOWN}"

[/vba]

Яндекс.Деньги 4100159601573

Ответить

SergeyKorotun

Дата: Пятница, 25.07.2014, 15:38 | Сообщение № 5

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

Ранг: Обитатель

Сообщений: 301

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

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

Excel 2007

А как запустить Sub tt() автоматически в момент открытия книги?

Ответить

nilem

Дата: Пятница, 25.07.2014, 15:45 | Сообщение № 6

Группа: Авторы

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

Сообщений: 1613

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

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

Excel 2013, 2016

в модуль "ЭтаКнига"
[vba]

Код

Private Sub Workbook_Open()
Application.OnKey "{DOWN}", "msgdwn"
Application.OnKey "{UP}", "msgup"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{DOWN}"
Application.OnKey "{UP}"
End Sub

[/vba]

Яндекс.Деньги 4100159601573

Ответить

Какие клавиши нажаты (не для слежки) (Макросы/Sub)

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