EXCELer

Por vezes podemos ter a necessidade de redefinir uma tecla para uma outra. No exemplo seguinte, redefine-se a tecla ENTER (incluindo a numérica) para a tecla TAB e provoca-se um avanço de uma coluna na mesma linha:


Sub Auto_open()
    Application.OnKey "~", "JumpNext"
    Application.OnKey "{ENTER}", "JumpNext1"
End Sub


Sub JumpNext()
    r = ActiveCell.Row
    c = ActiveCell.Column


    If c >= 1 Then
        c = c + 1
        r = r
    Else
        
    End If


    Cells(r, c).Activate


End Sub

Sub JumpNext1()
    r = ActiveCell.Row
    c = ActiveCell.Column


    If c >= 1 Then
        c = c + 1
        r = r
    Else
        
    End If


    Cells(r, c).Activate


End Sub