Frage : Bedingte Farbenformatierung Excel-2003 VBA

Ich habe ein Arbeitsbuch, dass ich bedingte Formatierung innen gründen lasse. Alles ist das Arbeiten groß, aber jetzt wünscht der Klient etwas von der Formatierung auf dem Inhalt von 2 Zellen anstelle von einer basieren.

In das angebrachte Arbeitsbuch, auf dem 1. Arbeitsblatt („Festpunkte“),
column D muss colorindex38 sein, wenn Spalte C 0 ist (nicht freier Raum),
, das es muss colorindex 40 sein, wenn Spalte C 40 ist,
es colorindex36 sein muss, wenn Spalte C 50 ist,
it muss colorindex 37 sein, wenn Spalte C 70 ist, oder oben UND .....
here ist das reale Problem….
if Spalte C ist 60 UND Spalte D ist unter 94, muss die Zelle in Spalte D yellow
if Spalte C sein ist 60 UND Spalte D ist >93, die Zelle in Spalte D muss green

*The sein Code-Stückchen, das ich unten bin der Teil angebracht, ich z.Z. für das bedingte formatting gegründet 
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:
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 BenchmarksFormatting (rg als Strecke)
Schwaches Ziel als Strecke
Schwache FillColors so Variante, v wie Variante
FillColors = Reihe (38, 40, 6, 35, 37)
Mit rg. Arbeitsblatt
    Für jedes Ziel im rg. Zellen
        Wenn Ziel <> "" und IsNumeric (Ziel) dann
            Wenn nicht schneiden (Ziel. Strecke („C4: C41“)) Ist nichts dann
                V = Application.Match (Ziel, Reihe (0, 40, 50, 60, 70), 1)
                Wenn nicht IsError (V) dann
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Beenden wenn
            Beenden wenn
            Wenn nicht schneiden (Ziel. Strecke („E4: E41“)) Ist nichts dann
                V = Application.Match (Ziel, Reihe (0, 7.5, 8, 12, 17), 1)
                Wenn nicht IsError (V) dann
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Beenden wenn
            Beenden wenn
            Wenn nicht schneiden (Ziel. Strecke („F4: F41“)) Ist nichts dann
                V = Application.Match (Ziel, Reihe (0, 25, 50, 75, 90), 1)
                Wenn nicht IsError (V) dann
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Beenden wenn
            Beenden wenn
            Wenn nicht schneiden (Ziel. Strecke („G4: G41“)) Ist nichts dann
                V = Application.Match (Ziel, Reihe (0, 25, 50, 75, 90), 1)
                Wenn nicht IsError (V) dann
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Beenden wenn
            Beenden wenn
            Wenn nicht schneiden (Ziel. Strecke („H4: H41“)) Ist nichts dann
                V = Application.Match (Ziel, Reihe (0, 25, 50, 75, 90), 1)
                Wenn nicht IsError (V) dann
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Beenden wenn
            Beenden wenn
            Wenn nicht schneiden (Ziel. Strecke („I4: I41“)) Ist nichts dann
                V = Application.Match (Ziel, Reihe (0, 25, 50, 75, 90), 1)
                Wenn nicht IsError (V) dann
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Beenden wenn
            Beenden wenn
            Wenn nicht schneiden (Ziel. Strecke („K4: K41“)) Ist nichts dann
                V = Application.Match (Ziel, Reihe (0, 40, 50, 60, 70), 1)
                Wenn nicht IsError (V) dann
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Beenden wenn
            Beenden wenn
            Wenn nicht schneiden (Ziel. Strecke („M4: M41“)) Ist nichts dann
                V = Application.Match (Ziel, Reihe (0, 7.5, 8, 12, 17), 1)
                Wenn nicht IsError (V) dann
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Beenden wenn
            Beenden wenn
            Wenn nicht schneiden (Ziel. Strecke („N4: N41“)) Ist nichts dann
                V = Application.Match (Ziel, Reihe (0, 25, 50, 75, 90), 1)
                Wenn nicht IsError (V) dann
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Beenden wenn
            Beenden wenn
            Wenn nicht schneiden (Ziel. Strecke („O4: O41“)) Ist nichts dann
                V = Application.Match (Ziel, Reihe (0, 25, 50, 75, 90), 1)
                Wenn nicht IsError (V) dann
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Beenden wenn
            Beenden wenn
            Wenn nicht schneiden (Ziel. Strecke („P4: P41“)) Ist nichts dann
                V = Application.Match (Ziel, Reihe (0, 25, 50, 75, 90), 1)
                Wenn nicht IsError (V) dann
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Beenden wenn
            Beenden wenn
            Wenn nicht schneiden (Ziel. Strecke („Q4: Q41“)) Ist nichts dann
                V = Application.Match (Ziel, Reihe (0, 25, 50, 75, 90), 1)
                Wenn nicht IsError (V) dann
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Beenden wenn
            Beenden wenn
            Wenn nicht schneiden (Ziel. Strecke („S4: S41“)) Ist nichts dann
                V = Application.Match (Ziel, Reihe (0, 40, 50, 60, 70), 1)
                Wenn nicht IsError (V) dann
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Beenden wenn
            Beenden wenn
            Wenn nicht schneiden (Ziel. Strecke („U4: U41“)) Ist nichts dann
                V = Application.Match (Ziel, Reihe (0, 7.5, 8, 12, 17), 1)
                Wenn nicht IsError (V) dann
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Beenden wenn
            Beenden wenn
            Wenn nicht schneiden (Ziel. Strecke („V4: V41“)) Ist nichts dann
                V = Application.Match (Ziel, Reihe (0, 25, 50, 75, 90), 1)
                Wenn nicht IsError (V) dann
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Beenden wenn
            Beenden wenn
            Wenn nicht schneiden (Ziel. Strecke („W4: W41“)) Ist nichts dann
                V = Application.Match (Ziel, Reihe (0, 25, 50, 75, 90), 1)
                Wenn nicht IsError (V) dann
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Beenden wenn
            Beenden wenn
            Wenn nicht schneiden (Ziel. Strecke („X4: X41“)) Ist nichts dann
                V = Application.Match (Ziel, Reihe (0, 25, 50, 75, 90), 1)
                Wenn nicht IsError (V) dann
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Beenden wenn
            Beenden wenn
            Wenn nicht schneiden (Ziel. Strecke („Y4: Y41“)) Ist nichts dann
                V = Application.Match (Ziel, Reihe (0, 25, 50, 75, 90), 1)
                Wenn nicht IsError (V) dann
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Beenden wenn
            Beenden wenn
        Beenden wenn
   Zunächst
Ende mit
Enden-Unterseeboot
Attachments:

Antwort : Bedingte Farbenformatierung Excel-2003 VBA

Oder, es brachte nicht den Code an!
1:
2:
3:
4:

int FieldLength = 20;
Schnur s = „123456789“;
Schnurformat = „{0, -“ + FieldLength + „}“;
Console.WriteLine (String.Format (Format, s));
Weitere Lösungen  
 
programming4us programming4us