|
Login
  • Page:
  • 1

TOPIC: Totale di Celle Colorate per Riga

Totale di Celle Colorate per Riga 7 years 4 months ago #8955

  • Maury1704
  • Maury1704's Avatar
  • OFFLINE
  • Expert Boarder
  • Posts: 91
  • Karma: 0
Ciao a tutti, mi chiamo Maurizio, il mio Problema e questo :
Dalla Cella A1 alla Cella C100 ci sono dei numeri immessi presi a caso da una lista che va dall' 1 al 90 .
Mentre nelle Celle F1:H1 - F2:H2 - F3:H3 inserisco dei numeri da ricercare dalla mia lista .
Ora in tutto ciò , ho adottato una formattazione Condizionale che mi evidenzi tutti i numeri corrispondenti alle celle F1:H1 - F2:H2 - F3:H3 , con Vari Colori di Fondo e di Font, e fino a qui nulla di cosi Eclatante !
Il Problema che vorrei risolvere e questo :
Sempre usando una formattazione Condizionale c'è la possibilità di Far scrivere nella Colonna E1:E100 quante volte ad ogni riga si incontra ( tre Celle ) dello stesso Colore.
Tenendo presente che la Formattazione Condizionale che evidenzia i numeri presi dalle celle (F1:H1) sono di colore Giallo, mentre quelle delle celle (F2:H2) sono di colore Verde, e quelle delle celle (F3:H3) sono di colore Rosso con font Bianco
Ringrazio sin da ora tutti coloro che mi vorranno dare una Mano in merito , Sinceri saluti da Maurizio
The administrator has disabled public write access.

Totale di Celle Colorate 7 years 4 months ago #8972

  • Maury1704
  • Maury1704's Avatar
  • OFFLINE
  • Expert Boarder
  • Posts: 91
  • Karma: 0
Ciao a tutti mi chiamo Maurizio e Il mio problema e questo :

1 ) Sul Foglio 1 a partire dalla cella F3:H8 ho inserito di prova una sorta di Schedina del Super Enalotto che ha come base
( 6 Righe ) Per ( 3 Colonne ) che chiamerò " Mie Giocate " , dirò anche che Sempre per Praticità , ho colorato queste
Righe con Colori Interior diversi e sino a qui nessun Problema .

2 ) Mentre questa volta per Praticità partirò con il dire che a partire dalla Cella B10:D15 che chiamerò " Base Estrazioni "
in qui ci sono dei numeri presi a caso da una Base di Estrazione che và Dall' 1 al 90 Un pò come succede nel vero
Gioco del SuperEnalotto .

Detto Questo ; Partiro con il Dire che sfruttando il Modulo 1 ho scritto questo programmino che verrà poi richiamato a
sua volta da un Pulsante posto sul Foglio 1 , La mia Routine e questa :

Function Genera_Colore1()
On Error Resume Next
For Each A In Range("B10:D15")
If Application.CountIf(Range("F3:H3"), A) >= 1 Then A.Interior.ColorIndex = 6
Next

For Each B In Range("B10:D15")
If Application.CountIf(Range("F4:H4"), B) >= 1 Then B.Interior.ColorIndex = 1
If Application.CountIf(Range("F4:H4"), B) >= 1 Then B.Font.ColorIndex = 2
Next

For Each C In Range("B10:D15")
If Application.CountIf(Range("F5:H5"), C) >= 1 Then C.Interior.ColorIndex = 3
If Application.CountIf(Range("F5:H5"), C) >= 1 Then C.Font.ColorIndex = 2
Next

For Each D In Range("B10:D15")
If Application.CountIf(Range("F6:H6"), D) >= 1 Then D.Interior.ColorIndex = 43
If Application.CountIf(Range("F6:H6"), D) >= 1 Then D.Font.ColorIndex = 2
Next

For Each E In Range("B10:D15")
If Application.CountIf(Range("F7:H7"), E) >= 1 Then E.Interior.ColorIndex = 25
If Application.CountIf(Range("F7:H7"), E) >= 1 Then E.Font.ColorIndex = 2
Next

For Each F In Range("B10:D15")
If Application.CountIf(Range("F8:H8"), F) >= 1 Then F.Interior.ColorIndex = 53
If Application.CountIf(Range("F8:H8"), F) >= 1 Then F.Font.ColorIndex = 2
Next
End Function

Questo modulo ha il Compito di Colorare le Celle Corrispondenti posizionate in B10:D15 in base algli Stessi Colori che
Rirrispondono alle MIe Giocare , e fino a qui nulla di Problematico in quanto questo piccolo Programmino Svolge molto bene
il Suo Compito .

3 ) Ora il mio Problema e solo si fà per dire ? questo :
Avendo Svolto tutto questo lavoro da me a priori , e che ripeto nel mio piccolo funziona Benissimo ! Ora Vorrei sapere
come si potrebbe fare per avere una sorta di contatore Numerico che mi vada a conteggiare Riga per Riga solo prendendo
in Considerazione la perte " Base Estrazioni " e Sfruttando tutta le colonna che vada dalla Cella E10:E65500 in modo
tale che mi sappia dare il numero esatto di quante celle trova in quella determinata Riga dello stesso Colore !
Ora visto che sulla vostra Impaginazione di questo Forum tutto ciò che o sempre impostato in modo molto chiaro in fase
di Scrittura , viene poi sfasato il fase di Salvataggio quando invio una mia richiesta ; partirò semplicemente con il
dire che come sorta di Esempio posso provare a dirvi che :

