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

• #4313 Fehér Mancs tag lúzer #4305

  Új Válasz 2009-01-04 22:06:56 #4313

  Ú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

  

  Fehér Mancs

  tag

  válasz lúzer #4305 üzenetére

  A színes kérdést is lehet dinamizálni úgy, hogy a második paramétert opcionálissá tesszük, és ha nem adunk meg értéket, akkor az "értékes tartományban" keres. Az eredeti makró egy kicsit megspékelve:

  Function CountCCC(Mintacella As Range, Optional Tartomany)
  Dim rngCell As Range
  If IsMissing(Tartomany) Then
  Set Tartomany = ActiveSheet.UsedRange
  End If
  nColor = Mintacella.Interior.Color
  nResult = 0
  For Each rngCell In Tartomany
  If rngCell.Interior.Color = nColor Then
  nResult = nResult + 1
  End If
  Next rngCell
  CountCCC = nResult
  End Function

  A képletek újraszámoláról pedig úgy tudom, hogy akkor kalkulálódnak újra, ha bármelyik hivatkozott mező értéke változik (egyéb tulajdonság pl. szín nem számít). Pl. ha a fenti függvénynél nem adjuk meg a második paramétert, akkor nem fog frissülni az érték a változásokra, hiszen csak átételesen hivatkozunk a tartományra.

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