incrementare cella excel

[Salentu]

chiedo scusa se la sezione è sbagliata

devo creare un foglio excel con i risultati di un questionario
vorrei ssapere se si può fare una macro che incrementi di 1 il valore della cella selezionata alla pressione della combinazione di tasti. grazie

[nicola75ss]

Ti faccio un esempio che rende l'idea

Sub chiama()
Application.OnKey "^{m}", "incrementa"
End Sub

Sub incrementa()
ActiveCell.Value = ActiveCell.Value + 1
End Sub

Lancia la macro chiama e poi premi ctrl+m su una cella qualsiasi.