[Excel] Colora numeri in base a tabella

[biancocandido55]

Ciao ragazzi,
un saluto a tutto il forum, ma soprattutto un abbraccio ai Magnifici 2 ,
mi rivolgo a voi per un aiuto, come da IMG qui sotto



mi occorre una macro che formatti i numeri dell' estrazione in base alla tabella posta al lato in modo da farla diventare così:



i numeri nel quadro estrazionale sono dati da formule, i numeri della tabella di destra sono fissi.

Come sempre un caloroso abbraccio.
Ciaooooooooooo.
Bianco55

[Flash30005]

Una macro spartana ma funzionante potrebbe essere questa:

Codice: Seleziona tutto

Sub ColoraEstrazione()
For RR = 9 To 19
    For CC = 5 To 9
        NumE = Cells(RR, CC).Value
        For RRC = 8 To 20
            For CCC = 13 To 19
                NumC = Cells(RRC, CCC).Value
                If NumE = NumC Then
                    Cells(RRC, CCC).Copy
                    Cells(RR, CC).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
                    SkipBlanks:=False, Transpose:=False
                    Application.CutCopyMode = False
                End If
            Next CCC
        Next RRC
    Next CC
Next RR
End Sub

Ma si potrebbe pensare di realizzare la stessa cosa senza l'utilizzo della tabella colorata
In questo modo:

Codice: Seleziona tutto

Sub ColoraEstrazione2()
    Range("E9:I19").Interior.Color = xlNone
    Dim VettC(7) As Integer
    For RR = 9 To 19
        For CC = 5 To 9
            NumE = Cells(RR, CC).Value Mod 7
            If NumE = 0 Then NumE = 7
            Select Case NumE
            Case Is = 1
                Colore = 255
            Case Is = 2
                Colore = 49407
            Case Is = 3
                Colore = 65535
            Case Is = 4
                Colore = 5287936
            Case Is = 5
                Colore = 12611584
            Case Is = 6
                Colore = 16750950
            Case Is = 6
                Colore = 16772300
            End Select
            Cells(RR, CC).Interior.Color = Colore
        Next CC
    Next RR
End Sub


Fai sapere
ciao

[biancocandido55]

Ciao Flash,
spettacolare come sempre,
le macro funzionano benissimo, la prima è solo leggermente più lenta,
ho optato per la seconda cambiando solo i numeri di 2 colori.
Un forte abbraccio a te e ad Anthony,
Ciaooooooo
Bianco55

[Flash30005]

[biancocandido55]

Ciao ragazzi, per la gioia di qualche smanettone....ehm ehm
allego una tabella dei 56 colori index per il VBA con il loro corrispettivo decimale:



ciaoooo a presto!
Bianco55

[Statix]

Ciao biancocandido55,
anche io ho fatto un lavoro simile al tuo

[biancocandido55]

Ciao Statix,
veramente un bel prog.
compimenti sinceri!
un abbraccio
bianco55

[biancocandido55]

Ciao ragazzi,
come spesso capita l'uso delle cose aguzza l'ingegno,
piccola richiesta per Flash
si può modificare la seconda macro, in modo che entri in funzione ogni volta che si cambia estrazione.
Come sempre. Buona estate calda............ a tutti.

Un abbraccio
Ciaoooooooooooo
Bianco55

[biancocandido55]

Ciao Flash e buon pomeriggio a tutti,

attualmente la macro citata prima da variare è la seguente:

Codice: Seleziona tutto

Sub TuaMacro()
Application.ScreenUpdating = False
Application.Calculation = xlManual
'Sub ColoraEstrazione2()
    Range("E9:I19").Interior.Color = xlNone
    Dim VettC(7) As Integer
    For RR = 9 To 19
        For CC = 5 To 9
            NumE = Cells(RR, CC).Value Mod 7
            If NumE = 0 Then NumE = 7
            Select Case NumE
            Case Is = 1
                colore = 255
            Case Is = 2
                colore = 49407
            Case Is = 3
                colore = 65535
            Case Is = 4
                colore = 5287936
            Case Is = 5
                colore = 12611584
            Case Is = 6
                colore = 15773696
            Case Is = 7
                colore = 13083058
            End Select
            Cells(RR, CC).Interior.Color = colore
        Next CC
    Next RR
'End Sub
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

