Questione : Colore interno

Ho il codice sotto quel worksand sono usato su un'altra parte del libro di esercizi. Ma che cosa vorrei per potere fare devo ora faccio lo stessi ma se il colore interno delle cellule della destinazione è o giallo o il colore rosso allora soltanto la fonte è entered.

On la lima che allegata i percorsi di BRIO è il PADRONE e questi informazioni sono richieste per essere trasferite sui vincoli sheet.
So del percorso i colori sul padrone sono trasferiti sullo strato dei percorsi ma non quando lo strato della destinazione già ha un colour.

On il foglio allegato per Wed io manualmente hanno generato i colori come come vorrei averlo applied.

Is questo possibile? class= > " libero " 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:
id= " codeSnippet787816 " class= " del 
 ' marrone rossiccio di QRNational di disposizione
Per ogni c in rngClr1
'Per ogni c in ActiveSheet.UsedRange
    'controllare per vedere se c'è il colore giallo
    Se c.Interior.ColorIndex = 9 allora
        shtJIL.Activate
        
'Cellule ((c.Row * 2) + 6, (c.Column * 2) + 16) .ClearContents
        Cellule ((c.Row * 2) + 6, (c.Column * 2) + 18). Interior.ColorIndex = 9
        Cellule ((c.Row * 2) + 6, (c.Column * 2) + 18). Font.ColorIndex = 2
        Cellule ((c.Row * 2) + 6, (c.Column * 2) + 18). Font.Bold = allineano


        msJIL.Activate
'c.ClearContents
'c.Interior.ColorIndex = xlNone
    Concluder se
Dopo

'Porpora nazionale pacifica di disposizione
Per ogni c in rngClr1
'Per ogni c in ActiveSheet.UsedRange
    'controllare per vedere se c'è il colore giallo
    Se c.Interior.ColorIndex = 13 allora
        shtJIL.Activate
        
'Cellule ((c.Row * 2) + 6, (c.Column * 2) + 16) .ClearContents
        Cellule ((c.Row * 2) + 6, (c.Column * 2) + 18). Interior.ColorIndex = 13
        Cellule ((c.Row * 2) + 6, (c.Column * 2) + 18). Font.ColorIndex = 2
        Cellule ((c.Row * 2) + 6, (c.Column * 2) + 18). Font.Bold = allineano

        msJIL.Activate
'c.ClearContents
'c.Interior.ColorIndex = xlNone
    Concluder se
Dopo
class= " lastRow del
>Attachments " di nome " del class= del class= " valore " del
il

il nome di schedario " del class= di >interior-colour-test.xls " fileSize " > (78 Kb) il Javascript " del href= " " dei attachmentDetails del class= di (tipo di lima particolari)
colore test
di >interior " di descrizione " del class= del
il class= di
del >
class= del

Risposta : Colore interno

Provare questo.
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:

Opzione esplicita

ApplyBRIO secondario pubblico ()
  wksFrom fioco come manuale
  wksTo fioco come manuale
  rngFrom fioco come gamma
  rngTo fioco come gamma
  C fioca come gamma
  lngColArea fioco come lungamente
  Regolare il wksFrom = i manuali (“percorsi di BRIO x JIL„)
  Regolare il wksTo = i manuali (“vincoli ex JIL del percorso„)
  Application.ScreenUpdating = falso
  Per ogni c in wksFrom.Range (“B1: O1„)
    Se c.NumberFormat allora gradicono “il DDD *„
      Se il rngFrom allora è niente
        Regolare il rngFrom = wksFrom.Range (c.Cells (3, 1), wksFrom.Cells (62, c.Column))
      Altrimenti
        Regolare il rngFrom = l'unione (rngFrom, wksFrom.Range (c.Cells (3, 1), wksFrom.Cells (62, c.Column)))
      Concluder se
    Concluder se
  Dopo
  Regolare il rngTo = wksTo.Range (“B3: H62„)
  Per il lngColArea = 1 a rngFrom.Areas.Count
    Per ogni c in rngFrom.Areas (lngColArea). Cellule
      Se Len (disposizione (c.Value))  <> 0 allora
        Selezionare il caso rngTo.Cells (c.Row - 2, lngColArea). Interior.Color
          Mettere il vbYellow, vbRed
            'appena trasferimento il testo
            rngTo.Cells (c.Row - 2, lngColArea). Valore = c.Value
          Caso altrimenti
            'trasferire sia il testo che il colore interno
            rngTo.Cells (c.Row - 2, lngColArea). Valore = c.Value
            rngTo.Cells (c.Row - 2, lngColArea). Interior.Color = c.Interior.Color
            rngTo.Cells (c.Row - 2, lngColArea). Font.Color = c.Font.Color
        Estremità prescelta
        'Arresto
      Concluder se
    Dopo
  Dopo
  Application.ScreenUpdating = allineano
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us