Risultati da 1 a 6 di 6

Discussione: Conta celle colorate con formattazione condizionale



  1. #1

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

    Conta celle colorate con formattazione condizionale

    Dopo aver seguito QUESTA discussione per mio esercizio ho voluto creare un file che conta le celle colorate con la sola formattazione condizionale.
    E' una cosa semplice ma lo condivido nel caso possa tornare utile a qualcuno come base del codice vba (oltre a quello di scossa e cromagno che è stato pubblicato nella predetta discussione).

    Codice: 
    Option Explicit
    Sub ContaColorate()
        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!

  2. I seguenti 2 utenti hanno dato un "Like" a ges per questo post:


  3. #2
    L'avatar di A.Maurizio
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Torino
    Età
    56
    Messaggi
    383
    Versione Office
    2013
    Likes ricevuti
    44
    Likes dati
    0
    Grazie Ges ne farò sicuramente buon uso .
    Anche sè a dire il Vero Io Avevo Creato Questa : =CountCcolor(D12:K12;M5)
    Sinceri Saluti da Maurizio

  4. #3

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4016
    Versione Office
    2013
    Likes ricevuti
    1225
    Likes dati
    923
    Grazie per la condivisione ges :246:

    Ma la macro la hai associata alle CheckBox ?
    All'inizio non capivo come partisse... :258:

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  5. #4
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3209
    Versione Office
    Excel2010
    Likes ricevuti
    625
    Likes dati
    155
    Grazie, Ges, per la condivisione. Non posso darti "mi piace" (come ha fatto cromagno - ciao Tore) perché la mia versione (Excel2007) non supporta " .DisplayFormat.Interior.Color "

    Fai il bravo. Trova qualcosa che io possa usare. :269:
    Ciao,
    Mario

  6. #5

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7131
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2063
    Likes dati
    1299
    Citazione Originariamente Scritto da cromagno Visualizza Messaggio
    Grazie per la condivisione ges :246:

    Ma la macro la hai associata alle CheckBox ?
    All'inizio non capivo come partisse... :258:
    Ciao Cromagno,
    si ho inserito il codice in un modulo che poi per farlo attivare l'ho associato a ciascuna checkbox, mi è sembrato il modo migliore per scatenare l'evento ! :90:
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  7. #6

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7131
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2063
    Likes dati
    1299
    Citazione Originariamente Scritto da Marius44 Visualizza Messaggio
    Grazie, Ges, per la condivisione. Non posso darti "mi piace" (come ha fatto cromagno - ciao Tore) perché la mia versione (Excel2007) non supporta " .DisplayFormat.Interior.Color "

    Fai il bravo. Trova qualcosa che io possa usare. :269:
    Ciao,
    Mario
    Se non supporta " .DisplayFormat.Interior.Color " la cosa che mi viene in mente è utilizzare delle celle d'appoggio.
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

Discussioni Simili

  1. Contare celle colorate con formattazione condizionale
    Di alfrimpa nel forum Domande su Excel VBA e MACRO
    Risposte: 12
    Ultimo Messaggio: 15/08/16, 12:02
  2. Formattazione condizionale celle su lasso di tempo
    Di Barchetta nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 07/04/16, 23:58
  3. formattazione condizionale su più celle
    Di filipp0 nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 27/01/16, 10:21
  4. Conta celle colorate
    Di Gianfranco55 nel forum Domande su Excel VBA e MACRO
    Risposte: 17
    Ultimo Messaggio: 07/01/16, 12:11
  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
  •