Excel - makro, aby uzyskać równoważne kody numeryczne kolorów

To makro pozwala uzyskać kod koloru, możesz go zmodyfikować według własnego uznania:

 Sub distri_color () Dim Lign As Integer For Lign = 1 do 12 arkuszy (1) .Range ("C" i Lign) .Value = Arkusze (1) .Range ("B" i Lign) .Interior.Color Następny Lign End Pod 

• „Zastąp 12 liczbą wierszy, które chcesz przetworzyć.
• „Zastąp„ C ”kolumną, której chcesz użyć dla wyniku (kod koloru).
• „Zastąp„ B ”kolumną zawierającą kolor, który ma być filtrowany.