Solved: Create A Short Cut Key in Menu

[pachchigar]

I want to Create a shortcut key from keyboard menu.
How to Create ?:banghead:

[Stormseed]

Hi

Could you please explain what type of shortcut key ? Are we talking about the Menu options or some kind of a macro shortcut key ?

[pachchigar]

i don't want to used mouse.
so that Create in Keyborad shortcut
And Use only Keyboard :banghead:


Hi

Could you please explain what type of shortcut key ? Are we talking about the Menu options or some kind of a macro shortcut key ?

[Bob Phillips]

I think you are stuck. A form doesn't respond to Excel shortcuts, and the usual method of & a characater in a button and using Alt-character to invoke it doesn't work on these menu items. You might be able to hook some API in to delegate it to, but I am not sure at this moment what.

[pachchigar]

Can I Use Faction menu ? About ("F1", "F2"....)

[Bob Phillips]

What is Faction Menu?

[Stormseed]

What is Faction Menu?

I guess, OP means to say "Function Menu" ? not sure..

[pachchigar]

ya sure "Function Menu"
key on keyboard ("F1" to "F12")

[mikerickson]

One ugly way to do it would be to use the _KeyDown events of every control in the Userform.

[pachchigar]

How to Used ?
about the_keyDown events?
Can u Have any Code of keydown?

[mikerickson]

Put this in the UF code module and mySub will run everytime Shift+F5 is pressed.
Private Sub CommandButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode * Shift = 116 Then
Call mySub
End If
End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode * Shift = 116 Then
Call mySub
End If
End Sub

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode * Shift = 116 Then
Call mySub
End If
End Sub

Sub mySub()
MsgBox "x"
End Sub

[pachchigar]

done. Thank You