Frage : Kostenzähler und Zeitstempel in Excel

Ich suche jemand, um das VBA zu erweitern, das im angebrachten Verteilungsbogen programmiert, um zwei weitere Dateien einzuschließen. Der gegenwärtige Verteilungsbogen arbeitet, wie folgt:

This Verteilungsbogen vergleicht die Zahl in Spalte A (Nr. 1) zur Zahl in Spalte B (Baut. 1), der ein statischer Wert ist und die Zahl Zeiten Nr. 1 zählt, ist grösser als oder kleiner als Baut. 1.  Dann wenn Nr. 1 grösser als Baut. 1 ist, die des Verteilungsbogens Zeitstempelspalte U. automatisch.  Eine ausführlichere Beschreibung kann in meinem letzten Pfosten gefunden werden, der „Zeitstempel/Gegen"

I betitelt wird, möchten diese gleiche Funktionalität an den hervorgehobenen Spalten (Y durch AJ) anwenden.  Außerdem wünsche ich nur Spalte AI zum Zeitstempel, als Nr. 5 grösser ist, als Baut. 5 und ich zur AJ Zeitstempelspalte wünschen, wenn Nr. 6 kleiner als Baut. 6. ist.  Den gegenwärtigen VBA Code und meinen vorhergehenden Pfosten bitte betrachten, um zu sehen, wie das aktuelle Programm arbeitet.  Mich bitte informieren, wenn es irgendwelche Fragen gibt.  Ich verstehe, dass dieses eine schwierige Frage ist und ich sicher sein würde, ein „A“ jedermann, das oben für das challenge.

Thanks ist,
Zach zuzuweisen
Attachments:

Antwort : Kostenzähler und Zeitstempel in Excel

Ich verfehlte die Spitze mit der Aktualisierung des Zeitstempels mit Rechtssache 5 nur als grösser als und mit Rechtssache 6 nur wenn kleiner als. Da Sie immer eine Spalte mit anderen vergleichen, zu schlingen schien nicht notwendig zu mir, durch alle Zellen in beiden Spalten. Das Beseitigen dieser Eigenschaft lässt WorksheetChange viel einfacher werden.

Korrigierter Code unten gezeigt. Dieser Code reparierte auch einige Wanzen in 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:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:

VorCheckMyData ()
Schwaches CellEntry als Strecke, rg als Strecke
Schwacher addr als Variante
Mit Sheet1
    Für jeden addr in der Reihe („A2“, „F2“, „K2“, „P2“, „Y2“, „AD2“)
        Rg einstellen =. Strecke (CStr (addr))
        Rg = Strecke einstellen (rg. Zellen (. Rows.Count, rg. Spalte). Ende (xlUp))
        Für jedes CellEntry im rg. Zellen
            WorksheetChange CellEntry
        Zunächst
    Zunächst
Ende mit
Application.OnTime EarliestTime: =Now + TimeValue („00: 00: 10“), Verfahren: = " CheckMyData“
Enden-Unterseeboot

VorWorksheetChange (ByVal Ziel als Strecke)
Schwaches rngValue2 als Strecke, rngGreaterThan als Strecke, rngLessThan als Strecke, rngLastAction als Strecke, rngTimeStamp als Strecke
Fall Target.Column vorwählen
Fall ist <> rngValue2.Value dann
        Wenn rngLastAction <> „>“ dann
            rngGreaterThan = rngGreaterThan + 1
            Wenn Target.Column <> 30 dann rngTimeStamp.Value = jetzt ()
            rngLastAction = „>“
        Beenden wenn
    ElseIf Target.Value < rngValue2=""> „<> 25 dann rngTimeStamp.Value = jetzt ()
            rngLastAction = „<> zum >= oder  < to="">
Weitere Lösungen  
 
programming4us programming4us