Excel - makro, da dobite enakovredne številčne kode za barve

Ta makro vam omogoča, da dobite barvno kodo, lahko jo spremenite, tako da je vaše udobje:

 Sub distri_color () Dim Lign As Integer Za Lign = 1 do 12 delovnih listov (1) .Range ("C" & Lign) .Value = Delovni listi (1) .Range ("B" & Lign) .Interior.Color Next Lign End Pod 

• »Zamenjajte 12 s številom vrstic, ki jih želite obdelati.
• "Zamenjajte" C "s stolpcem, ki ga želite uporabiti za rezultat (barvno kodo).
• "Zamenjajte" B "s stolpcem, ki vsebuje barvo, ki jo želite filtrirati.