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
Samle data fra flere kolonner i 1 Af FinnLauridsen i Excel 5 17/04/202616:11 27/04/202617:58
Træk data fra ny lokation ved måneds skift Af Hezo i Excel 6 13/04/202614:32 15/04/202611:04
Makro der gemmer vedhæftet fil fra Msg og omdøber filen Af lokesa i Excel 2 31/03/202610:22 31/03/202611:47
Stempel ur start og stop Af lurup i Excel 3 23/03/202613:24 07/05/202614:01
Hvordan bruges indeks & sammenlign når der skal søges over flere kolonner? Af Laugesen1 i Excel 4 08/03/202611:56 08/03/202613:57
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 går 17:11 Har glemt navn på min ene konto på eksperten! Af ErikHg i Fri debat
I går 15:00 RIP af DVD med MakeMKV Af dcedata1977 i Servere
I går 10:08 slet windows Af jajoh i Windows
07/0514:15 PHP Html Af Asky i Programmeringsværktøjer
07/0511:06 Rufus mange muligheder - valg ved install Windows Af Uvanga i Windows
White papers
Flere white papers »