Nuolinäppäinohjaus VBA:lla

taulukon moduuliin...

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.OnKey "{RIGHT}", "Oikealle"
Application.OnKey "{LEFT}", "Vasemmalle"
Application.OnKey "{UP}", "Ylös"
Application.OnKey "{DOWN}", "Alas"
End Sub

tavalliseen moduuliin...(koodin pätkät resetoinnille ja käytöstä poistoon kanssa)

Option Explicit

Sub Oikealle()
MsgBox "oikealle"
End Sub
Sub VAsemmalle()
MsgBox "vasemmalle"
End Sub
Sub Ylös()
MsgBox "ylös"
End Sub
Sub Alas()
MsgBox "alas"
End Sub
Sub Poistaakäytöstä()
Application.OnKey "{RIGHT}", ""
Application.OnKey "{LEFT}", ""
Application.OnKey "{UP}", ""
Application.OnKey "{DOWN}", ""
End Sub
Sub Resetoi()
Application.OnKey "{RIGHT}"
Application.OnKey "{LEFT}"
Application.OnKey "{UP}"
Application.OnKey "{DOWN}"
End Sub

Keep EXCELing
@Kunde

Ettei lisäykset lopu ..

Soluvalinta täytyykin tehdä kahdesti, että nuolet pelittää heti, eli esim..

ActiveSheet.Range("B1").Select

ActiveSheet.Range("A1").Select

ei tartte kikkailla kun lisäät

ThisWorkbook moduuliin...

Sub Auto_Open()
Application.OnKey "{RIGHT}", "Oikealle"
Application.OnKey "{LEFT}", "Vasemmalle"
Application.OnKey "{UP}", "Ylös"
Application.OnKey "{DOWN}", "Alas"
End Sub