нажатие на клавишу...

[Tuco]

Здравствуйте!
Подскажите, пожалуйста, как сделать что-то типа этого:

Код: Выделить всё

Sub vbKeyInsert_click()
UserForm1.Show
End Sub

я имею в виду, что при нажатии на клавишу происходит какое-то событие, в данном случае, на экране появляется форма...

[Vitaly1]

см. WWW.vbstreets.ru - vba - VBA создание меню - программное назначение горячих клавишь макросам.
А вот тебе прямая ссылка:
http://www.vbstreets.ru/VBA/Articles/65843.aspx#13

[Tuco]

спасибо, буду копать...

[Vitaly1]

Чего там копать, там уже есть, к стати и о непрограммном назнаучении горячих клавиш к макросам там тоже есть, но Insert клавишу не программно ты не назначишь!

[Tuco]

именно программно мне и нужно.

[Tuco]

Что-то никак не получается. мне нужно, чтобы во время работы с одним полем при нажатии на клавишу Insert открывалась одна форма, или хотя бы inputbox, при работе с другим полем на той же форме после нажатия на insert открывалась другая форма, ну и так далее... Может, это вовсе невозможно? По крайней мере с помощью VBA?

[Vitaly1]

Во первых, получилось ли назначить горячую клавишу макрасу?

Во вторых так

Код: Выделить всё

Sub vbKeyInsert_click()
if activecell.column =1 then
UserForm1.Show
elseif activecell.column =2 then
UserForm2.Show
end if
End Sub

Но это все для поля листа.

А для поля формы, используй процедуру keydown textBox -а


П.С.
А ты в каком приложении в VBA программируешь?

[Tuco]

программирую в экселе. через keydown пробовал, но как-то не получилось.
Горячую клавишу макросу делать не пытался, т.к. не было такой необходимости, весь макрос загружается с надстройкой и главная форма (с которй работаю) загружается кнопкой, которая появляется на commandbars. Кстати, сделанной по твоей статье, за что огромное спасибо.

[Tuco]

всё было совсем по-другому! работает таким образом:

Код: Выделить всё

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyInsert Then
        call NumberAdd 'это название модуля, открывающего нужную форму
    End If
End Sub

Но всё равно спасибо за уделённое время и внимание!

[Vitaly1]

Пожалуйсто, просто ты не совсем правильно сформировал вопрос, я и сам сейчас тебе заготовил:

Код: Выделить всё

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 45 Then
MsgBox "Нажали Insert"
End If

End Sub

Что вообщемто тоже самое.

[Tuco]

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