inserire codici senza premere invio

[Superciuk]

Salve,
ho il seguente problema da risolvere con Excel: vorrei inserire più rapidamente dei codici numerici (1 oppure 2 oppure 3) nelle singole celle senza dover digitare ogni volta il pulsante invio per spostarmi alla cella sottostante oppure il pulsante tabulatore per spostarmi alla colonna di fianco.
Ho cercato all'interno dell'help di excel ma non sono riuscito a trovare nulla in proposito. C'è qualcuno che sa darmi una soluzione in merito?
Grazie in anticipo.

[cassioli]

Salve,
ho il seguente problema da risolvere con Excel: vorrei inserire più rapidamente dei codici numerici (1 oppure 2 oppure 3) nelle singole celle senza dover digitare ogni volta il pulsante invio per spostarmi alla cella sottostante oppure il pulsante tabulatore per spostarmi alla colonna di fianco.
Ho cercato all'interno dell'help di excel ma non sono riuscito a trovare nulla in proposito. C'è qualcuno che sa darmi una soluzione in merito?
Grazie in anticipo.

potresti provare con la telepatia...
scusa, come pensi di far capire al PC cosa vuoi fare, senza premere tasti??? Come fa Excel a sapere che il numero è finito, se non premi un tasto quando è finito? Oppure sono tutti di una cifra? E poi in quale cella si deve spostare Excel dopo che hai inserito un numero? Sempre a destra? Sempre in basso?

[Superciuk]

Il numero da inserire è sempre di una cifra, nella fattispecie sarebbe, a seconda dei casi, 1 oppure 2 oppure 3 oppure 4. Si dovrebbe spostare a destra (quindi alla colonna di fianco) senza premere il pulsante tabulatore ogni volta. Spero di descritto bene il quesito.

[cassioli]

Nell'editor VBA di Excel:

1)In un modulo:

Codice: Seleziona tutto

Sub Sposta1()
    ActiveCell = "1"
    ActiveCell.Offset(0, 1).Select
End Sub

Sub Sposta2()
    ActiveCell = "2"
    ActiveCell.Offset(0, 1).Select
End Sub


Sub Sposta3()
    ActiveCell = "3"
    ActiveCell.Offset(0, 1).Select
End Sub


Sub Sposta4()
    ActiveCell = "4"
    ActiveCell.Offset(0, 1).Select
End Sub

2) Nel modulo "foglio 1" (o come si chiama il tuo foglio):

Codice: Seleziona tutto

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Debug.Print "test"
    Application.OnKey "1", "Sposta1"
    Application.OnKey "2", "Sposta2"
    Application.OnKey "3", "Sposta3"
    Application.OnKey "4", "Sposta4"
End Sub

Purtroppo funziona solo con la tastiera principale, non col tastierino numerico.

[cassioli]

Correzione

Codice: Seleziona tutto

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.OnKey "1", "Sposta1"
    Application.OnKey "{97}", "Sposta1"
    Application.OnKey "2", "Sposta2"
    Application.OnKey "{98}", "Sposta2"
    Application.OnKey "3", "Sposta3"
    Application.OnKey "{99}", "Sposta3"
    Application.OnKey "4", "Sposta4"
    Application.OnKey "{100}", "Sposta4"
End Sub


(notare che le modifiche diventano attive solo dopo che selezioni a mano una cella qualunque)

[Superciuk]

Perfetto! Grazie tante sei stato gentilissimo. Funziona tutto ottimamente bene.