Keresés

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

  • 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