Frage : Innenfarbe

Ich habe den Code unterhalb dieses worksand werde verwendet auf einem anderen Teil des Arbeitsbuches. Aber was möchte ich, dass in der Lage ist zu tun ist tut jetzt die selben, aber, wenn die Bestimmungsortzelleninnenfarbe entweder gelb ist oder, Rot dann nur der Guss ist entered.

On die angebrachte Akte, welche die LEBENDIGKEIT Wege der MEISTER ist und diese Informationen werden angefordert, auf die Weg-Begrenzungen sheet.
So gebracht zu werden, die Farben auf dem Meister auf das Wegblatt aber nicht wenn das Bestimmungsortblatt bereits ein Innencolour.

On das angebrachte Blatt für Wed hat ich verursachten manuell die Farben wie gebracht werden, wie ich sie haben möchte applied.

Is dieses möglich? 
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:

 ' Format QRNational Kastanienbraun
Für jedes c in rngClr1
'Für jedes c in ActiveSheet.UsedRange
    'auf Gelb überprüfen
    Wenn c.Interior.ColorIndex = 9 dann
        shtJIL.Activate
        
'Zellen ((c.Row * 2) + 6, (c.Column * 2) + 16) .ClearContents
        Zellen ((c.Row * 2) + 6, (c.Column * 2) + 18). Interior.ColorIndex = 9
        Zellen ((c.Row * 2) + 6, (c.Column * 2) + 18). Font.ColorIndex = 2
        Zellen ((c.Row * 2) + 6, (c.Column * 2) + 18). Font.Bold = richten aus


        msJIL.Activate
'c.ClearContents
'c.Interior.ColorIndex = xlNone
    Beenden wenn
Zunächst

'Format-pazifisches nationales Purpur
Für jedes c in rngClr1
'Für jedes c in ActiveSheet.UsedRange
    'auf Gelb überprüfen
    Wenn c.Interior.ColorIndex = 13 dann
        shtJIL.Activate
        
'Zellen ((c.Row * 2) + 6, (c.Column * 2) + 16) .ClearContents
        Zellen ((c.Row * 2) + 6, (c.Column * 2) + 18). Interior.ColorIndex = 13
        Zellen ((c.Row * 2) + 6, (c.Column * 2) + 18). Font.ColorIndex = 2
        Zellen ((c.Row * 2) + 6, (c.Column * 2) + 18). Font.Bold = richten aus

        msJIL.Activate
'c.ClearContents
'c.Interior.ColorIndex = xlNone
    Beenden wenn
Zunächst
Attachments:
interior-colour-test.xls (78 KBs) (Akten-Art Details)
interior Farbe test

Antwort : Innenfarbe

Dieses versuchen.
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:

Wahl ausdrücklich

Allgemeines VorApplyBRIO ()
  Schwaches wksFrom als Arbeitsblatt
  Schwaches wksTo als Arbeitsblatt
  Schwaches rngFrom als Strecke
  Schwaches rngTo als Strecke
  Schwaches c als Strecke
  Schwaches lngColArea als lang
  wksFrom = Arbeitsblätter („LEBENDIGKEIT Wege x JIL“) einstellen
  wksTo = Arbeitsblätter („Weg-Begrenzungen ex JIL“ einstellen)
  Application.ScreenUpdating = falsch
  Für jedes c in wksFrom.Range („B1: O1“)
    Wenn c.NumberFormat „DDD *“ dann mögen
      Wenn rngFrom nichts dann ist
        rngFrom = wksFrom.Range (c.Cells (3, 1), wksFrom.Cells (62, c.Column) einstellen)
      Sonst
        rngFrom = Anschluss (rngFrom, wksFrom.Range (c.Cells (3, 1), wksFrom.Cells (62, c.Column) einstellen))
      Beenden wenn
    Beenden wenn
  Zunächst
  rngTo = wksTo.Range einstellen („B3: H62“)
  Für lngColArea = 1 zu rngFrom.Areas.Count
    Für jedes c in rngFrom.Areas (lngColArea). Zellen
      Wenn Len (Ordnung (c.Value))  <> 0 dann
        Fall rngTo.Cells vorwählen (c.Row - 2, lngColArea). Interior.Color
          Das vbYellow umkleiden, vbRed
            'gerade Übertragung der Text
            rngTo.Cells (c.Row - 2, lngColArea). Wert = c.Value
          Fall sonst
            'Text und Innenfarbe bringen
            rngTo.Cells (c.Row - 2, lngColArea). Wert = c.Value
            rngTo.Cells (c.Row - 2, lngColArea). Interior.Color = c.Interior.Color
            rngTo.Cells (c.Row - 2, lngColArea). Font.Color = c.Font.Color
        Ende auserwählt
        'Anschlag
      Beenden wenn
    Zunächst
  Zunächst
  Application.ScreenUpdating = ausrichten en
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us