Excel - dobite barvno kodo

To makro lahko uporabite, da dobite barvno kodo:

 Sub distri_color ()
Dim i
Za i = 1 do 12
Delovni listi (1) .Range ("C" & i) .Value = Delovni listi (1) .Range ("B" & i) .Interior.Color
Naprej i
End Sub 

• »Zamenjajte 12 s številom vrstic, ki jih želite uporabiti.
• 'Zamenjava I v stolpcu, ki ga želite uporabiti za rezultat (barvna koda).
• 'Zamenjajte B za stolpec, ki vsebuje barvo, ki jo želite filtrirati.