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

• mr.nagy tag

  #8056 2010-09-07 16:52:41

  Új Válasz

  Ú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

  

  mr.nagy

  tag

  Sziasztok!

  Régebben volt szó a cella színek összeszámolásáról / értékük összegzéséről. Akkor ezt a megoldást ajánlotta valaki:
  ----------------------------------------------------------------------
  Function CountColor(Mintacella As Range, Tartomany As Range)
  'Összeszámolja, hogy a mintaként jelölt háttérszínű cellából hány darab
  'van a kijelölt tartományban.
  Dim rngCell As Range
  nColor = Mintacella.Interior.Color
  nResult = 0
  For Each rngCell In Tartomany
  If rngCell.Interior.Color = nColor Then
  nResult = nResult + 1
  End If
  Next rngCell
  CountColor = nResult
  End Function
  
  ----------------------------------------------------------------------
  
  Function SumColor(Mintacella As Range, Tartomany As Range)
  'A mintaként bejelölt hátterű cellákban szereplő számokat összegzi
  Dim rngCell As Range
  nColor = Mintacella.Interior.Color
  nResult = 0
  For Each rngCell In Tartomany
  If rngCell.Interior.Color = nColor Then
  nResult = nResult + WorksheetFunction.Sum(rngCell)
  End If
  Next rngCell
  SumColor = nResult
  End Function
  
  -----------------------------------------------------------------------

  Nos egy ilyenre lenne nekem is szükségem, viszont a színek feltételes formázással vannak megadva. Ezeket a feltétles formázással jelölt cellákat kellene össze adni értékre és darabszámra.
  Tudtok erre valami megoldást?

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