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

• #23219 lappy őstag Titkárnő #23217

  Új Válasz 2014-09-11 21:30:46 #23219

  Ú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

  

  lappy

  őstag

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

  Ha nem világos mit akart Delila akkor csak anyit kell tenned hogy a makrót beilleszted a megfelelő helyre és a csatolt képen lévő képletet eggyel odébb rakod és működni fog.

• #23206 Delila_1 veterán Titkárnő #23199

  Új Válasz 2014-09-11 07:42:50 #23206

  Ú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

  

  Delila_1

  veterán

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

  Nem tartom jó tippnek az együvé tartozó adatok 2 sorba történő bevitelét, biztos vagyok benne, hogy slashing is csak "kínjában" javasolta.

  

  Kicsit egyszerűsítettem a függvényen, biztosan kapsz segítséget az alkalmazásához.

  Function PirosKek(rColor As Range, rRange As Range, Optional SUM As Boolean)
  Dim rCell As Range, lCol As Long, vResult
  lCol = rColor.Font.ColorIndex
  
  For Each rCell In rRange
  If rCell.Font.ColorIndex = lCol Then
  vResult = WorksheetFunction.SUM(rCell, vResult)
  End If
  Next rCell
  PirosKek = vResult
  End Function

  Az F9-cel frissülnek az összegző értékeid.

• #23190 Delila_1 veterán Titkárnő #23185

  Új Válasz 2014-09-10 15:44:13 #23190

  Ú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

  

  Delila_1

  veterán

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

  Melyik verziót használod?

• #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