Søg
Avatar billede Jacob Kristiansen Novice
20. februar 2017 - 16:28 Der er 8 kommentarer og
2 løsninger

Funktion til =COUNTIF kun i celler uden baggrundsfarver

Hej

Nogen som kan hjælpe med at tælle antal forekomst af "TEST" - men KUN tælle hvis cellen ikke er farvet.

=COUNTIF(E1:E10;"TEST")
Avatar billede Flemming Vadet - Smart Office DK Professor
20. februar 2017 - 16:54 #1
Jeg har engang lavet denne her - måske den kan hjælpe dig...
http://www.smartoffice.dk/Tips/LibrarySource.asp?App=Excel&Lib=ColoredCellsCount
Avatar billede kim1a Ekspert
20. februar 2017 - 16:54 #2
Det kan du desværre ikke uden enten vba eller også lave et filter.

Filteret kan sortere på baggrundsfarve og så kan du tælle forkomsterne af test efterfølgende.
Avatar billede Jacob Kristiansen Novice
20. februar 2017 - 18:29 #3
smartoffice_dk ser fint ud, mangler dog at tælle antal forekomst af "TEST" i celler som ikke er farvet...


VBA er fint.
Avatar billede Flemming Vadet - Smart Office DK Professor
20. februar 2017 - 19:00 #4
Der skal ikke så meget til - her er et eksempel
/Flemming
Public Function ColoredCellsCount(countArea As Range, countColor As Range, matchText As String) As Double
    'qqq.smartoffice.dk
    Application.Volatile
    Dim dRetVal As Double
    Dim rCell As Range
    Dim iColor As Integer
    For Each rCell In countArea
        If rCell.Interior.ColorIndex = countColor.Interior.ColorIndex And rCell.Value = matchText Then
            dRetVal = dRetVal + 1
        End If
    Next rCell
    ColoredCellsCount = dRetVal
    ' Clean up
    Set rCell = Nothing
End Function
Avatar billede Jacob Kristiansen Novice
20. februar 2017 - 21:52 #5
Tak Flemming, testet men kan IKKE få det til at fungere.

Dette i celle G26:
=ColoredCellsCount(E1:E6;"TEST")

Alle celler E1:E6 indeholder TEST - men E1 og E4 har baggrundsfarve, så de skal ikke tælles med,
Resultat i G26 skal være = 4
Avatar billede Flemming Vadet - Smart Office DK Professor
20. februar 2017 - 22:46 #6
Sæt lige en LCase omkring
And LCase(rCell.Value) = LCase(matchText) Then

Hvis du også vil fjerne mellemrum så
And Trim(LCase(rCell.Value)) = Trim(LCase(matchText)) Then
Avatar billede Jacob Kristiansen Novice
21. februar 2017 - 06:46 #7
Kan ikke finde noget sted i kode med:

Hvis du også vil fjerne mellemrum så

And Trim(LCase(rCell.Value)) = Trim(LCase(matchText)) Then


Kunne du lokkes til at skrive den fulde kode?


Tak.
Avatar billede Flemming Vadet - Smart Office DK Professor
21. februar 2017 - 07:50 #8
Public Function ColoredCellsCount(countArea As Range, countColor As Range, matchText As String) As Double
    'qqq.smartoffice.dk
    Application.Volatile
    Dim dRetVal As Double
    Dim rCell As Range
    Dim iColor As Integer
    For Each rCell In countArea
        If rCell.Interior.ColorIndex = countColor.Interior.ColorIndex And Trim(LCase(rCell.Value)) = Trim(LCase(matchText)) Then
            dRetVal = dRetVal + 1
        End If
    Next rCell
    ColoredCellsCount = dRetVal
    ' Clean up
    Set rCell = Nothing
End Function
Avatar billede Jacob Kristiansen Novice
21. februar 2017 - 08:40 #9
Testet, kan ikke få det til at fungere.

Kode sat ind i modul - og dette i celle G26 hvor resultat skal være 4

Dette i celle G26:
=ColoredCellsCount(E1:E6;"TEST")

Alle celler E1:E6 indeholder TEST - men E1 og E4 har baggrundsfarve, så de skal ikke tælles med,
Resultat i G26 skal være = 4


Hvad gør jeg forkert?
Avatar billede Flemming Vadet - Smart Office DK Professor
21. februar 2017 - 10:54 #10
Kunne se ud som om du mangler henvisningen til en celle, som har den farve du vil finde...

=ColoredCellsCount(  område der skal tælles  ;  en celle med den farve der skal findes  ;  teksten der skal findes  )
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Afskrivningskurve Af tummes1983 i Excel 2 31/10/202513:28 I går 12:32
Finde mindsteværdi som er større end 00:00:00 Af Peder Lund Nielsen i Excel 6 20/10/202511:14 20/10/202518:52
HVIS + LOPSLAG til flere værdier Af SQF i Excel 4 09/10/202510:50 14/10/202516:09
Finde uger og dage mellem 2 datoer Af mefa i Excel 9 08/10/202519:21 10/10/202505:05
Excel Makroer programmering bit32 - bit64 Af bhh i Excel 3 01/10/202512:22 03/10/202513:32
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 17:28 Tekst format i Kodevinduet Af per2edb i Access
I dag 16:55 Et pludselig opstået ikon på skrivebordet Af ErikHg i Windows
I dag 10:32 Asus R565 legetøj Af Svend_J i PC
I går 18:59 Ang fifa 26 til Ps5 Af made18 i Andet software
I går 17:01 Kom til at tilslutte nogle 3.5 disk med et forkert Sata kabel fra en anden PSU Af Thomas B i Andet hardware
White papers
Flere white papers »