Funktion der udregner average på baggrund af cellefarver

En sådan funktion findes ikke i Excel, men læg denne kode i et modul og brug den som en almindelig funktion:

Function AveColor(Cel, ran As Range) As Double
    Application.Volatile
    colo = Cel.Interior.ColorIndex
    cou = 0
    For Each c In ran.Cells
        If c.Interior.ColorIndex = colo Then
            cou = cou + 1
        End If
    Next c
   
    colsum = 0
    For Each c In ran.Cells
        If c.Interior.ColorIndex = colo Then
            colsum = colsum + c.Value
        End If
    Next c
    AveColor = colsum / cou
End Function

Når du skal bruge denm, skirve du =AveColor(A1;A1:A10), hvor A1 er en celle, der har den farve, som du vil finde gennemsnittet af, og A1:A10 er det område, du vil beregne på, hvis farven er rigtig.

Husk at denne type funktioner, genberegnes kun, når der i øvrigt genberegnes i regnearket. Skifter du farve på en celle, ændres resultatet ikke, før der foretages en genberegning.

hvordan lægger man den ind i et modul?

Vælg Funktioner - Makro - Visual Basic Editor. Klik så på Insert og vælg Module. Kopier koden til dette modul.

jkrons > du kan nøjes med et loop


Function AveColor(Cel, ran As Range) As Double
    Application.Volatile
    colo = Cel.Interior.ColorIndex
    cou = 0
    colsum = 0
    For Each c In ran.Cells
        If c.Interior.ColorIndex = colo Then
            cou = cou + 1
            colsum = colsum + c.Value
        End If
    Next c
    AveColor = colsum / cou
End Function

husk lige det var 2 farver han ville beregne
og så kan vi jo håbe på det ikke er betinget farver :-)

Hvis der er to farver, kan man regne hver af dem for sig .-), men det bliver godt nmok lidt mere besværligt.

det kan du nemt indbygge i funktionen jkrons :-)

kabbak-> Det kan jeg godt, men jeg løste i første omgang problemet ved at sammelægge to funktioner, jeg allerede havde :-)

En løsning, hvor det er to forskellige farver:

Function AveColor(Cel, cel2, ran As Range) As Double
    Application.Volatile
    colo = Cel.Interior.ColorIndex
    colo2 = cel2.Interior.ColorIndex
    cou = 0
    colsum = 0
    For Each c In ran.Cells
        If c.Interior.ColorIndex = colo Or c.Interior.ColorIndex = colo2 Then
            cou = cou + 1
            colsum = colsum + c.Value
        End If
    Next c
    AveColor = colsum / cou
End Function

Begge farver SKAKL anvendes, fx

AVECOLR(A1;A2;A!:A10), hvor A1 og A2 indeholder farverne.

AVECOLOR(A1;A2;A!:A10) naturligvis.

Her en variant, hvor farve to er valgfri:

Function AveColor(Cel, ran As Range, Optional Cel2 As Variant) As Double
    Application.Volatile
    If Not IsMissing(Cel2) Then
    colo2 = Cel2.Interior.ColorIndex
    End If
    colo = Cel.Interior.ColorIndex
   
    cou = 0
    colsum = 0
    For Each c In ran.Cells
        If c.Interior.ColorIndex = colo Or c.Interior.ColorIndex = colo2 Then
            cou = cou + 1
            colsum = colsum + c.Value
        End If
    Next c
    AveColor = colsum / cou
End Function

Nu skal funktionen bruges sådan =AVECOLOR(A1;A1:A10;A2). Det sidste argument skal indeholde farve 2, men kan udelades, hvis der kun skal regnes på en enkelt celle.