How to trigger a macro with a letter key without "Ctrl"

[john12345]

Hello,

So the problem is, I am creating a simple game in Excel&VBA with two players, each player needs to control four keys. For the first player, I used the four direction keys and Application.OnKey function, like this:

Sub DeclareKeys()
Application.OnKey "{UP}", "Move_up"
Application.OnKey "{DOWN}", "Move_down"
Application.OnKey "{LEFT}", "Move_left"
Application.OnKey "{RIGHT}", "Move_right"
End Sub

But for the second player, I have to use those letter keys like "w, s, a, d" to trigger macros, but I cannot use Application.OnKey for those keys. I can also assign shortcut using "Ctrl + w", "Ctrl + d" ..., but that is not user-friendly for the player, and also the input from the direction keys combining the "Ctrl" will have some other negative effects.

So basically, how to trigger a macro with only a letter key, without "Ctrl" or anything else?

Thank you so much!

 

[nardagus]

I haven't played around with what you are doing but after short research I came up with this:

For key "a" to trigger a macro without holding CTRL type:

[COLOR=#333333]Application.OnKey "a", "some_proc"

it seems {} is needed for special keys like UP, Down or Enter.

Nard[/COLOR]

 

[john12345]

Thank you so much Nard! It seem to make sense and I will have a try later on.

 

[john12345]

Hello again,

I tried Application.OnKey "a", "some_proc"

But it does not work. When I click one the keyboard, it just makes what I type appear somewhere on the datasheet, and the Macro cannot be triggered.

I am starting to doubt if it is possible or not.

Anyone knows the answer? THANKS!

 

[pgc01]

Hi John

Use the key ascii code.

For ex., for the letter "A", the ascii code is 65, try:

Application.OnKey "{65}", "TestA"

 

[john12345]

Hello PGC,

Thank you so much! Problem solved!

 

[pgc01]

I'm glad it helped.

Remark: it should also work with the letter

Application.OnKey "{a}", "TestA"