Excel / VBA - kolonnas krāsa

Man ir kods rindas daļai, lai noteiktu to, kas ir ievadīts konkrētā kolonnā, bet es gribētu šo kodu transponēt tā, lai daļa kolonnas būtu krāsaina, pamatojoties uz rindā ievadītajiem datiem. Kā nomainīt tālāk norādīto kodu:

 Private Sub Worksheet_Change (ByVal Target As Range) 'Ja darblapā tiek veiktas izmaiņas ... Ja nav krustojas (Mērķis, diapazons ("B3: B100")) nav nekas, tad ... jebkurām šūnām no B3 līdz B100 (Role) ... Ja Selection.Cells.Count> 1 Tad Exit Sub '(iziet no reoutine, ja izmaiņas tiek veiktas vairāk nekā vienā šūnā vienā reizē - novērš crashing Select Case Target Case "Manager"' ... pārbaudiet, vai šūna satur "Vadītājs" ... Diapazons ("A" un Target.Row & ": AG" & Target.Row). B - AH uz gaiši dzeltenu. ”Citi gadījumi šeit .... Beigas Izvēlieties Beigt Ja Beigas Sub 

Risinājums

Šeit jūs dodaties:

 Private Sub Worksheet_Change (ByVal Target As Range) Ja krustojas (Mērķis, diapazons ("A3: L3")) Vai nav nekas, vai _ Selection.Cells.Count> 1 Pēc tam iziet Sub Select Case Target Case "Manager" diapazons (šūnas (1, Target.Column), šūnas (30, Target.Column)) Interior.ColorIndex = 36 Beigas atlases beigu posms 

Paldies TrowaD par šo padomu.