एक्सेल - रंगों के लिए समान संख्यात्मक कोड प्राप्त करने के लिए एक मैक्रो

यह मैक्रो आपको एक रंग कोड प्राप्त करने की अनुमति देता है, आप इसे अपनी सुविधा में संशोधित कर सकते हैं:

 उप distri_color () डिम लिग्न इन्टर्गर फॉर लिग्न = 1 टू 12 वर्कशीट (1) .Range ("C" & Lign) ।Value = Worksheets (1) .Range ("B" और Lign) .Interior.Color अगला लिग्नेस्ट एंड। उप 

• 'आप जो प्रोसेस करना चाहते हैं उसकी संख्या से 12 को बदलें।
• परिणाम (रंग कोड) के लिए आप जिस कॉलम का उपयोग करना चाहते हैं, उसका "सी" बदलें।
• "B" को उस कॉलम द्वारा प्रतिस्थापित करें जिसमें फ़िल्टर किया जाने वाला रंग है।