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?

codice:
 
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