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

• #3235 Delila_1 veterán Kvázi #3233

  Új Válasz 2008-02-26 12:35:30 #3235

  Ú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 Kvázi #3233 üzenetére

  Függvény nincs rá, itt van viszont egy kis makró, ami, ha a B2 háttere piros, a D2-be beírja a B2 és C2 összegét.
  A Cells(x,y) kifejezésben az x a sor, az y az oszlop.

  Sub Piros()
  If Cells(2, 2).Interior.ColorIndex = 3 Then
  Cells(2, 4) = Cells(2, 2) + Cells(2, 3)
  End If
  End Sub

  A PC World folyóirat egyik számában Weisz Tamás írt egy xla-t. Két függvényt tartalmaz. Az egyik megszámolja, hogy a kijelölt tartományban hány darab adott színű cella van, a másik pedig összeadja az ezekben található értékeket.

  Function CountColor(Mintacella As Range, Tartomany As Range)
  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)
  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

  Közreadom, hátha valakit érdekel.

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