Excel - makronaredba za dobivanje ekvivalentnih numeričkih kodova za boje

Ova makronaredba omogućuje vam da dobijete kôd boje, možete ga izmijeniti kako bi vam odgovarao:

 Sub distri_color () Dim Lign As Integer Za Lign = 1 do 12 radnih listova (1) .Range ("C" & Lign) .Value = Radni listovi (1) .Range ("B" & Lign) .Interior.Color Pod 

• 'Zamijenite 12 za broj linija koje želite obraditi.
• 'Zamijenite "C" stupcem koji želite koristiti za rezultat (kod boje).
• 'Zamijenite "B" za stupac koji sadrži boju koju želite filtrirati.