Pergunta : Contador e Timestamp em Excel

Eu estou procurando alguém para expandir o VBA que programa no spreadsheet unido para incluir duas mais séries de dados. O spreadsheet atual funciona como segue: o spreadsheet do

This compara o número na coluna A (número 1) ao número na coluna B (comp(s) 1) que é um valor de estática e conta o número de épocas número 1 é maior do que ou menos do que comp(s) 1.  Então, quando o número 1 for maior do que comp(s) 1, do spreadsheet a coluna U. dos timestamps automaticamente.  Uma descrição mais detalhada pode ser encontrada em meu último borne intitulado “Timestamp/"

I quer aplicar esta mesma funcionalidade às colunas destacadas (Y com AJ).  Além disso, eu quero somente a coluna AI ao timestamp em que o número 5 é maior do que os comp(s) 5 e mim querem à coluna do timestamp AJ quando o número 6 é menos do que comp(s) 6.  Olhar por favor o código atual de VBA e meu borne precedente para ver como o programa atual trabalha.  Deixar-me por favor saber se há alguma pergunta.  Eu compreendo que esta é uma pergunta difícil e eu seria certo atribuir um “A” a qualquer um que é acima para o challenge.

Thanks,
Zach class= do " lastRow do
>Attachments do " nome " do class= do class= " valor " do
>
nome de arquivo " do class= do >Counter.xlsm " fileSize " > (58 KB) Javascript " do href= o " dos " attachmentDetails do class= de (tipo de lima detalhes)
>Main File
da " descrição " do class= do
o class= de
do >
class= do

Resposta : Contador e Timestamp em Excel

Eu faltei o bocado com atualização do selo de tempo com caso 5 somente quando maior do que e com caso 6 somente se menos do que. Desde que você está comparando sempre uma coluna com a outra, não pareceu necessário a mim dar laços através de todas as pilhas em ambas as colunas. Eliminar essa caraterística permite que WorksheetChange torne-se muito mais simples.

Código revisado mostrado abaixo. Este código igualmente reparou alguns erros em 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:

CheckMyData secundário ()
CellEntry não ofuscante como a escala, rg como a escala
Addr não ofuscante como a variação
Com Sheet1
    Para cada addr na disposição (“A2”, “F2”, “K2”, “P2”, “Y2”, “AD2”)
        Ajustar o rg =. Escala (CStr (addr))
        Ajustar o rg = a escala (rg. Pilhas (. Rows.Count, rg. Coluna). Extremidade (xlUp))
        Para cada CellEntry no rg. Pilhas
            WorksheetChange CellEntry
        Em seguida
    Em seguida
Extremidade com
Application.OnTime EarliestTime: =Now + TimeValue (“00: 00: 10”), procedimento: = " CheckMyData”
Submarino da extremidade

WorksheetChange secundário (alvo de ByVal como a escala)
rngValue2 não ofuscante como a escala, rngGreaterThan como a escala, rngLessThan como a escala, rngLastAction como a escala, rngTimeStamp como a escala
Selecionar o caso Target.Column
O caso é <> rngValue2.Value então
        Se rngLastAction <> “>” então
            + 1 rngGreaterThan = rngGreaterThan
            Se Target.Column <> 30 então rngTimeStamp.Value = agora ()
            rngLastAction = “>”
        Terminar se
    ElseIf Target.Value < rngValue2=""> “<> 25 então rngTimeStamp.Value = agora ()
            rngLastAction = “<> ao >= ou  < to="">
Outras soluções  
 
programming4us programming4us