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

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

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