Risultati da 1 a 13 di 13

Discussione: Contare celle colorate con formattazione condizionale



  1. #1

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6814
    Versione Office
    2013
    Likes ricevuti
    721
    Likes dati
    165

    Contare celle colorate con formattazione condizionale

    Ciao a tutti.

    Scrivere una routine per contare delle celle che hanno lo stesso colore è cosa banale (se il colore è stato applicato manualmente).

    Però sino ad ora non ho ancora capito se sia possibile scrivere una function che conti le celle colorate con la formattazione condizionale.

    Che io sappia il VBA non è in grado di rilevare il colore con f.c. tant'è che forse si potrebbe aggirare l'ostacolo inserendo come criterio di conteggio quello utilizzato per la f.c. in modo da contare i VERO o i FALSO.

    Sto scrivendo da iPad e non ho il pc per cui non so se il mio ragionamento sia corretto; quindi esiste un modo per contare celle colorate con f.c.?

    Grazie
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  2. #2
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Lecce - Pisa
    Età
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: Contare celle colorate con formattazione condizionale


  3. #3

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7166
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2065
    Likes dati
    1305

    Re: Contare celle colorate con formattazione condizionale

    Ciao a tutti,
    propongo questo codice, credo molto semplice, usando la proprietà DisplayFormat.Interior.Color (che pare abbia dei limiti nelle funzioni definite dall'utente -> https://msdn.microsoft.com/en-us/lib.../ff838814.aspx )

    Codice: 
    Option Explicit
    Sub ContaColorate()
    'By Ges
        Dim wks As Worksheet
        Dim CountColor1 As Integer, CountColor2 As Integer, CountColor3 As Integer, CountColor4 As Integer
        Dim y As Integer
        Set wks = Worksheets("Foglio1")
        CountColor1 = 0
        CountColor2 = 0
        CountColor3 = 0
        CountColor4 = 0
        For y = 1 To 30
            If wks.Range("A" & y).DisplayFormat.Interior.Color = wks.Range("E2").DisplayFormat.Interior.Color Then
                CountColor1 = CountColor1 + 1
            End If
            wks.Range("D2") = CountColor1
            If wks.Range("A" & y).DisplayFormat.Interior.Color = wks.Range("E4").DisplayFormat.Interior.Color Then
                CountColor2 = CountColor2 + 1
            End If
            wks.Range("D4") = CountColor2
            If wks.Range("A" & y).DisplayFormat.Interior.Color = wks.Range("E6").DisplayFormat.Interior.Color Then
                CountColor3 = CountColor3 + 1
            End If
            wks.Range("D6") = CountColor3
            If wks.Range("A" & y).DisplayFormat.Interior.Color = wks.Range("E8").DisplayFormat.Interior.Color Then
                CountColor4 = CountColor4 + 1
            End If
            wks.Range("D8") = CountColor4
        Next
        wks.Range("D11") = CountColor1 + CountColor2 + CountColor3 + CountColor4
        Set wks = Nothing
    End Sub
    File Allegati File Allegati
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  4. I seguenti utenti hanno dato un "Like"


  5. #4

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6814
    Versione Office
    2013
    Likes ricevuti
    721
    Likes dati
    165

    Re: Contare celle colorate con formattazione condizionale

    GGratis e Ges grazie delle vostre risposte ed appena torno in sede le proverò sicuramente.

    Buone vacanze.
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  6. #5
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3223
    Versione Office
    Excel2010
    Likes ricevuti
    628
    Likes dati
    155

    Re: Contare celle colorate con formattazione condizionale

    Ciao Alfredo
    ma non pensare ad Excel ... ! Goditi le vacanze

    Comunque ti invio un mio elaborato che CONTA le celle con FC e fa la SOMMA (per colore) dei valori inseriti.

    Ciao e fai sapere,
    Mario
    File Allegati File Allegati

  7. #6
    L'avatar di rollis13
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Cordenons
    Messaggi
    821
    Versione Office
    2016 64bit
    Likes ricevuti
    149
    Likes dati
    55

    Re: Contare celle colorate con formattazione condizionale

    @Marius44 (), ci sarebbe da apportare una piccola modifica nel codice della tua "Private Sub Worksheet_SelectionChange":
    la riga "Application.EnableEvents = True" va spostata dopo la riga "Cells(1, 6).Select" altrimenti quando si selezionano altre celle parte l'evento.

    PS. non basta, bisogna spostare anche "Application.EnableEvents = False" prima della riga "If Not Intersect(Target, Range("F2:G2")) Is Nothing Then"

    PPS. se non smetto m'incarto anch'io; l'evento non è il problema, è la riga "Cells(1, 6).Select" che NON ci va altrimenti non posso modificare il foglio.

  8. #7

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6814
    Versione Office
    2013
    Likes ricevuti
    721
    Likes dati
    165

    Re: Contare celle colorate con formattazione condizionale

    Citazione Originariamente Scritto da Marius44 Visualizza Messaggio
    Ciao Alfredo
    ma non pensare ad Excel ... ! Goditi le vacanze
    Mario sapessi come è difficile! Sono già in crisi d'astinenza

    Poichè non potrò vedere il tuo file sino a fine mese mi faresti la cortesia di pubblicare qui le macro che vi sono contenute così comincio a guardarle?

    Ti ringrazio.

    P.S. Mannaggia mi sa che devo farmi il portatile
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  9. #8

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6814
    Versione Office
    2013
    Likes ricevuti
    721
    Likes dati
    165

    Re: Contare celle colorate con formattazione condizionale

    Ecco Rollis che ti ha sgamato subito
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  10. #9
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3223
    Versione Office
    Excel2010
    Likes ricevuti
    628
    Likes dati
    155

    Re: Contare celle colorate con formattazione condizionale

    Ragazzi, ma per voi Ferragosto non ... incombe

    Comunque: Rollis (ciao) ha ragione. E' necessario togliere Cells(1,6).Select. Grazie per la segnalazione.

    Per Alfredo (al fine di evitare crisi ... ) ecco le macro

    Nel Modulo di Foglio1
    Codice: 
    Option ExplicitPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("F2:G2")) Is Nothing Then
        Application.EnableEvents = False
        If Target = "conta" Then
            Call ContaFormattate
        ElseIf Target = "somma" Then
            Call SommaFormattate
        End If
        Application.EnableEvents = True
    End If
    End Sub
    In un Modulo Standard
    Codice: 
    Option Explicit
    Sub SommaFormattate() 'by Marius
    Dim i As Long, num As Single, num1 As Single, num2 As Single, num3 As Single, testvalue As String
    Range("G3:G7").ClearContents
        For i = 1 To 20
            Cells(i, 1).Select: testvalue = Cells(i, 2)
            num = Cells(i, 1).Value
            If IsGroup1(Cells(i, 2)) Then
                num1 = num1 + num
            ElseIf IsGroup2(Cells(i, 2)) Then
                num2 = num2 + num
            ElseIf IsGroup3(Cells(i, 2)) Then
                num3 = num3 + num
            End If
        Next i
        Cells(3, 7) = num1: Cells(4, 7) = num2: Cells(5, 7) = num3
        Cells(7, 7) = num1 + num2 + num3
    End Sub
    
    
    Sub ContaFormattate() 'by Marius
    Dim i As Long, cnd1 As Long, cnd2 As Long, cnd3 As Long, testvalue As String
        Range("F3:F7").ClearContents
        For i = 1 To 20
            Cells(i, 1).Select: testvalue = Cells(i, 2)
            If IsGroup1(Cells(i, 2)) Then
                cnd1 = cnd1 + 1
            ElseIf IsGroup2(Cells(i, 2)) Then
                cnd2 = cnd2 + 1
            ElseIf IsGroup3(Cells(i, 2)) Then
                cnd3 = cnd3 + 1
            End If
        Next i
        Cells(3, 6) = cnd1: Cells(4, 6) = cnd2: Cells(5, 6) = cnd3
        Cells(7, 6) = cnd1 + cnd2 + cnd3
    End Sub
    
    
    Function IsGroup1(ByVal testvalue As Variant) As Boolean 'by Marius
    IsGroup1 = (testvalue = "anticipo")
    End Function
    
    
    Function IsGroup2(ByVal testvalue As Variant) As Boolean 'by Marius
    IsGroup2 = (testvalue = "ritardo")
    End Function
    
    
    Function IsGroup3(ByVal testvalue As Variant) As Boolean 'by Marius
    IsGroup3 = (testvalue = "week")
    End Function
    Ovviamente il tutto è valido per 3 condizioni, altrimenti bisogna incrementare le function e i riferimenti.

    Ciao a tutti,
    Mario

  11. #10
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Binasco
    Età
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: Contare celle colorate con formattazione condizionale

    A me con 2007 "DisplayFormat" non funziona?
    Altre info (oltre cambiare in Excel maggiore?..., oppure faccio VBA "sulle stesse condizioni della FC"?

  12. #11

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6814
    Versione Office
    2013
    Likes ricevuti
    721
    Likes dati
    165

    Re: Contare celle colorate con formattazione condizionale

    Si Raffaele credo che l'unica strada alternativa sia quella di basare il conteggio sulle condizioni della f.c. anche se credo che la cosa sia alquanto complessa (non ho mai provato).

    Ti confermo che il DisplayFormat non funziona con 2007.
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  13. #12
    L'avatar di mb63
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Torino
    Età
    54
    Messaggi
    484
    Versione Office
    2007/10/13 w10
    Likes ricevuti
    18
    Likes dati
    94

    Re: Contare celle colorate con formattazione condizionale

    Ciao Alfredo

    prova a vedere e questo ti puo' essere utile

    buona festa
    File Allegati File Allegati

  14. #13

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6814
    Versione Office
    2013
    Likes ricevuti
    721
    Likes dati
    165

    Re: Contare celle colorate con formattazione condizionale

    Grazie mb ma ora sono in ferie e non ho il pc.

    Al rientro lo farò sicuramente
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

Discussioni Simili

  1. Contare celle in base a un tipo di formattazione
    Di Theinvoker nel forum Domande su Excel in generale
    Risposte: 10
    Ultimo Messaggio: 26/04/16, 11:23
  2. formattazione condizionale su più celle
    Di filipp0 nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 27/01/16, 10:21
  3. Conta celle colorate con formattazione condizionale
    Di ges nel forum Domande su Excel VBA e MACRO
    Risposte: 5
    Ultimo Messaggio: 08/01/16, 20:36
  4. Contare celle colorate
    Di nick0573 nel forum Domande su Excel VBA e MACRO
    Risposte: 18
    Ultimo Messaggio: 05/01/16, 22:44
  5. formattazione condizionale a celle alterne
    Di Gianfranco55 nel forum Domande su Excel VBA e MACRO
    Risposte: 13
    Ultimo Messaggio: 12/12/15, 13:13

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •