Application.onkey not working?

[Elogger]

Hi,

I am trying to use the WASD keys to move the current cell up,down,left and right however my application.onkey is not working.

Public Sub workbook_open(ByVal target As Range)Application.OnKey ("w"), "moveup"
Application.OnKey ("a"), "moveleft"
Application.OnKey ("s"), "moveright"
Application.OnKey ("d"), "movedown"
End Sub

This is what I have in my workbook module and then in a seperate module I have the offset functions. However when I press W a W appears in the cell.

Anyone know what I am doing wrong?

Thanks

 

[Teeroy]

It should work unless you are editing the cell; while you are editing the cell that action takes precedence and the macro won't run.

Another possibility is that macro security is set to disable macros without notification.

 

[Elogger]

It should work unless you are editing the cell; while you are editing the cell that action takes precedence and the macro won't run.

Another possibility is that macro security is set to disable macros without notification.

Macro security is set to enable but it still doesn't work. How do I make it that when I press W or A or any of the keys that excel doesn't automatically begin editing the cell?

 

[jtakw]

Hi,

I am trying to use the WASD keys to move the current cell up,down,left and right however my application.onkey is not working.

Public Sub workbook_open(ByVal target As Range)Application.OnKey ("w"), "moveup"
Application.OnKey ("a"), "moveleft"
Application.OnKey ("s"), "moveright"
Application.OnKey ("d"), "movedown"
End Sub

This is what I have in my workbook module and then in a seperate module I have the offset functions. However when I press W a W appears in the cell.

Anyone know what I am doing wrong?

Thanks

Hi,

I think it's because your macro never got activated, I think it's in the wrong place.

Try this:

Copy the following codes in the ThisWorkbook module:

Private Sub Workbook_Activate()
With Application
    .OnKey ("w"), "moveup"
    .OnKey ("a"), "moveleft"
    .OnKey ("s"), "moveright"
    .OnKey ("d"), "movedown"
End With
End Sub

Private Sub Workbook_Deactivate()
With Application
    .OnKey ("w")
    .OnKey ("a")
    .OnKey ("s")
    .OnKey ("d")
End With
End Sub

The above method will activate your custom OnKey commands for the duration you're working on the workbook the macro resides, that also means, as long as you're on subject workbook your "w, a, s, d" keys won't work for input.

There are more than one way to assign/activate the OnKey commands...
If you want to turn the OnKey commands "On" and "Off" while working in your workbook on demand, then copy the following codes in a standard module:

Sub ActivateOnKey()
With Application
    .OnKey ("w"), "moveup"
    .OnKey ("a"), "moveleft"
    .OnKey ("s"), "moveright"
    .OnKey ("d"), "movedown"
End With
End Sub

Sub DeActivateOnKey()
With Application
    .OnKey ("w")
    .OnKey ("a")
    .OnKey ("s")
    .OnKey ("d")
End With
End Sub

This method allows you to turn "On" or "Off" your custom OnKey commands by running the appropriate macro as named, that means, when "ActivateOnKey" is ran, your "w, a, s, d" keys work like the arrow keys, but once "DeActivateOnKey" is ran, your "w, a, s, d" keys can be used normally for input.

Let me know how it works out for you.