[office 2007] evidenziare con 7 colori diversi 7 gruppi di numeri diversi...

[freetom]

Cerco di spiegarmi meglio...

ho 7 gruppi di numeri diversi...

es.

A) 1,2,3,4,5,6,7,8,9,10,11,12,13,14
B) 15,16,17,18,19,20,21,22,23,24,25,26
C) 27,28,29,30,31,32,33,34,35,36,37,38,39
D) 40,41,42,43,44,45,46,47,48,49,50,51,52
E) 53,54,55,56,57,58,59,60,61,62,63,64,65
F) 66,67,68,69,70,71,72,73,74,75,76,77,78
G) 79,80,81,82,83,84,85,86,87,88,89,90

A) gruppo rosso
B) gruppo giallo
C) gruppo verde
D) gruppo azzurro
E) gruppo blu
F) gruppo nero
G) gruppo bianco

Ora in un foglio excel ho una serie di numeri (estrazioni) così dislocati
5 colonne x enne righe...

Vorrei che ad ogni cella lo sfondo si colorasse automaticamente in base ai rispettivi gruppi...
e quindi... la cella contenente 60 ad esempio si dovrebbe colorare di blu
quella contenente 30 di verde ecc....

Credete che sia possibile? se si come?

THANKS!

[luck]

uelàààààà, c'è il giocatore del lotto!

Originariamente inviato da freetom

Credete che sia possibile?

Penso di si

Originariamente inviato da freetom

se si come?

con una macro?

 
Sub Colori()


    Rosso = 3
    giallo = 6
    verde = 4
    Azzurro = 34
    Blu = 41
    Nero = 16
    Bianco = 2
    
    Dim Matrice(1 To 90) As Integer
    Dim gruppo(1 To 7) As String
    
    gruppo(1) = "1,2,3,4,5,6,7,8,9,10,11,12,13,14"
    gruppo(2) = "15,16,17,18,19,20,21,22,23,24,25,26"
    gruppo(3) = "27,28,29,30,31,32,33,34,35,36,37,38,39"
    gruppo(4) = "40,41,42,43,44,45,46,47,48,49,50,51,52"
    gruppo(5) = "53,54,55,56,57,58,59,60,61,62,63,64,65"
    gruppo(6) = "66,67,68,69,70,71,72,73,74,75,76,77,78"
    gruppo(7) = "79,80,81,82,83,84,85,86,87,88,89,90"

    'Ribalto la matrice
    Indice = 0
    For t = 1 To 7
        orig = Split(gruppo(t), ",")
        For t2 = LBound(orig) To UBound(orig)
            Indice = Indice + 1
            Matrice(Indice) = t
        Next t2
    Next t

    For Each cella In Selection.Cells
        If Not IsNumeric(cella.Value) Or cella.Value > 90 Or cella.Value <= 0 Then
        
        Else
            Select Case Matrice(cella.Value)
                Case 1
                    colore = Rosso
                Case 2
                    colore = giallo
                Case 3
                    colore = verde
                Case 4
                    colore = Azzurro
                Case 5
                    colore = Blu
                Case 6
                    colore = Nero
                Case 7
                    colore = Bianco
            End Select
            
                cella.Interior.ColorIndex = colore
          End If
            
    Next cella
    
    

   
End Sub

prova così: evidenzia tutte le celle che vuoi colorare e poi avvia la macro.

fai sapere
ciao

[freetom]

Non mi funzia...


In pratica dopo aver associato l'intera macro ad una word art (in office 2007) e dopo aver selezionato qualche riga di numeri... cliccando sulla word art bottone appena creata non succede nulla...

Grazie comunque!

[freetom]

Non avevo semplicemente salvato il file in modo adeguato con la specifica per poter attivare le macro!

Funzia tutto alla grande! mitico!

ps:Sarebbe ancor + spettacolare se si riuscisse a colorare in automatico le celle non appena si inseriscono i numeri... senza dover cliccare sul bottone.. Credi sia possibile?

THANKS!

[luck]

si, è possibile...
basta spostare l'evento...

ma i numeri da colorare compaiono sempre nelle stesse cinque colonne, giusto?
che colonne sono?

[freetom]

semplicemnete C,D,E,F,G



TNX!

[luck]

mah, al codice del foglio ci puoi aggiungere questo:

 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column >= 3 And Target.Column <= 7 Then
        If IsNumeric(Target.Value) = True Then
            Colori
        End If
    End If
End Sub

ma ti tocca ritornarci sopra ad ogni casella che riempi...
non so quanto ne valga la pena...

[freetom]

".. tocca ritornarci sopra dopo ogni cella riempita.." ???

A me servirebbe se possibile qualcosa del genere...

importo un file txt pieno zeppo di numeri
e questi magicamente.. (grazie al tuo scibile ) mi si colorano
in automatico a seconda di gruppi decisi precedentemente...

tutto qui..

Grazie e complimenti comunque!

[luck]

secondo me stai prima a fare l'importa - tastino
ciao ciao

[freetom]

Senti ma il rosa che numero è? mi servirebbe anche quello di colori

TNXS!!!!