Fråga : Kontra och tidsstämpeln i Excel

Förmiddag som I söker efter någon för att utvidga VBAEN som programmerar i det fäste räknearket för att inkludera två mer datamängder. Strömräknearket fungerar som följer: räknearket för

This jämför numrera i kolonn A (numrera 1), till numrera i kolonn B (komp 1) som är en statisk elektricitet värderar, och räkningar numrera av tider numrerar 1 är mer stor än eller mindre än komp 1.  Därefter när numrera, 1 är mer stor än komp 1, tidsstämpelkolonnen U för räknearket automatiskt.  En specificerad beskrivning kan finnas i min jumbo postar den berättigade ”tidsstämpeln/kontrar "

I önskar att applicera denna samma funktionsduglighet till de markerade kolonnerna (Y till och med AJ).  Dessutom jag önskar endast kolonnen AI till tidsstämpeln, då numrera 5 är mer stor, än kompet 5 och mig önskar till den AJ tidsstämpelkolonnen, när numrera 6 är mindre än komp 6.  Behaga looken på strömmen VBA kodifierar, och min föregående postar för att se hur strömprogramet fungerar.  Behaga låt mig veta, om det finns några ifrågasätter.  Jag förstår att detta är ett svårt ifrågasätter och jag skulle är säker att tilldela ”ett A” till någon, som är upp för challenge.
Thanks,
Zach Attachments: för >
<-/div> filenamen " för class= för >Counter.xlsm " fileSize " > (58 KB) " javascript för href= " för <-/span> <-/div>
för >
<-/div> " klar "

Svar : Kontra och tidsstämpeln i Excel

Jag missa bet med att uppdatera tidstämpeln med fall 5 då endast mer stor än och med fall 6 om endast mindre än. Sedan du jämför alltid en kolonn med another, det verkade inte nödvändigt till mig att kretsa till och med alla celler i båda kolonner. När du avlägsnar det särdrag låter WorksheetChange bli mycket enklare.

Reviderat kodifiera visat nedanfört. Detta kodifierar fixade också något buggar i CheckMyData.

Brad
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:

UnderCheckMyData ()
Dunkla CellEntry som spänner, rg som spänner
Dunkel addr som Variant
Med Sheet1
    För varje addr i samling (”A2”, ”F2”, ”K2”, ”P2”, ”Y2”, ”AD2”)
        Fastställd rg =. Spänna (CStr (addr))
        Fastställd rg = spänner (rg. Celler (. Rows.Count rg. Kolonn). Avsluta (xlUp))
        För varje CellEntry i rg. Celler
            WorksheetChange CellEntry
        Därefter
    Därefter
Avsluta med
Application.OnTime EarliestTime: =Now + TimeValue (”00: 00: 10”), tillvägagångssätt: = " CheckMyData”,
Avsluta suben

UnderWorksheetChange (ByVal uppsätta som mål som spänner),
Dunkel rngValue2 som spänner, rngGreaterThan som spänner, rngLessThan som spänner, rngLastAction som spänner, rngTimeStamp som spänner
Välj fallet Target.Column
Fallet är <> rngValue2.Value därefter
        Om rngLastAction <> ”>” därefter
            rngGreaterThan = rngGreaterThan + 1
            Om Target.Column <> 30 därefter rngTimeStamp.Value = nu ()
            rngLastAction = ”>”,
        Avsluta om
    ElseIf Target.Value < rngValue2=""> ”<> 25 därefter rngTimeStamp.Value = nu ()
            rngLastAction = ”<> till >= eller  < to="">
Andra lösningar  
 
programming4us programming4us