Questione : Contatore e timestamp in Excel

Sto cercando qualcuno per espandere il VBA che programma nel foglio elettronico allegato per comprendere due nuovi insiemi di dati. Il foglio elettronico corrente funziona come segue: il foglio elettronico del

This confronta il numero in colonna A (numero 1) al numero in colonna B (comp. 1) che sono un valore statico e contano il numero di volte il numero 1 sono maggiori o di meno che dei comp. 1.  Allora, quando il numero 1 è maggior dei comp. 1, del foglio elettronico la colonna U. dei timestamp automaticamente.  Una descrizione più dettagliata può essere trovata in mio ultimo alberino intitolato “timestamp/contro "

I vuole applicare questa stessa funzionalità alle colonne evidenziate (Y con AJ).  Ancora, voglio soltanto la colonna AI al timestamp in cui il numero 5 è maggior di i comp. 5 ed io vogliono alla colonna del timestamp AJ quando il numero 6 è di meno che i comp. 6.  Esaminare prego il codice corrente di VBA ed il mio alberino precedente per vedere come il programma corrente funziona.  Lasciarlo prego sapere se ci sono delle domande.  Capisco che questa sia una domanda difficile e sarei sicuro assegnare “A„ a chiunque che sia in su per il challenge.

Thanks, il
Zach class= " lastRow del
>Attachments " di nome " del class= del class= " valore " del
il

il nome di schedario " del class= di >Counter.xlsm " fileSize " > (58 Kb) il Javascript " del href= " " dei attachmentDetails del class= di (tipo di lima particolari)
>Main File
" di descrizione " del class= del
il class= di
del >
class= del

Risposta : Contatore e timestamp in Excel

Ho mancato la punta con l'aggiornamento del bollo di tempo con il caso 5 soltanto quando maggior di e con il caso 6 soltanto se di meno che. Poiché state paragonando sempre una colonna ad un altro, non è sembrato necessario me da collegare attraverso tutte le cellule in entrambe le colonne. L'eliminazione della quella caratteristica permette che WorksheetChange diventi molto più semplice.

Codice modificato indicato sotto. Questo codice inoltre ha riparato alcuni insetti in CheckMyData.

Chiodino a testa laterale
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:

CheckMyData secondario ()
CellEntry fioco come gamma, rg come gamma
Addr fioco come variante
Con Sheet1
    Per ogni addr nell'allineamento (“A2„, “F2„, “K2„, “P2„, “Y2„, “AD2„)
        Regolare il rg =. Gamma (CStr (addr))
        Regolare il rg = la gamma (rg. Cellule (. Rows.Count, rg. Colonna). Estremità (xlUp))
        Per ogni CellEntry nel rg. Cellule
            WorksheetChange CellEntry
        Dopo
    Dopo
Estremità con
Application.OnTime EarliestTime: =Now + TimeValue (“00: 00: 10„), procedura: = " CheckMyData„
Sommergibile dell'estremità

WorksheetChange secondario (obiettivo di ByVal come gamma)
rngValue2 fioco come gamma, rngGreaterThan come gamma, rngLessThan come gamma, rngLastAction come gamma, rngTimeStamp come gamma
Selezionare il caso Target.Column
Il caso allora <> è rngValue2.Value
        Se rngLastAction <> “>„ allora
            + 1 rngGreaterThan = rngGreaterThan
            Se Target.Column <> 30 allora rngTimeStamp.Value = ora ()
            rngLastAction = “>„
        Concluder se
    ElseIf Target.Value < rngValue2=""> “<> 25 allora rngTimeStamp.Value = ora ()
            rngLastAction = “<> a >= o  < to="">
Altre soluzioni  
 
programming4us programming4us