वीबीए रंग सूचकांक कोड सूची
सेल के Colorindex (या बैकग्राउंड कलर) को कोड करने के लिए VBA का उपयोग करते समय यह जानना उपयोगी होता है कि कौन सा पूर्णांक किस रंग के बराबर होगा। नीचे एक संदर्भ चित्र है जो रंग दिखाता है और इसके संबंधित Colorindex को सूचीबद्ध करता है। उर्फ वीबीए रंग पैलेट
यहां अपने लिए एक बनाने के लिए कोड है, या बस इस पृष्ठ को बुकमार्क करें:
| 123456789101112131415 | उप ColorRef ()मंद x पूर्णांक के रूप मेंx = 1 से 56 . के लिएयदि x <तबसेल (x, 1)। आंतरिक। ColorIndex = xसेल (एक्स, 2) = एक्सअन्यथासेल (x - 28, 3)। आंतरिक। ColorIndex = xसेल (x - 28, 4) = xअगर अंतअगला एक्सअंत उप |
वीबीए कलरइंडेक्स उदाहरण
सेल पृष्ठभूमि रंग सेट करें
| 1 | रेंज ("ए 1")। इंटीरियर। कलरइंडेक्स = 6 |
सेल फ़ॉन्ट रंग सेट करें
| 1 | रेंज ("A1")। Font.ColorIndex = 5 |
सेल बॉर्डर कलर सेट करें
| 1 | रेंज ("ए 1")। बॉर्डर्स। कलरइंडेक्स = 5 |
सेल बैकग्राउंड कलरइंडेक्स प्राप्त करें
| 123 | डिम कोल पूर्णांक के रूप मेंcol = रेंज ("A1")। आंतरिक। ColorIndex |
सेल बैकग्राउंड कलर को दूसरे सेल के कलर में सेट करें
| 1 | रेंज ("ए 1")। इंटीरियर। कलरइंडेक्स = रेंज ("बी 1")। इंटीरियर। कलरइंडेक्स |
वीबीए रंग संपत्ति
एक्सेल / वीबीए की ColorIndex प्रॉपर्टी का उपयोग करने के बजाय, आप Color प्रॉपर्टी का उपयोग कर सकते हैं। रंग संपत्ति दो इनपुट प्रकार लेती है:
- वीबीरंग
- आरजीबी रंग
हम इन पर नीचे चर्चा करेंगे:
वीबी रंग
VB Color VBA में रंग सेट करने का सबसे आसान तरीका है। हालाँकि, यह सबसे कम लचीला भी है। vbColor का उपयोग करके रंग कोड सेट करने के लिए नीचे दी गई तालिका का उपयोग करें:
हालाँकि, जैसा कि आप तालिका से देख सकते हैं, आपके विकल्प बेहद सीमित हैं।
सेल पृष्ठभूमि रंग सेट करें
| 1 | रेंज ("A1")। आंतरिक। रंग = vbYellow |
सेल फ़ॉन्ट रंग सेट करें
| 1 | रेंज ("ए 1")। फ़ॉन्ट। रंग = वीबीब्लू |
सेल बॉर्डर कलर सेट करें
| 1 | रेंज ("ए 1")। सीमाएं। रंग = vbRed |
सेल बैकग्राउंड कलर को दूसरे सेल के कलर में सेट करें
| 1 | रेंज ("ए 1")। आंतरिक। रंग = रेंज ("बी 1")। आंतरिक। रंग |
आरजीबी रंग
RGB का मतलब रेड ग्रीन ब्लू है। ये तीन प्राथमिक रंग हैं जिन्हें किसी भी अन्य रंग का उत्पादन करने के लिए जोड़ा जा सकता है। आरजीबी के रूप में रंग दर्ज करते समय, प्रत्येक रंग कोड के लिए 0 और 255 के बीच का मान दर्ज करें।
यहाँ एक उदाहरण है:
| 1 | रेंज ("ए 1")। आंतरिक। रंग = आरजीबी (255,255,0) |
ऊपर हमने लाल = 255 (अधिकतम मान), हरा = 255 (अधिकतम मान), और नीला = 0 (न्यूनतम मान) सेट किया है। यह सेल बैकग्राउंड कलर को येलो पर सेट करता है।
इसके बजाय हम सेल फ़ॉन्ट रंग को बैंगनी पर सेट कर सकते हैं:
| 1 | रेंज ("ए 1")। आंतरिक। रंग = आरजीबी (128,0,128) |
आपके वांछित रंग के लिए आरजीबी कोड खोजने के लिए कई ऑनलाइन टूल हैं (यहां एक है)।
एक्सेस वीबीए में कलरइंडेक्स कोड सूची और आरजीबी रंग
एक्सेस डेटा प्रदर्शित करने के लिए प्रपत्रों का उपयोग करता है। आप अपने एक्सेस फॉर्म में ऑब्जेक्ट्स के बैकग्राउंड कलर और फोरग्राउंड कलर को प्रोग्रामेटिक रूप से बदलने के लिए ColorIndex कोड का उपयोग कर सकते हैं।
| 12345 | निजी उप cmdSave_Click ()'रिकॉर्ड सहेजे जाने पर सेव बटन का बैकग्राउंड कलर बदलें।DoCmd.RunCommand acCmdSaveRecordcmdSave.BackColor = vbGreenअंत उप |