con l'aggiunta di altro codice da te suggerito in altro topic per velocizzare le macro
Un abbraccio
ciaooooooooooooo
bianco55

[biancocandido55]

Ciao ragazzi,
per maggior chiarimento inerente la richiesta
Il cambio delle estrazioni avviene tramite la barra verticale posta al lato sinistro delle estrazioni.

Un abbraccio
Ciaoooooooooooo
Bianco55

[Flash30005]

Quale barra?

se hai un pulsante di comando potrai calcolare le righe precedenti l'aggiornamento
effettuare l'aggiornamento
e se le righe sono diverse
attivare la macro

se è sufficiente questo input ok
altrimenti posta ancora
specificando con cosa attivi l'aggiornamento

ciao

[biancocandido55]

Buongiorno a tutto il Forum,
Ciao Flash,
allora, tornando a noi, per quello che riguarda l'aggiornamento archivio del Foglio Archivio, segue una sua procedura propria.
Le IMG sopra sono del Foglio2 di calcoli vari se osservi l'immagine sulla colonna B c'è una barra di scorrimento (colore grigio chiaro) al quale ho collegato le estrazioni, cliccando sulle frecce o facendo scorrere il pulsantino centrale
la data e le estrazioni cambiano.
Sperando di essere stato esaustivo, rimango in attesa,
un abbraccio
bianco55

[Francesco53]

Buongiorno,
se fai click col tasto destro del mouse sulla barra di scrottimento grigia,
dovrebbe apparire un menu con la possibilità di assegnare la macro.
Francesco

[biancocandido55]

Ciao Francesco53
è proprio vero, quando si dice che le cose più le abbiamo sotto il naso e meno si vedono

P.S.
E' colpa del caldo???
Spero di si!!

Ciao e Grazie di tutto!

Un forte abbraccio, a tutta la compagnia, alla prossima,
Bianco55

[miko]

salve a tutti
ragazzi, statix e bianco, siete proprio bravi nel gioco del lotto e con le macro;
verrei a lezione da voi perchè del lotto non ci capisco proprio nulla;
ma vedendo altri vostri post mi sto incuriosendo.
vorrei chiedervi un piacere, dal momento che anche io avevo intenzione di realizzare un progettino che sfrutta oggetti che ho visto nelle immagini che avete inserito in questo topic.
se potete postare la o le macro che prelevano ed inseriscono i numeri nelle tabelle come da immagini, ed allo scorrere della scroll bar od al click variano i numeri, le date e gli altri elementi relativi alle estrazioni:
inoltre le tabelle sono state realizzate con un insieme di textbox, label o qualcos' altro?
ho inserito in un foglio tutte le estrazioni disposte in orizzontale.
grazie ciao

[biancocandido55]

Ciao Miko,
non ci sono macro in uso ma solo riporti ,formule, grafica ed ingegno, spero con l'img che segue di poterti aiutare:



Non sò che versione di excel tu abbia in uso, comunque, l'img postata sotto può darti un'idea, nella barra del menu o tra i vari pulsanti c'è un pulsante con martello e chiave inglese cliccandoci sopra si apre un sottomenu come quello che vedi la barra di scorrimento si trova tra le lettere, ci clicchi sopra con il tasto sinistro del mouse, poi ti sposti sul foglio e riclicchi dove vuoi posizionare la barra, grandezza a tuo piacimento.



Fatto questo, cliccando con il tasto destro del mouse sulla barra tra le varie voci scegli formato controllo e si apre una finestra come da 1ª immagine, i parametri inseriti possono darti un'idea di cosa va inserito nella scheda controllo della barra.
Delle 2 estrazioni che vedi quella importante è quella di destra in bianco, dove ci sono inserite formule come questa

Codice: Seleziona tutto

=CERCA.VERT($N$8;Archivio!$A$4:$BF$10000;4;FALSO)

per ogni quadratino, che dovrai adattare per la ricerca sul tuo archivio,
nella cella N8 è inserito il numero più alto delle estrazioni dell'archivio, nel mio è la 4876 estrazione.
Le estrazioni colorate di verde invece sono solo dei riporti, ad esempio, nella cella E9 la formula inserita è

Codice: Seleziona tutto

=$O$9

e cosi via per le altre celle.
Spero di esserti stato d'aiuto in qualche modo.
Ciao
Bianco55