एक्सेल VBA फ़ॉन्ट रंग
VBA फ़ॉन्ट रंग गुण का उपयोग vba कोड का उपयोग करके एक्सेल कोशिकाओं के फ़ॉन्ट रंग को बदलने के लिए किया जाता है। हम आरजीबी फ़ंक्शन के साथ रंग सूचकांक, रंग संपत्ति का उपयोग करके फ़ॉन्ट के रंग को कई तरीकों से बदल सकते हैं।
जब मैं एक्सेल में एक डैशबोर्ड तैयार करता हूं, तो आमतौर पर मैं काफी समय फॉर्मेटिंग सेल, फोंट आदि में खर्च करता हूं। अक्सर मैं एक्सेल फॉर्मेटिंग के विभिन्न रंगों को देखकर एक्सेल ब्यूटीशियन की तरह महसूस करता हूं। एक्सेल वर्कशीट में फ़ॉन्ट रंग बदलना एक आसान काम है, लेकिन जब एक्सेल की बात आती है, तो आपको फ़ॉन्ट रंग बदलने के लिए VBA कोड लिखने के तरीकों को जानना चाहिए।
फ़ॉन्ट रंग बदलने के लिए, सबसे पहले, हमें यह पहचानने की आवश्यकता है कि हम कौन सी कोशिकाएं बदलने जा रहे हैं।
रेंज ("A1: A10")
फिर हमें फॉंट प्रॉपर्टी का चयन करना होगा।
रेंज ("A1: A10")। फॉन्ट
फिर हम इस फ़ॉन्ट के साथ क्या करना चाहते हैं, इसलिए रंग चुनें?
रेंज ("A1: A10")। Font.Color
इस तरह, हमें फ़ॉन्ट रंग बदलने के लिए कोड का निर्माण करने की आवश्यकता है। यह मुश्किल लग रहा है, है ना?
लेकिन याद रखें, शुरुआत में सब कुछ कठिन लग रहा है, बाद में आप इसे लटका पाएंगे।
VBA का उपयोग करके फ़ॉन्ट रंग कैसे बदलें?
उदाहरण # 1 - रंग सूचकांक का उपयोग करना
कलर इंडेक्स प्रॉपर्टी VBA में कलर प्रॉपर्टी से अलग होती है। संख्यात्मक मानों का उपयोग करके, हम कोशिकाओं, फोंट का रंग बदल सकते हैं।
संख्या 1 से 56 तक है, और प्रत्येक संख्या अलग-अलग रंगों का प्रतिनिधित्व करती है। नीचे संख्या और उनके रंगों की सूची दी गई है।
ठीक है, यह बाहर का परीक्षण करने देता है।
सेल A1 में मेरा मान है।
मैं सेल A1 फ़ॉन्ट का रंग बदलकर हरा करना चाहता हूं। नीचे कोड है।
कोड:
उप FontColor_Example1 () रेंज ("A1")। Font.ColorIndex = 10 समाप्ति उप
यह सेल A1 फ़ॉन्ट का रंग बदलकर हरा कर देगा।
फॉन्ट का रंग बदलने के लिए हम CELLS प्रॉपर्टी का भी इस्तेमाल कर सकते हैं।
कोड:
उप FontColor_Example1 () कक्ष (1, 1) .Font.ColorIndex = 10 समाप्ति उप
इस तरह, हम फ़ॉन्ट में वांछित रंग लागू करने के लिए 1 से 56 तक संख्याओं का उपयोग कर सकते हैं।
उदाहरण # 2 - रंग संपत्ति का उपयोग करना
कलर इंडेक्स में 1 से 56 तक बहुत सीमित रंग हैं, लेकिन रंग संपत्ति का उपयोग करके, हम 8 बिल्ट-इन रंगों vbBlack, vbRed, vbGreen, vbBlue, vbYellow, vbMelenta, vbCyan, vbWhite का उपयोग कर सकते हैं ।
इन रंगों के लिए, हमें किसी संख्या की आपूर्ति करने की आवश्यकता नहीं है। बल्कि हम केवल उनके नाम का उपयोग करके उन्हें एक्सेस कर सकते हैं जैसा कि ऊपर दिखाया गया है। नीचे सभी 8 रंगों के लिए उदाहरण कोड दिया गया है।
कोड:
उप vbBlack_Example () रेंज ("A1")। Font.Color = vbBackack उप सब
कोड:
उप vbRed_Example () रेंज ("A1")। Font.Color = vbRed समाप्ति उप
कोड:
उप vbGreen_Example () रेंज ("A1")। Font.Color = vbGreen समाप्ति उप
कोड:
उप vbBlue_Example () रेंज ("A1")। Font.Color = vbBlue समाप्ति उप
कोड:
उप vbYellow_Example () रेंज ("A1")। Font.Color = vbYellow समाप्ति उप
कोड:
उप vbMagenta_Example () रेंज ("A1")। Font.Color = vbMagenta समाप्ति उप
कोड:
उप vbCyan_Example () रेंज ("A1")। Font.Color = vbCyan अंत उप
कोड:
उप vbWhite_Example () रेंज ("A1")। Font.Color = vbWhite समाप्ति उप
उदाहरण # 3 - आरजीबी फ़ंक्शन के साथ रंग संपत्ति का उपयोग करना
जैसा कि हमने देखा है, हमारे पास काम करने के लिए केवल 8 अंतर्निहित रंग हैं। लेकिन रंगों की एक विस्तृत विविधता के लिए, हमें आरजीबी नामक फ़ंक्शन का उपयोग करने की आवश्यकता है। अंतर्निहित रंगों के अलावा, हम VBA RGB फ़ंक्शन का उपयोग करके अपने रंग बना सकते हैं।
RGB फ़ंक्शन के सिंटैक्स को देखें।
RGB (लाल, हरा, नीला)
RGB का अर्थ "लाल, हरा और नीला" है। रंगों के निर्माण के लिए, हमें प्रत्येक रंग के लिए 0 से 255 तक संख्याओं की आपूर्ति करने की आवश्यकता है।
नीचे आपके लिए कुछ उदाहरण दिए गए हैं।
नीचे मैक्रो कोड के कुछ उदाहरण दिए गए हैं
कोड:
उप RGB_Example () श्रेणी ("A1")। Font.Color = RGB (0, 0, 0) 'फ़ॉन्ट का रंग बदलकर काला करें
कोड:
उप RGB_Example () रेंज ("A1")। Font.Color = RGB (16, 185, 199) 'फ़ॉन्ट रंग इस अंतिम उप होगा
कोड:
उप RGB_Example () रेंज ("A1")। Font.Color = RGB (106, 15, 19) 'फ़ॉन्ट रंग इस अंतिम उप होगा
कोड:
उप RGB_Example () श्रेणी ("A1")। Font.Color = RGB (216, 55, 19) 'फ़ॉन्ट रंग इस अंतिम उप होगा
