मुख्य सामग्री पर जाएं

एक्सेल में सेल्स के बैकग्राउंड कलर इंडेक्स को कैसे निर्धारित और पहचानें?

लेखक: रवि अंतिम संशोधित: 2020-05-26

जब आपको नीचे दिखाए गए स्क्रीनशॉट के अनुसार कई रंगीन कोशिकाओं वाली एक शीट मिलती है, तो कुछ मामलों में, आप इन रंगीन कोशिकाओं के पृष्ठभूमि रंग सूचकांक की पहचान करना चाह सकते हैं। ऐसी कोई अंतर्निहित सुविधा नहीं है जो सेल के रंग सूचकांक को निर्धारित कर सके, लेकिन, इस आलेख में, मैं Excel में इस कार्य को शीघ्रता से हल करने के लिए कुछ VBA कोड पेश कर रहा हूं।
दस्तावेज़ रंग सूचकांक 1 निर्धारित करें

VBA के साथ सेल का रंग पहचानें


VBA के साथ सेल का रंग पहचानें

VBA द्वारा सेल का रंग निर्धारित करने के लिए निम्नलिखित चरणों का पालन करें।

1। दबाएँ ऑल्ट + F11 सक्षम करने के लिए कुंजियाँ अनुप्रयोग के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
दस्तावेज़ रंग सूचकांक 2 निर्धारित करें

2। क्लिक करें सम्मिलित करें > मॉड्यूल एक नया खोलने के लिए मॉड्यूल और रिक्त स्क्रिप्ट में VBA कोड के नीचे चिपकाएँ। स्क्रीनशॉट देखें:

वीबीए: सेल का पारंपरिक हेक्स कोड प्राप्त करें

Function getRGB1(FCell As Range) As String
'UpdatebyExtendoffice20170714
    Dim xColor As String
    xColor = CStr(FCell.Interior.Color)
    xColor = Right("000000" & Hex(xColor), 6)
    getRGB1 = Right(xColor, 2) & Mid(xColor, 3, 2) & Left(xColor, 2)
End Function
दस्तावेज़ रंग सूचकांक 3 निर्धारित करें
दस्तावेज़ रंग सूचकांक 4 निर्धारित करें

3. कोड सहेजें और VBA विंडो बंद करें। रंगीन सेल के बगल में एक रिक्त सेल का चयन करें, यह सूत्र टाइप करें, =getRGB1(A16), फिर ऑटोफ़िल हैंडल को उन सेल पर खींचें जिनका आप उपयोग करना चाहते हैं। स्क्रीनशॉट देखें:

दस्तावेज़ रंग सूचकांक 5 निर्धारित करें
दस्तावेज़ रंग सूचकांक 6 निर्धारित करें

सुझाव: कुछ अन्य कोड हैं जो सेल के रंग सूचकांक की पहचान कर सकते हैं।

1. वीबीए: प्रत्येक कोड के लिए दशमलव मान

Function getRGB2(FCell As Range) As String
   'UpdatebyExtendoffice20170714  
    Dim xColor As Long
    Dim R As Long, G As Long, B As Long
    xColor = FCell.Interior.Color
    R = xColor Mod 256
    G = (xColor \ 256) Mod 256
    B = (xColor \ 65536) Mod 256
    getRGB2 = "R=" & R & ", G=" & G & ", B=" & B
End Function

रिजल्ट:
दस्तावेज़ रंग सूचकांक 7 निर्धारित करें

2. वीबीए: दशमलव मान

Function getRGB3(FCell As Range, Optional Opt As Integer = 0) As Long
 'UpdatebyExtendoffice20170714
    Dim xColor As Long
    Dim R As Long, G As Long, B As Long
    xColor = FCell.Interior.Color
    R = xColor Mod 256
    G = (xColor \ 256) Mod 256
    B = (xColor \ 65536) Mod 256
    Select Case Opt
        Case 1
            getRGB3 = R
        Case 2
            getRGB3 = G
        Case 3
            getRGB3 = B
        Case Else
            getRGB3 = xColor
    End Select
End Function

रिजल्ट:
दस्तावेज़ रंग सूचकांक 8 निर्धारित करें


Excel श्रेणी में डुप्लिकेट या अद्वितीय मानों का शीघ्रता से चयन करें

