Új hozzászólás Aktív témák

• #23418 m.zmrzlina senior tag .OM. #23414

  Új Válasz 2014-09-23 19:47:53 #23418

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  m.zmrzlina

  senior tag

  válasz .OM. #23414 üzenetére

  Nekem ezzel a kóddal sikerült lemásolnom (Excel 2010 alatt) egy korábbi munkalapon a feltételes formázás színeit:

  Sub masol()
  For Each cella In Selection.Cells
  cella.Offset(0, 10).Interior.Color = cella.DisplayFormat.Interior.Color
  Next
  End Sub

  Ez a kód a kijelölt tartomány minden cellájának (feltételesen és nem feltételesen formázott) színét 10 oszloppal jobbra másolja.

  Ja innen loptam, kipróbáltam és működött. (jsmith4892002 2012 aug 19.-i hozzászólása)

• #23417 Fferi50 Topikgazda .OM. #23414

  Új Válasz 2014-09-23 19:43:05 #23417

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz .OM. #23414 üzenetére

  Szia!

  Szerintem ez elég bonyolult makróval oldható meg csak, mivel a feltételes formázás feltételeit kell megvizsgálnod, hogy az adott cellára melyik teljesült.
  Makróban pl. a cells(1,1).formatconditions(x).interior.color adja meg a szín számát, ahol
  cells(1,1) az A1 cella, formatconditions(x) az x-edik feltételes formázás. Hogy hány feltételes formázás van az adott cellánál, azt pedig a cells(1,1).formatconditions.count eredménye adja meg.
  De a feltételes formázásnak sok egyéb tulajdonsága is van még, amiket mind meg kellene nézni, hogy teljesül-e a cellára (típusa, a tipustól függően a hozzá tartozó kifejezés, operátor....).
  Én most nem vállalkoznék egy ilyen makró megírására....

  Üdv.

Új hozzászólás Aktív témák