एक्सेल VBA RGB रंग
RGB को लाल हरे और नीले रंग के रूप में भी कहा जा सकता है, इस फ़ंक्शन का उपयोग रंग मान के संख्यात्मक मान को प्राप्त करने के लिए किया जाता है, इस फ़ंक्शन में तीन घटक होते हैं जिनका नाम सीमा होता है और वे लाल, नीले और हरे होते हैं अन्य रंगों को घटक माना जाता है VBA में इन तीन अलग-अलग रंगों में।
वीबीए में, प्रत्येक और प्रत्येक टुकड़े के कोडिंग के लिए सब कुछ उबलता है। उदाहरण के लिए, यदि आप वर्कशीट के कुछ हिस्से को संदर्भित करना चाहते हैं, तो हम RANGE ऑब्जेक्ट का उपयोग कर सकते हैं। यदि आप फ़ॉन्ट रंग बदलना चाहते हैं, तो हम रेंज की NAME संपत्ति का उपयोग कर सकते हैं, फिर उस फ़ॉन्ट का नाम लिखें जिसकी हमें आवश्यकता थी लेकिन इसके लिए सेल के फ़ॉन्ट या पृष्ठभूमि के रंग को बदलने की स्थिति की कल्पना करें, हम बिल्ट-इन VB रंगों का उपयोग कर सकते हैं जैसे, vbGreen, vbBlue, vbRed, आदि… लेकिन हमने विभिन्न रंगों, यानी RGB फ़ंक्शन के साथ खेलने के लिए फ़ंक्शन को समर्पित किया है।
नीचे RGB रंग फ़ंक्शन का सिंटैक्स है।
जैसा कि आप ऊपर देख सकते हैं, हम तीन तर्कों की आपूर्ति कर सकते हैं, अर्थात, लाल, हरा और नीला। ये सभी तीन पैरामीटर 0 से 255 तक पूर्णांक संख्या को स्वीकार कर सकते हैं, और इस फ़ंक्शन का परिणाम "लंबी" डेटा प्रकार होगा।
VBA RGB फ़ंक्शन का उपयोग करके सेल का रंग बदलें
उदाहरण 1
उदाहरण के लिए, हमारे पास सेल A1 से ए 8 तक संख्याएं हैं, जैसा कि नीचे की छवि में दिखाया गया है।
इस श्रेणी की कोशिकाओं के लिए, हम RGB फ़ंक्शन का उपयोग करके फ़ॉन्ट रंग को कुछ यादृच्छिक रंग में बदलने का प्रयास करेंगे।
मैक्रो प्रक्रिया पहले शुरू करें।
कोड:
उप RGB_Example1 () उप सब
सबसे पहले, हमें उन फोंट की कोशिकाओं की श्रेणी को संदर्भित करना होगा जिन्हें हम रंग बदलना चाहते हैं। इस स्थिति में, हमारी कोशिकाओं की सीमा A1 से A8 है, इसलिए RANGE ऑब्जेक्ट का उपयोग करके समान आपूर्ति करें ।
कोड:
उप RGB_Example1 () रेंज ("A1: A8") एंड सब
RANGE ऑब्जेक्ट की इंटेलीसेनस सूची देखने के लिए डॉट लगाएं। IntelliSense सूची से, हम फ़ॉन्ट का रंग बदलने की कोशिश कर रहे हैं, और इसलिए सूची से FONT गुण चुनें ।
कोड:
उप RGB_Example1 () रेंज ("A1: A8")। फॉन्ट एंड सब
एक बार इस संपत्ति में फॉंट प्रॉपर्टी चुने जाने के बाद, हम रंग बदलने की कोशिश कर रहे हैं , इसलिए फॉंट की कलर प्रॉपर्टी चुनें।
कोड:
उप RGB_Example1 () रेंज ("A1: A8")। Font.Color End Sub
बराबर साइन लगाएं और RGB फ़ंक्शन खोलें।
कोड:
उप RGB_Example1 () रेंज ("A1: A8")। Font.Color = RGB (End Sub)
RGB फ़ंक्शन के सभी तीन तर्कों के लिए 0 से 255 तक यादृच्छिक पूर्णांक संख्या दें।
कोड:
उप RGB_Example1 () रेंज ("A1: A8")। Font.Color = RGB (300, 300, 300) सब उप
ठीक है, अब कोड चलाएं और A1 से A8 तक कोशिकाओं के फ़ॉन्ट रंगों का परिणाम देखें।
आउटपुट:
इसलिए, फ़ॉन्ट के रंग काले से कुछ और बदल गए। रंग आरजीबी फ़ंक्शन को दिए गए नंबरों पर निर्भर करता है।
नीचे कुछ सामान्य रंगों को पाने के लिए RGB कलर कोड हैं।
आप विभिन्न प्रकार के रंगों को प्राप्त करने के लिए पूर्णांक संख्या संयोजन को 0 से 255 तक बदल सकते हैं।
उदाहरण # 2
उसी श्रेणी की कोशिकाओं के लिए, आइए देखें कि इन कोशिकाओं की पृष्ठभूमि का रंग कैसे बदला जाए।
सबसे पहले, RANGE ऑब्जेक्ट का उपयोग करके कोशिकाओं की श्रेणी की आपूर्ति करें ।
कोड:
उप RGB_Example2 () रेंज ("A1: A8")। अंत उप
इस बार हम उल्लिखित कोशिकाओं के बैकग्राउंड कलर को बदल रहे हैं, इसलिए बैकग्राउंड कलर को बदलने के लिए FONT प्रॉपर्टी से हमारा कोई लेना-देना नहीं है , RANGE ऑब्जेक्ट की " आंतरिक " प्रॉपर्टी चुनें।
कोड:
उप RGB_Example2 () रेंज ("A1: A8")। आंतरिक अंत उप
एक बार जब "आंतरिक" संपत्ति का चयन किया जाता है, तो इस "आंतरिक" संपत्ति के गुणों और तरीकों को देखने के लिए एक पुट डॉट।
कोड:
उप RGB_Example2 () रेंज ("A1: A8")। आंतरिक। अंत उप
चूंकि हम उल्लिखित कोशिकाओं के आंतरिक रंग को बदल रहे हैं, इसलिए " रंग " गुण चुनें।
कोड:
उप RGB_Example2 () रेंज ("A1: A8")। आंतरिक.कलर एंड सब
कक्षों की श्रेणी (A1 से A8) के आंतरिक रंग गुण सेट करने के लिए समान चिह्न और खुले RGB फ़ंक्शन।
कोड:
उप RGB_Example2 () रेंज ("A1: A8")। आंतरिक। रंग = RGB (End Sub)
जैसा आप चाहते हैं यादृच्छिक संख्या दर्ज करें।
कोड:
उप RGB_Example2 () रेंज ("A1: A8")। आंतरिक.कलर = RGB (0, 255, 255) उप
कोड चलाएं और पृष्ठभूमि का रंग देखें।
आउटपुट:
पृष्ठभूमि का रंग बदल दिया गया है।
यहाँ याद करने के लिए चीजें
- RGB का मतलब लाल, हरा और नीला है।
- इन तीन रंगों का संयोजन अलग-अलग रंग देगा।
- ये सभी तीन पैरामीटर 0 से 255 के बीच पूर्णांक मान को स्वीकार कर सकते हैं। इससे ऊपर के किसी भी नंबर को 255 पर रीसेट किया जाएगा।
