Il file che ho scaricato include un "Progetto VBA" con 8 Moduli destinati a contenere macro standard e 1 Modulo di classe destinato a contenere definizioni di proprieta' con cui creare nuovi "oggetti"; inoltre nei Riferimenti del vba e' "spuntata" la Libreria Microsoft Outlook 15.0. Non e' che stai cercando di fare una cosa piu' grande di quel che sei gia' in grado di fare?
Sono inoltre presenti due Sub oneSec, una in Modulo4 l'altra in Modulo8.
La versione in Modulo4 contiene istruzioni modificate rispetto a quanto da me pubblicato; l'ho rinominata per renderla innocua, lascio a te il compito di cancellarla. La versione in Modulo8 e' analogaamente modificata a caso e anche quella te la lascio rinominata e si puo' eliminare.
La Sub Worksheet_BeforeDoubleClick non e' allineata con la versione "18-apr sera tardi", ma alla prima (18-apr matt presto); anche questa l'ho rinominata per renderla innocua.
Inoltre, dalla tua ultima descrizione, vorresti tanti timer; poiche' un solo stato alla volta e' attivo, ti potresti accontentare di un unico timer (come avevo suggerito), che conta l'elapsed time nello stato corrente, mentre ho visto che in colonne J:M hai delle formule per calcolare la durata di alcuni stati che evidentemente sono importanti.
A questo punto:
-ho inserito la mia Sub Worksheet_BeforeDoubleClick versione "18-apr sera tardi", modificando l'istruzione marcata <<< per puntare alle colonna B:I
-ho inserito la Sub oneSec in Modulo1 (avevo vasta scelta di moduli) e ho modificato l'istruzione marcata <<< perche' puntasse a "Foglio 2"
Per il singolo contatore incrementale ho messo in P3 e P4 la formula che avevo suggerito il "18-apr sera tardi"
- Codice: Seleziona tutto
=SE(MAX(B3:I3)>0;RESTO(ADESSO();1)-MAX(B3:I3);"")
(adattata al tuo elenco colonne)
A questo punto se faccio doppiclick in una colonna dell'area B:I viene inserita nella cella l'ora corrente, e nella cella P3 il contatore incrementa.
Se cancello Z1 il processo si ferma e il file puo' essere chiuso, o ripreso col successivo doppioclick.
Il file cosi' modificato e' reperibile qui:
https://www.dropbox.com/s/8mo6yd4boc6cm ... 4.xls?dl=0Ciao