Cuestión : Formato condicional del color de Excel 2003 VBA

Tengo un libro de trabajo que hago el formato condicional fijar adentro. Todo es trabajo grande, pero ahora el cliente quisiera que algo del formato fuera basado en el contenido de 2 células en vez de una. el

In el libro de trabajo atado, en la 1ra hoja de trabajo (“pruebas patrones”), el
column D necesita ser colorindex38 si la columna C es 0 (no espacio en blanco), el
que necesita ser el colorindex 40 si la columna C es 40, el
necesita ser colorindex36 si la columna C es 50, el
it necesita ser el colorindex 37 si la columna C es 70 o arriba Y ..... el
here es el problema real….la columna C del
if es 60 Y la columna D está debajo de 94, la célula en la columna D necesita ser la columna C del yellow
if es 60 Y la columna D es >93, la célula en la columna D necesita ser recorte de código del green

*The que he atado abajo soy la porción he fijado actual para el formatting condicional class= > " claro " del
> del " codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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 notpretty BenchmarksFormatting (rg " del class= " del id= " codeSnippet946372 del 
 de la blanco entonces
            Si no intersecarse (blanco. Gama (“C4: C41”)) Entonces está nada
                v = Application.Match (blanco, arsenal (0, 40, 50, 60, 70), 1)
                Si no IsError (v) entonces
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Terminar si
            Terminar si
            Si no intersecarse (blanco. Gama (“E4: E41”)) Entonces está nada
                v = Application.Match (blanco, arsenal (0, 7.5, 8, 12, 17), 1)
                Si no IsError (v) entonces
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Terminar si
            Terminar si
            Si no intersecarse (blanco. Gama (“F4: F41”)) Entonces está nada
                v = Application.Match (blanco, arsenal (0, 25, 50, 75, 90), 1)
                Si no IsError (v) entonces
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Terminar si
            Terminar si
            Si no intersecarse (blanco. Gama (“G4: G41”)) Entonces está nada
                v = Application.Match (blanco, arsenal (0, 25, 50, 75, 90), 1)
                Si no IsError (v) entonces
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Terminar si
            Terminar si
            Si no intersecarse (blanco. Gama (“H4: H41”)) Entonces está nada
                v = Application.Match (blanco, arsenal (0, 25, 50, 75, 90), 1)
                Si no IsError (v) entonces
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Terminar si
            Terminar si
            Si no intersecarse (blanco. Gama (“I4: I41”)) Entonces está nada
                v = Application.Match (blanco, arsenal (0, 25, 50, 75, 90), 1)
                Si no IsError (v) entonces
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Terminar si
            Terminar si
            Si no intersecarse (blanco. Gama (“K4: K41”)) Entonces está nada
                v = Application.Match (blanco, arsenal (0, 40, 50, 60, 70), 1)
                Si no IsError (v) entonces
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Terminar si
            Terminar si
            Si no intersecarse (blanco. Gama (“M4: M41”)) Entonces está nada
                v = Application.Match (blanco, arsenal (0, 7.5, 8, 12, 17), 1)
                Si no IsError (v) entonces
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Terminar si
            Terminar si
            Si no intersecarse (blanco. Gama (“N4: N41”)) Entonces está nada
                v = Application.Match (blanco, arsenal (0, 25, 50, 75, 90), 1)
                Si no IsError (v) entonces
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Terminar si
            Terminar si
            Si no intersecarse (blanco. Gama (“O4: O41”)) Entonces está nada
                v = Application.Match (blanco, arsenal (0, 25, 50, 75, 90), 1)
                Si no IsError (v) entonces
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Terminar si
            Terminar si
            Si no intersecarse (blanco. Gama (“P4: P41”)) Entonces está nada
                v = Application.Match (blanco, arsenal (0, 25, 50, 75, 90), 1)
                Si no IsError (v) entonces
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Terminar si
            Terminar si
            Si no intersecarse (blanco. Gama (“Q4: Q41”)) Entonces está nada
                v = Application.Match (blanco, arsenal (0, 25, 50, 75, 90), 1)
                Si no IsError (v) entonces
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Terminar si
            Terminar si
            Si no intersecarse (blanco. Gama (“S4: S41”)) Entonces está nada
                v = Application.Match (blanco, arsenal (0, 40, 50, 60, 70), 1)
                Si no IsError (v) entonces
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Terminar si
            Terminar si
            Si no intersecarse (blanco. Gama (“U4: U41”)) Entonces está nada
                v = Application.Match (blanco, arsenal (0, 7.5, 8, 12, 17), 1)
                Si no IsError (v) entonces
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Terminar si
            Terminar si
            Si no intersecarse (blanco. Gama (“V4: V41”)) Entonces está nada
                v = Application.Match (blanco, arsenal (0, 25, 50, 75, 90), 1)
                Si no IsError (v) entonces
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Terminar si
            Terminar si
            Si no intersecarse (blanco. Gama (“W4: W41”)) Entonces está nada
                v = Application.Match (blanco, arsenal (0, 25, 50, 75, 90), 1)
                Si no IsError (v) entonces
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Terminar si
            Terminar si
            Si no intersecarse (blanco. Gama (“X4: X41”)) Entonces está nada
                v = Application.Match (blanco, arsenal (0, 25, 50, 75, 90), 1)
                Si no IsError (v) entonces
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Terminar si
            Terminar si
            Si no intersecarse (blanco. Gama (“Y4: Y41”)) Entonces está nada
                v = Application.Match (blanco, arsenal (0, 25, 50, 75, 90), 1)
                Si no IsError (v) entonces
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Terminar si
            Terminar si
        Terminar si
   Después
Extremo con
Submarino del extremo
class= " lastRow del
>Attachments del " nombre " del class= del class= " valor " del
del >
class= " fileInfo " del
el title= " del " nombre de fichero del class= " del SWE-10-11-Benchmarks-6th.xls el class= (MB 3.2)  Javascript del href= " de los " attachmentDetails del class= " del (tipo de archivo detalles)  
class= " descripción " del
Benchmarks
el class= de
del >
class= del

Respuesta : Formato condicional del color de Excel 2003 VBA

¡O, no ató el código!
1:
2:
3:
4:

internacional FieldLength = 20;
secuencia s = “123456789”;
formato de la secuencia = “{0, -” + FieldLength + “}”;
Console.WriteLine (String.Format (formato, s));
Otras soluciones  
 
programming4us programming4us