Excel - Een macro om de equivalente numerieke codes voor kleuren te krijgen

Met deze macro kunt u een kleurcode verkrijgen, u kunt deze naar eigen inzicht aanpassen:

 Sub distri_color () Dim Lign As Integer For Lign = 1 tot 12 werkbladen (1). Range ("C" en Lign). Value = Worksheets (1). Range ("B" en Lign). Interieur. Kleur Volgende Ligneind Sub 

• 'Vervang 12 door het aantal regels dat u wilt verwerken.
• 'Vervang' C 'door de kolom die u wilt gebruiken voor het resultaat (kleurcode).
• 'Vervang' B 'door de kolom die de te filteren kleur bevat.