Vraag : Excel 2003 het voorwaardelijke kleur VBA formatteren

Ik heb een werkboek dat ik voorwaardelijke het formatteren opstelling binnen heb. Alles werkt groot, maar wil de cliënt nu dat enkele het formatteren worden gebaseerd op de inhoud van 2 cellen in plaats van één.

In het werkboek in bijlage, op het 1st aantekenvel („Benchmarks“),
column D moet colorindex38 zijn als de kolom C 0 (niet leeg) is,
het colorindex 40 moet zijn als de kolom C 40 is,
het colorindex36 moet zijn als de kolom C 50 is, moet
it colorindex 37 zijn als de kolom C 70 is of hierboven EN ..... is
here het echte probleem….
if de kolom C is 60 EN de kolom D is onder 94, moet de cel in kolom D yellow
if kolom C zijn is 60 EN de kolom D is >93, moet de cel in kolom D green

*The codefragment zijn dat ik ben het gedeelte hieronder heb vastgemaakt ik momenteel opstelling voor voorwaardelijke formatting heb
" codeBody " 
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 BenchmarksFormatting (rg als Waaier)
Schemerig Doel als Waaier
Schemerige zo Verschillende FillColors, v zoals Variant
FillColors = Serie (38, 40, 36, 35, 37)
Met rg. Aantekenvel
    Voor Elk Doel in rg. Cellen
        Als Doel <> "" en IsNumeric (Doel) toen
            Als om te snijden niet (Doel. Waaier („C4: C41“)) Is dan niets
                v = Application.Match (Doel, Serie (0, 40, 50, 60, 70), 1)
                Als niet IsError (v) toen
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Eind als
            Eind als
            Als om te snijden niet (Doel. Waaier („E4: E41“)) Is dan niets
                v = Application.Match (Doel, Serie (0, 7.5, 8, 12, 17), 1)
                Als niet IsError (v) toen
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Eind als
            Eind als
            Als om te snijden niet (Doel. Waaier („F4: F41“)) Is dan niets
                v = Application.Match (Doel, Serie (0, 25, 50, 75, 90), 1)
                Als niet IsError (v) toen
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Eind als
            Eind als
            Als om te snijden niet (Doel. Waaier („G4: G41“)) Is dan niets
                v = Application.Match (Doel, Serie (0, 25, 50, 75, 90), 1)
                Als niet IsError (v) toen
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Eind als
            Eind als
            Als om te snijden niet (Doel. Waaier („H4: H41“)) Is dan niets
                v = Application.Match (Doel, Serie (0, 25, 50, 75, 90), 1)
                Als niet IsError (v) toen
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Eind als
            Eind als
            Als om te snijden niet (Doel. Waaier („I4: I41“)) Is dan niets
                v = Application.Match (Doel, Serie (0, 25, 50, 75, 90), 1)
                Als niet IsError (v) toen
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Eind als
            Eind als
            Als om te snijden niet (Doel. Waaier („K4: K41“)) Is dan niets
                v = Application.Match (Doel, Serie (0, 40, 50, 60, 70), 1)
                Als niet IsError (v) toen
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Eind als
            Eind als
            Als om te snijden niet (Doel. Waaier („M4: M41“)) Is dan niets
                v = Application.Match (Doel, Serie (0, 7.5, 8, 12, 17), 1)
                Als niet IsError (v) toen
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Eind als
            Eind als
            Als om te snijden niet (Doel. Waaier („N4: N41“)) Is dan niets
                v = Application.Match (Doel, Serie (0, 25, 50, 75, 90), 1)
                Als niet IsError (v) toen
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Eind als
            Eind als
            Als om te snijden niet (Doel. Waaier („O4: O41“)) Is dan niets
                v = Application.Match (Doel, Serie (0, 25, 50, 75, 90), 1)
                Als niet IsError (v) toen
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Eind als
            Eind als
            Als om te snijden niet (Doel. Waaier („P4: P41“)) Is dan niets
                v = Application.Match (Doel, Serie (0, 25, 50, 75, 90), 1)
                Als niet IsError (v) toen
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Eind als
            Eind als
            Als om te snijden niet (Doel. Waaier („Q4: Q41“)) Is dan niets
                v = Application.Match (Doel, Serie (0, 25, 50, 75, 90), 1)
                Als niet IsError (v) toen
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Eind als
            Eind als
            Als om te snijden niet (Doel. Waaier („S4: S41“)) Is dan niets
                v = Application.Match (Doel, Serie (0, 40, 50, 60, 70), 1)
                Als niet IsError (v) toen
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Eind als
            Eind als
            Als om te snijden niet (Doel. Waaier („U4: U41“)) Is dan niets
                v = Application.Match (Doel, Serie (0, 7.5, 8, 12, 17), 1)
                Als niet IsError (v) toen
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Eind als
            Eind als
            Als om te snijden niet (Doel. Waaier („V4: V41“)) Is dan niets
                v = Application.Match (Doel, Serie (0, 25, 50, 75, 90), 1)
                Als niet IsError (v) toen
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Eind als
            Eind als
            Als om te snijden niet (Doel. Waaier („W4: W41“)) Is dan niets
                v = Application.Match (Doel, Serie (0, 25, 50, 75, 90), 1)
                Als niet IsError (v) toen
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Eind als
            Eind als
            Als om te snijden niet (Doel. Waaier („X4: X41“)) Is dan niets
                v = Application.Match (Doel, Serie (0, 25, 50, 75, 90), 1)
                Als niet IsError (v) toen
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Eind als
            Eind als
            Als om te snijden niet (Doel. Waaier („Y4: Y41“)) Is dan niets
                v = Application.Match (Doel, Serie (0, 25, 50, 75, 90), 1)
                Als niet IsError (v) toen
                    Target.Interior.ColorIndex = FillColors (v - 1)
                Eind als
            Eind als
        Eind als
   Daarna
Eind met
Sub van het eind
Attachments:
van
SWE-10-11-Benchmarks-6th.xls (3.2 MB)  (de Details van het Type van Dossier)  
Benchmarks

Antwoord : Excel 2003 het voorwaardelijke kleur VBA formatteren

Of, het maakte niet de code vast!
1:
2:
3:
4:

int. FieldLength = 20;
koord s = „123456789“;
koord formaat = „{0, -“ + FieldLength + „}“;
Console.WriteLine (String.Format (formaat, s));
Andere oplossingen  
 
programming4us programming4us