Excel: una macro per ottenere i codici numerici equivalenti per i colori

Questa macro ti consente di ottenere un codice colore, puoi modificarlo a tuo piacimento:

 Sub distri_color () Dim Lign As Integer Per Lign = da 1 a 12 Fogli di lavoro (1) .Range ("C" & Lign) .Value = Fogli di lavoro (1) .Range ("B" & Lign) .Interior.Color Successivo Lign End Sub 

• 'Sostituisci 12 con il numero di linee che vuoi elaborare.
• 'Sostituisci "C" con la colonna che vuoi usare per il risultato (codice colore).
• 'Sostituisci "B" con la colonna che contiene il colore da filtrare.