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

• #17209 m.zmrzlina senior tag motinka #17208

  Új Válasz 2013-03-12 13:30:48 #17209

  Ú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 motinka #17208 üzenetére

  Itt értekeztünk hasonló dolgokról.

  Annyi különbséggel, hogy ott a betűszín volt az összegzés kritériuma nem a háttérszín, és nem a cellák számát határozta meg hanem a tartalmukat összegezte.

  Az alábbi fv ennek a módosítása:

  Function SZINESÖSSZEG(minta As Range, tartomany As Range)
  
  Dim cella As Range, osszeg As Double
  szin = minta.Interior.ColorIndex
  
  For Each cella In tartomany
  If cella.Interior.ColorIndex = szin Then
  osszeg = osszeg + 1
  End If
  Next cella
  
  SZINESÖSSZEG = osszeg
  
  End Function

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