SumColor / taelfed

Sæt VBA kode ind i et Modul

Aktiver A12 - Menu: Indsæt / Funktion / Kategori = Brugerdefineret -så skulle funktionen kunne ses. Vælg denne og udfyld evt. dialog-boksen

Nu virker det til dels, tak...

Situationen er derimod den, at når jeg så f.eks. benytter funktionen "SumColor" og markerer mit farvede område, så tæller den rigtigt nok de gule felter. Men går jeg ind og fjerner formateringen på et af felterne tælles dette felt stadig med?

Kan jeg få funktionerne til automatisk at genberegne, hvilket de tilsyneladende ikke gør nu?

Manuelt kan man dobbeltklikke på formlen og trykke Enter - alternativt skal derskrivesen makro ti at fjerne /sætte den gule farve - så kunne SumColor nok aktiveres igen.

Så det kan altså ikke lade sig gøre at fortælle makroen at den skal holde sig automatisk opdateret?

På en eller anden måde skal der genberegnes når farven sættes/fjernes - prøver en idé - vender tilbage..

Skal vi helgardere os, er vi vel ude i, at så snart der ændres formatering i en celle, hvad enten der er tilføjelse eller fjernelse af en cellefarve, eller at vi tilføjer/fjerner en bold tekstformatering, så skal der genberegnes?

Dette dækker jo både over CountColor, SumColor og TaelFed

Indsæt koden under arket (Højreklik / Vis programkode:

Midlertidig løsning: HøjreKlik på en celle, der skal skifte til GUL / fra GUL

(Med flere formater kunne der anvendes en Userform - eller oprettes en værktøjslinie)

Private Sub beregn()
        colo = Cells(1, 1).Interior.ColorIndex
        colsum = 0
        For Each c In Range("A2:A11").Cells
            If c.Interior.ColorIndex = colo Then
                colsum = colsum + c.Value
            End If
        Next c
        Range("A12") = colsum
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Interior.ColorIndex = xlColorIndexNone Then
        Target.Interior.ColorIndex = Cells(1, 1).Interior.ColorIndex
    Else
        Target.Interior.ColorIndex = xlColorIndexNone
    End If
    beregn
   
    Cancel = True
End Sub

Hej igen

Kan godt følge dig i ovenstående, men hensigten med sum-funktionerne er netop at kunne adskille udvalgte stikprøver i et større datamateriale, hvor forskellige stikprøvetyper kan fremkomme i samme kolonne.

Heraf kommer behovet for at kunne vælge så mange forskellige farver som muligt.

Men såfremt det ikke er muligt at få funktionen til at genberegne automatisk, f.eks. hvert sekund (har ingen anelse om hvorvidt en sådan funktion ville have drastisk virkning på computerens ressourcer?). Så må jeg jo bare finde mig i at skulle opdatere manuelt :)

Smid et svar, det har du ihvertfald fortjent!

Hvis vi anvender en userform vil flere farver kunne sættes / fjernes samtidig med opdatering og det hele ville kunne vises i Userform (hvis du kender en sådan).

Man kunne også anvende OnTime-funktionen - men skulle ikke være nødvendig, hvis Userform anvendes.

- -

Hvis du er interesseret - så kan der konstrueres en mere "prof" løsning - men udern for dette forum. Mailadresse under profil.

Kode i selve arket:

Private Sub beregn()
        colo = Cells(1, 1).Interior.ColorIndex
        colsum = 0
        For Each c In Range("A2:A11").Cells
            If c.Interior.ColorIndex = colo Then
                colsum = colsum + c.Value
            End If
        Next c
        Range("A12") = colsum
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Interior.ColorIndex = xlColorIndexNone Then
        Target.Interior.ColorIndex = Cells(1, 1).Interior.ColorIndex
    Else
        Target.Interior.ColorIndex = xlColorIndexNone
    End If
    beregn
   
    Cancel = True
End Sub

En timer løsning ville være optimal til mit behov, jo oftere der opdateres jo bedre - dog såfremt at konsekvensen af konstante opdateringer, ikke medfølger at computerens ressourcer reduceres mærkbart.

Jeg vil gerne have mulighed for at kunne benytte countcolor på samme vis som jeg benytter min almindelige sum-funktion.

Lige nu kan jeg se at højrekliksfunktionen genberegner netop A2:A11 som bare vare et givet eksempel. Alt det med specifikke celler skal helst ikke ind i billedet.