I want to Create a shortcut key from keyboard menu.
How to Create ?
I want to Create a shortcut key from keyboard menu.
How to Create ?
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 ?
i don't want to used mouse.
so that Create in Keyborad shortcut
And Use only Keyboard
Originally Posted by Stormseed
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.
____________________________________________
Nihil simul inventum est et perfectum
Abusus non tollit usum
Last night I dreamed of a small consolation enjoyed only by the blind: Nobody knows the trouble I've not seen!
James Thurber
Can I Use Faction menu ? About ("F1", "F2"....)
What is Faction Menu?
____________________________________________
Nihil simul inventum est et perfectum
Abusus non tollit usum
Last night I dreamed of a small consolation enjoyed only by the blind: Nobody knows the trouble I've not seen!
James Thurber
I guess, OP means to say "Function Menu" ? not sure..Originally Posted by xld
ya sure "Function Menu"
key on keyboard ("F1" to "F12")
One ugly way to do it would be to use the _KeyDown events of every control in the Userform.
How to Used ?
about the_keyDown events?
Can u Have any Code of keydown?
Put this in the UF code module and mySub will run everytime Shift+F5 is pressed.
[VBA]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[/VBA]
done. Thank You