Moderatori: Anthony47, Flash30005
=ADESSO()
Private Sub Worksheet_Calculate()
On Error Resume Next
ActiveCell.Value = ActiveCell.Value + 1
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
ActiveCell.Value = ActiveCell.Value + 1
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
ActiveCell.Value = ActiveCell.Value + 1
Cancel = True
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
ActiveCell.Value = ActiveCell.Value + 1
Cancel = True
End Sub
Neffa ha scritto:Ti ringrazio tantissimo era proprio quello che mi serviva...
In aggiuta se volessi che il sistema fosse automatizzato tramite combinazione di tasti (sulla tastiera ovviamente). Ti spiego funziona così sulla riga ho il nome del giocatore, in colonna ho 5 fondamentali (muro, battuta, ricezione, attacco e contrattacco), ognuno dei 5 fondamentali ha 5 celle in cui viene incrementato il voto(++,+,/,-,--). es. pratico:
Muro ricezione ecc...
++ + / - -- ++ + / - --
Luigi 5 1 2 0 2 2 1 0 0 3
Mario 2 0 3 0 2 4 3 0 0 1
Vorrei sapere se ad esempio si potesse fare una cosa del tipo: F1(giocatore Mario)+1(fondamentale muro)+A(voto ++) così da poter incrementare automaticamente tramite combinazione di tasti la cella portando il valore da 5 a 6, cioè incrementandolo di uno.
Ti ringrazio per la tua enorme disponibilità.
Ciao.
Torna a Applicazioni Office Windows
Inserimento parziale valore cella in MessageBox Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 6 |
Inserire add.in nella barra di avvio veloce in excel 2003 Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
Aggiornare cella con somma quando aggiungo nuova colonna Autore: marcopont |
Forum: Applicazioni Office Windows Risposte: 1 |
Excel: problema con date se devo unirle a testi Autore: valle1975 |
Forum: Applicazioni Office Windows Risposte: 5 |
Visitano il forum: Nessuno e 11 ospiti