ad Esempio nella Cella E10 dovrebbe comparire il numero 2 , in quanto andando a verificare le celle di colore giallo che
ci sono nella " Base Estrazioni " il Colore Giallo compare due volte .

Come sempre in forma di Esempio , posso dinuovo dire che in E12 dovrebbe comparirmi il Numero 3 in quanto sulla
" Base Estrazioni " ci sono tutte e tre la Celle colorate di Rosso ; in più il Fatto che io abbia scritto che vorrei che
tale Colonna cioè la E si Incrementabile sino a che possa raggiungere la 65500 cella , non è tanto perchè io voglio
arrivare a tanto , ma semplicemente per il fatto che io Vorrei che tutto ciò non si fermasse alla sola cella E15 ma sappia
all'occorrenza andare oltre ; Tutto qui !

Premetto che Io di mio ho provato questa soluzione :
Range("E10").Formula = "=CountCcolor(B10:D15,F3)" funziona benissimo solo sè io mi accontentassi far valutare una Decina di
Righe della " Base Estrazioni " il problema nasce quando nè vorrei far Valutare un Centinaio ; in quanto non mi metterei
mai di certo a ripetere tale procedura per cento volte e più .

Grazie ancora una volta di tutto il disturbo che vi stò chreando con questo mio Problema , ma sicuramente senza il Vostro
aiuto non saprei proprio come fare per imparare sempre di più .
Sinceri saluti con Affetto da Maurizio
Attachments:
The administrator has disabled public write access.

Totale di Celle Colorate per Riga 7 years 4 months ago #9040

  • Grograman
  • Grograman's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 2
  • Karma: 0
Ciao!

Anzitutto come mai utilizzi delle Function se non devi sfruttare un "risultato"?
Sarebbe bene usare le normali routines.
Ecco ad esempio come tradurre "Genera_Colore1" in altro modo:
Option Explicit 'SEMPRE E COMUNQUE!!
Sub Genera_Colore1()
  Dim rCerca As Range, rTarget As Range, rFound As Range, rCella As Range
  'rCerca: Celle da cercare     rTarget: DOVE cercare
  'rCella: Singola cella di rCerca   rFound: Cella corrispondente
  
  Set rCerca = Range("B10:D15")
  Set rTarget = Range("F3:H8")
  
    For Each rCella In rCerca
      Set rFound = rTarget.Find(rCella.Value, , LookAt:=xlWhole)
      If Not rFound Is Nothing Then
        rCella.Interior.ColorIndex = rFound.Interior.ColorIndex
        rCella.Font.ColorIndex = rFound.Font.ColorIndex
      End If
      Set rFound = Nothing
    Next rCella
    
  Set rCerca = Nothing
  Set rTarget = Nothing
End Sub

Detto questo, mi rispiegheresti cosa vuoi ottenere dopo?
Contare quante volte un colore viene ripetuto per ogni riga?

Se sì, in modo molto brutale:
Sub Conta_Colori()
Dim i As Long, k As Long, x As Long
For i = 10 To 15
  For k = 2 To 4
    If Cells(i, k).Interior.Pattern <> xlNone Then
      x = x + 1
    End If
  Next k
  Cells(i, 5) = x
  x = 0
Next i
End Sub

Ciao!
Last Edit: 7 years 4 months ago by Grograman.
The administrator has disabled public write access.

Totale di Celle Colorate per Riga 7 years 4 months ago #9049

  • Maury1704
  • Maury1704's Avatar
  • OFFLINE
  • Expert Boarder
  • Posts: 91
  • Karma: 0
Ciao Grograman per prima cosa vorrei ringraziarti per avermi preso in considerazione.
Detto questo : Rispondo alla tua domanda .
In Poche parole , ti ho chiesto questo aiuto in quanto , guardando su Internet ho trovato molti programmi che trattavano il SuperEnalotto , sicuramente molto più belli e qualitativi rispetto al mio .
Però tutti lasciavano a desiderare il fatto che non ci fosse nessuno che avesse mai pensato di fare una valutazione in base ad una presunta Schedina giocata settimanalmente .
E visto che io nel mio Programma prendo in Considerazione una notevole quantità di dati che vanno dal 01/01/2010 sino ad oggi ; e visto che avevo già creato una serie di Routine che mi sapessero prendere in Considerazione sia la mia Reale Schedina Giocata.
So che giorno e stata giocata tale risultato ecc....!
Però mi Mancava proprio quella funzione che mi sapesse Conteggiare in un colpo solo , tutti i colori Uguali di quella Riga in base hai dati Prelevati dalla mia schedina , tutto qui .
Ora e vero che io non ho ancora avuto la possibilità di provare i tuoi consigli o suggerimenti che siano , ma non appena lo farò sempre che tu lo voglia ti invierò il mio Giudizio in merito .
Nel frattempo ti dico Semplicemente ancora una volta Mille Grazie e un Sincero Saluto da A.Maury1704
The administrator has disabled public write access.
  • Page:
  • 1
Time to create page: 0.403 seconds