एक्सेल शीट में, यदि आपके पास एक श्रेणी है जिसमें कुछ डुप्लिकेट पंक्तियाँ शामिल हैं, तो आपको उन्हें चुनने या उन्हें बकाया करने की आवश्यकता हो सकती है, लेकिन इस कार्य को जल्दी से कैसे हल किया जा सकता है?यदि आपके पास है एक्सेल के लिए कुटूल, आप का उपयोग कर सकते हैं डुप्लिकेट चुनें & अद्वितीय कोशिकाएँ श्रेणी में डुप्लिकेट वाले या अद्वितीय मानों को तुरंत चुनने के लिए उपयोगिता, या डुप्लिकेट और अद्वितीय मानों के लिए पृष्ठभूमि और फ़ॉन्ट रंग भरने के लिए।  30 दिनों के निःशुल्क परीक्षण के लिए क्लिक करें!
दस्तावेज़ कॉलम 6 में डुप्लिकेट को हाइलाइट करें
 
एक्सेल के लिए कुटूल: 300 से अधिक उपयोगी एक्सेल ऐड-इन्स के साथ, 30 दिनों में बिना किसी सीमा के आज़माने के लिए निःशुल्क।

संबंधित लेख:

सर्वोत्तम कार्यालय उत्पादकता उपकरण

🤖 कुटूल्स एआई सहयोगी: निम्न के आधार पर डेटा विश्लेषण में क्रांति लाएं: बुद्धिमान निष्पादन   |  कोड जनरेट करें  |  कस्टम फ़ॉर्मूले बनाएं  |  डेटा का विश्लेषण करें और चार्ट बनाएं  |  कुटूल फ़ंक्शंस का आह्वान करें...
लोकप्रिय सुविधाएँ: डुप्लिकेट ढूंढें, हाइलाइट करें या पहचानें   |  रिक्त पंक्तियाँ हटाएँ   |  डेटा खोए बिना कॉलम या सेल को संयोजित करें   |   फॉर्मूला के बिना गोल ...
सुपर लुकअप: एकाधिक मानदंड VLookup    मल्टीपल वैल्यू वीलुकअप  |   अनेक शीटों में VLookup   |   फजी लुकअप ....
उन्नत ड्रॉप-डाउन सूची: शीघ्रता से ड्रॉप डाउन सूची बनाएं   |  आश्रित ड्रॉप डाउन सूची   |  बहु-चयन ड्रॉप डाउन सूची ....
स्तम्भ प्रबंधक: कॉलमों की एक विशिष्ट संख्या जोड़ें  |  कॉलम ले जाएँ  |  छिपे हुए कॉलम की दृश्यता स्थिति टॉगल करें  |  रेंज और कॉलम की तुलना करें ...
फीचर्ड फीचर्स: ग्रिड फोकस   |  डिजाइन देखें   |   बड़ा फॉर्मूला बार    कार्यपुस्तिका एवं शीट प्रबंधक   |  संसाधन लाइब्रेरी (ऑटो टेक्स्ट)   |  खजूर बीनने वाला   |  कार्यपत्रकों को संयोजित करें   |  एन्क्रिप्ट/डिक्रिप्ट सेल    सूची के अनुसार ईमेल भेजें   |  सुपर फ़िल्टर   |   विशेष फ़िल्टर (फ़िल्टर बोल्ड/इटैलिक/स्ट्राइकथ्रू...) ...
शीर्ष 15 टूलसेट12 टेक्स्ट टूल्स (पाठ जोड़ें, अक्षर हटाएँ, ...)   |   50 + चार्ट प्रकार (गैन्ट चार्ट, ...)   |   40+ प्रैक्टिकल सूत्र (जन्मदिन के आधार पर आयु की गणना करें, ...)   |   19 निवेशन टूल्स (QR कोड डालें, पथ से चित्र सम्मिलित करें, ...)   |   12 रूपांतरण टूल्स (शब्दों को संख्याएँ, मुद्रा रूपांतरण, ...)   |   7 विलय और विभाजन टूल्स (उन्नत संयोजन पंक्तियाँ, विभाजन कोशिकाओं, ...)   |   ... और अधिक

एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है।  वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...

Description


ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Goededag,

Graag wil ik vragen waarom deze aanpak niet werkt met cellen die voorwaardelijk opgemaakt zijn!?
Alle codes die ik kan vinden geven allemaal de kleur "geen opvulling" als resultaat terug op de functies.

Hoop van jullie te horen!
This comment was minimized by the moderator on the site
I'm sorry, the site translates by itself...

I'm wondering why this doesnt work with colored cells using conditional formatting.
All programs on this page give a "blank" result, so no color at all even though the cell is colored.
If I color the cell myself instead of conditional formatting I get the right result back but i need the conditional formatting too!

Hope to hear from you!
This comment was minimized by the moderator on the site
Excelente Post, me ajudou. Parabéns
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations