Question : Formatage conditionnel de couleur d'Excel 2003 VBA

J'ai un cahier de travail que je fais installer le formatage conditionnel dedans. Tout est travail grand, mais maintenant le client veut qu'une partie du formatage soit basée sur le contenu de 2 cellules au lieu d'une. le

In le cahier de travail joint, sur la �ère feuille de travail (« repères »), le
column D doit être colorindex38 si la colonne C est 0 (pas blanc), le
qu'il doit être le colorindex 40 si la colonne C est 40, le
il doit être colorindex36 si la colonne C est 50, le
it doit être le colorindex 37 si la colonne C est 70 ou en haut ET ..... le
here est le problème réel….la colonne C du
if est 60 ET la colonne D est en-dessous de 94, la cellule dans la colonne D doit être la colonne C du yellow
if est 60 ET la colonne D est >93, la cellule dans la colonne D doit être extrait de code du green

*The que j'ai attaché ci-dessous est la partie j'actuellement ai installée pour le formatting conditionnel class= > " clair " de
> de " codeSnippet " de class= de
class= " lineNumbers " de
class= de 
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 :
58 :
59 :
60 :
61 :
62 :
63 :
64 :
65 :
66 :
67 :
68 :
69 :
70 :
71 :
72 :
73 :
74 :
75 :
76 :
77 :
78 :
79 :
80 :
81 :
82 :
83 :
84 :
85 :
86 :
87 :
88 :
89 :
90 :
91 :
92 :
93 :
94 :
95 :
96 :
97 :
98 :
99 :
100 :
101 :
102 :
103 :
104 :
105 :
106 :
107 :
108 :
109 :
110 :
111 :
112 :
113 :
114 :
115 :
116 :
117 :
118 :
119 :
>Sub " de l'id= " codeSnippet946372 de 
 de cible et IsNumeric (cible) puis
            Sinon intersecter (cible. Gamme (« C4 : C41 »)) N'est rien alors
                v = Application.Match (cible, rangée (0, 40, 50, 60, 70), 1)
                Sinon IsError (v) alors
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Finir si
            Finir si
            Sinon intersecter (cible. Gamme (« E4 : E41 »)) N'est rien alors
                v = Application.Match (cible, rangée (0, 7.5, 8, 12, 17), 1)
                Sinon IsError (v) alors
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Finir si
            Finir si
            Sinon intersecter (cible. Gamme (« F4 : F41 »)) N'est rien alors
                v = Application.Match (cible, rangée (0, 25, 50, 75, 90), 1)
                Sinon IsError (v) alors
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Finir si
            Finir si
            Sinon intersecter (cible. Gamme (« G4 : G41 »)) N'est rien alors
                v = Application.Match (cible, rangée (0, 25, 50, 75, 90), 1)
                Sinon IsError (v) alors
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Finir si
            Finir si
            Sinon intersecter (cible. Gamme (« H4 : H41 »)) N'est rien alors
                v = Application.Match (cible, rangée (0, 25, 50, 75, 90), 1)
                Sinon IsError (v) alors
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Finir si
            Finir si
            Sinon intersecter (cible. Gamme (« I4 : I41 »)) N'est rien alors
                v = Application.Match (cible, rangée (0, 25, 50, 75, 90), 1)
                Sinon IsError (v) alors
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Finir si
            Finir si
            Sinon intersecter (cible. Gamme (« K4 : K41 »)) N'est rien alors
                v = Application.Match (cible, rangée (0, 40, 50, 60, 70), 1)
                Sinon IsError (v) alors
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Finir si
            Finir si
            Sinon intersecter (cible. Gamme (« M4 : M41 »)) N'est rien alors
                v = Application.Match (cible, rangée (0, 7.5, 8, 12, 17), 1)
                Sinon IsError (v) alors
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Finir si
            Finir si
            Sinon intersecter (cible. Gamme (« N4 : N41 »)) N'est rien alors
                v = Application.Match (cible, rangée (0, 25, 50, 75, 90), 1)
                Sinon IsError (v) alors
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Finir si
            Finir si
            Sinon intersecter (cible. Gamme (« O4 : O41 »)) N'est rien alors
                v = Application.Match (cible, rangée (0, 25, 50, 75, 90), 1)
                Sinon IsError (v) alors
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Finir si
            Finir si
            Sinon intersecter (cible. Gamme (« P4 : P41 »)) N'est rien alors
                v = Application.Match (cible, rangée (0, 25, 50, 75, 90), 1)
                Sinon IsError (v) alors
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Finir si
            Finir si
            Sinon intersecter (cible. Gamme (« Q4 : Q41 »)) N'est rien alors
                v = Application.Match (cible, rangée (0, 25, 50, 75, 90), 1)
                Sinon IsError (v) alors
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Finir si
            Finir si
            Sinon intersecter (cible. Gamme (« S4 : S41 »)) N'est rien alors
                v = Application.Match (cible, rangée (0, 40, 50, 60, 70), 1)
                Sinon IsError (v) alors
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Finir si
            Finir si
            Sinon intersecter (cible. Gamme (« U4 : U41 »)) N'est rien alors
                v = Application.Match (cible, rangée (0, 7.5, 8, 12, 17), 1)
                Sinon IsError (v) alors
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Finir si
            Finir si
            Sinon intersecter (cible. Gamme (« V4 : V41 »)) N'est rien alors
                v = Application.Match (cible, rangée (0, 25, 50, 75, 90), 1)
                Sinon IsError (v) alors
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Finir si
            Finir si
            Sinon intersecter (cible. Gamme (« W4 : W41 »)) N'est rien alors
                v = Application.Match (cible, rangée (0, 25, 50, 75, 90), 1)
                Sinon IsError (v) alors
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Finir si
            Finir si
            Sinon intersecter (cible. Gamme (« X4 : X41 »)) N'est rien alors
                v = Application.Match (cible, rangée (0, 25, 50, 75, 90), 1)
                Sinon IsError (v) alors
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Finir si
            Finir si
            Sinon intersecter (cible. Gamme (« Y4 : Y41 »)) N'est rien alors
                v = Application.Match (cible, rangée (0, 25, 50, 75, 90), 1)
                Sinon IsError (v) alors
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Finir si
            Finir si
        Finir si
   Après
Extrémité avec
Sous-marin d'extrémité
class= " lastRow de
>Attachments de " nom " de class= de
class= " valeur " de
>
class= " fileInfo " de
le title= " de " nom de fichier de class= " de SWE-10-11-Benchmarks-6th.xls le class= (Mb 3.2)  Javascript de href= " de " attachmentDetails de class= " de (type de dossier détails)  
class= " description " de
Benchmarks
le class= de
de >
class= de

Réponse : Formatage conditionnel de couleur d'Excel 2003 VBA

Ou, il n'a pas attaché le code !
1 :
2 :
3 :
4 :

international FieldLength = 20 ;
corde s = « 123456789 » ;
format de corde = « {0, - » + FieldLength + « } » ;
Console.WriteLine (String.Format (format, s));
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