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

• #23165 slashing senior tag Titkárnő #23163

  Új Válasz 2014-09-08 23:38:48 #23165

  Ú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

  

  slashing

  senior tag

  válasz Titkárnő #23163 üzenetére

  csak makróval fog működni és nem lesz automatikusan, a szerkesztőlécen le kell okézni mindig a képletet hogy frissüljön...

  ezt találtam a neten:

  Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)
  
  Dim rCell As Range
  
  Dim lCol As Long
  
  Dim vResult
  
  
  
  ''''''''''''''''''''''''''''''''''''''
  
  'Written by Ozgrid Business Applications
  
  'www.ozgrid.com
  
  
  
  'Sums or counts cells based on a specified fill color.
  
  '''''''''''''''''''''''''''''''''''''''
  
  
  
  lCol = rColor.Interior.ColorIndex
  
  
  
  If SUM = True Then
  
  For Each rCell In rRange
  
  If rCell.Font.ColorIndex = lCol Then
  
  vResult = WorksheetFunction.SUM(rCell, vResult)
  
  End If
  
  Next rCell
  
  Else
  
  For Each rCell In rRange
  
  If rCell.Font.ColorIndex = lCol Then
  
  vResult = 1 + vResult
  
  End If
  
  Next rCell
  
  End If
  
  
  
  ColorFunction = vResult
  
  End Function

  én csak annyit írtam át rajta hogy ne háttérszínt nézze hanem a betűszínt.

  használni úgy kell hogy: =ColorFunction(C1;A1:A9;IGAZ)
  ahol c1 cella háttérszíne olyan mint az összeadandó számoké tehát piros, A1:A9 a tartomány amit figyeltetünk. A végén ha igaz akkor összeadja ha hamis akkor csak megszámolja hány cella piros...

  szerintem egyszerűbb egy új oszlop amibe beírod hogy fizetve aztán egy =SZUMHATÖBB(A1:A9;B1:B9;"fizetve") ahol a1:a9 az összegek b1:b9 a fizetve és a fizetve szövegűeket összeadja...

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