Question : Compteur et horodateur dans Excel

Je recherche quelqu'un pour augmenter le VBA programmant dans le bilan joint pour inclure deux ensembles de données supplémentaires. Le bilan courant fonctionne comme suit : le bilan du

This compare le nombre dans la colonne A (numéro 1) au nombre dans colonne B (élém. 1) qui sont une valeur statique et comptent le nombre de fois le numéro 1 sont plus grands qu'ou moins qu'élém. 1.  Puis, quand le numéro 1 est plus grand qu'élém. 1, de bilan la colonne U. d'horodateurs automatiquement.  Une description plus détaillée peut être trouvée dans mon dernier poteau intitulé « horodateur/contre- "

I veulent s'appliquer cette même fonctionnalité aux colonnes accentuées (Y par AJ).  En outre, je veux seulement la colonne AI à l'horodateur où le numéro 5 est plus grand qu'élém. 5 et moi veulent à la colonne AJ d'horodateur quand le numéro 6 est moins qu'élém. 6.  Veuillez regarder le code courant de VBA et mon poteau précédent pour voir comment le programme en cours fonctionne.  Faites-le moi savoir s'il y a des questions.  Je comprends que c'est une question difficile et je serais sûr d'assigner « A » à n'importe qui qui est vers le haut pour le challenge.

Thanks, le
Zach class= " lastRow de
>Attachments de " nom " de class= de
class= " valeur " de
>
de " description " de class= de
le class= de
de >
class= de

Réponse : Compteur et horodateur dans Excel

J'ai manqué le peu avec mettre à jour le groupe date/heure avec l'affaire 5 seulement quand plus grand qu'et avec l'affaire 6 seulement si moins que. Puisque vous comparez toujours une colonne à des autres, il ne m'a pas semblé nécessaire de faire une boucle par toutes les cellules dans les deux colonnes. L'élimination de ce dispositif permet à WorksheetChange de devenir beaucoup plus simple.

Code révisé montré ci-dessous. Ce code a également corrigé quelques bogues dans 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 secondaire ()
Faible CellEntry comme gamme, rg comme gamme
Faible addr comme variante
Avec Sheet1
    Pour chaque addr dans la rangée (« A2 », « F2 », « K2 », « P2 », « Y2 », « AD2 »)
        Placer le rg =. Gamme (CStr (addr))
        Placer le rg = la gamme (rg. Cellules (. Rows.Count, rg. Colonne). Extrémité (xlUp))
        Pour chaque CellEntry dans le rg. Cellules
            WorksheetChange CellEntry
        Après
    Après
Extrémité avec
Application.OnTime EarliestTime : =Now + TimeValue (« 0h00 : 10 »), procédé : = " CheckMyData »
Sous-marin d'extrémité

WorksheetChange secondaire (cible de ByVal comme gamme)
Faible rngValue2 comme gamme, rngGreaterThan comme gamme, rngLessThan comme gamme, rngLastAction comme gamme, rngTimeStamp comme gamme
Choisir le cas Target.Column
Le cas est <> rngValue2.Value alors
        Si rngLastAction <> « > » puis
            + 1 rngGreaterThan = rngGreaterThan
            Si Target.Column <> 30 puis rngTimeStamp.Value = maintenant ()
            rngLastAction = « > »
        Finir si
    ElseIf Target.Value < rngValue2=""> « <> 25 puis rngTimeStamp.Value = maintenant ()
            rngLastAction = « <> au >= ou  < to="">
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us