Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

[Excel] Colora numeri in base a tabella

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

[Excel] Colora numeri in base a tabella

Postdi biancocandido55 » 21/08/11 17:51

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

Immagine

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

Immagine

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

Come sempre un caloroso abbraccio.
Ciaooooooooooo.
Bianco55Immagine
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15

Sponsor
 

Re: [Excel] Colora numeri in base a tabella

Postdi Flash30005 » 21/08/11 19:27

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
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [Excel] Colora numeri in base a tabella

Postdi biancocandido55 » 21/08/11 22:52

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 Immagine
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15

Re: [Excel] Colora numeri in base a tabella

Postdi Flash30005 » 22/08/11 07:57

:)
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [Excel] Colora numeri in base a tabella

Postdi biancocandido55 » 22/08/11 12:06

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

Immagine

ciaoooo a presto!
Bianco55 Immagine
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15

Re: [Excel] Colora numeri in base a tabella

Postdi Statix » 22/08/11 14:14

Ciao biancocandido55,
anche io ho fatto un lavoro simile al tuo
Immagine
:lol: :lol: :lol: :lol:
Statix
Windows 7,
Office 2010,
Statix
Utente Senior
 
Post: 1078
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: [Excel] Colora numeri in base a tabella

Postdi biancocandido55 » 22/08/11 16:26

Ciao Statix, :)
veramente un bel prog.
compimenti sinceri!
un abbraccio
bianco55 Immagine
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15

Re: [Excel] Colora numeri in base a tabella

Postdi biancocandido55 » 22/08/11 16:53

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

Un abbraccio
Ciaoooooooooooo
Bianco55 Immagine
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15

Re: [Excel] Colora numeri in base a tabella

Postdi biancocandido55 » 22/08/11 17:47

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 Immagine
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15

Re: [Excel] Colora numeri in base a tabella

Postdi biancocandido55 » 22/08/11 23:34

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 Immagine
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15

Re: [Excel] Colora numeri in base a tabella

Postdi Flash30005 » 23/08/11 00:11

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
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [Excel] Colora numeri in base a tabella

Postdi biancocandido55 » 23/08/11 09:19

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
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15

Re: [Excel] Colora numeri in base a tabella

Postdi Francesco53 » 23/08/11 11:25

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
S.O. Vista e Office 2007
Francesco53
Utente Senior
 
Post: 647
Iscritto il: 20/02/10 18:45

Re: [Excel] Colora numeri in base a tabella

Postdi biancocandido55 » 23/08/11 11:57

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

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

Ciao e Grazie di tutto!

Un forte abbraccio, a tutta la compagnia, alla prossima,
Bianco55 Immagine
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15

Re: [Excel] Colora numeri in base a tabella

Postdi miko » 23/08/11 17:07

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
windows xp-office 2003
miko
Utente Senior
 
Post: 422
Iscritto il: 29/12/09 10:44

Re: [Excel] Colora numeri in base a tabella

Postdi biancocandido55 » 23/08/11 21:11

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

Immagine

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.

Immagine

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 Immagine
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15


Torna a Applicazioni Office Windows


Topic correlati a "[Excel] Colora numeri in base a tabella":


Chi c’è in linea

Visitano il forum: alfrimpa e 20 ospiti