यह ट्यूटोरियल प्रदर्शित करेगा कि सेल या सेल की श्रेणी को हाइलाइट करने के लिए वीबीए का उपयोग कैसे करें।
सशर्त स्वरूपण Excel में कक्षों को हाइलाइट करने का एक तरीका है। हम सेल हाइलाइटिंग करने के लिए वीबीए का भी उपयोग कर सकते हैं।
सेल हाइलाइट करें
वीबीए में एक सेल को हाइलाइट करने के लिए, हम नीचे दिखाए गए सरल प्रक्रिया का उपयोग कर सकते हैं।
| 123 | उप हाइलाइटसेल ()ActiveCell.Interior.Color = vbRedअंत उप |
कक्षों की श्रेणी को हाइलाइट करें
इसी तरह, हम सेल की रेंज का चयन कर सकते हैं, और रेंज में सभी सेल को हाइलाइट कर सकते हैं।
| 1234 | उप हाइलाइटरेंज ()रेंज ("ए 1: ए 10")। चुनें:चयन। आंतरिक। रंग = vbRedअंत उप |
सेल वैल्यू के आधार पर सेल हाइलाइट करें
एक सेल को हाइलाइट करने के लिए एक शर्त में जोड़ने के लिए, हम सेल को हाइलाइट करने के लिए एक IF स्टेटमेंट का उपयोग कर सकते हैं यदि सेल का मान एक निश्चित मान से ऊपर है, इस मामले में 10 से अधिक है।
| 12345 | उप हाइलाइट सेल_1अगर ActiveCell.Value> 10 तोActiveCell.Interior.Color = vbRedअगर अंतअंत उप |
सेल वैल्यू के आधार पर सेल की रेंज को हाइलाइट करें
कक्षों की श्रेणी में मानों की जांच करने के लिए, हमें प्रत्येक सेल के माध्यम से लूप करना होगा, इसका मान स्थापित करना होगा और फिर तदनुसार सेल को हाइलाइट करना होगा। नीचे दिए गए उदाहरण में, हम पहले यह स्थापित करेंगे कि श्रेणी में रखा गया मान एक संख्या है, और फिर यह देखने के लिए परीक्षण करें कि क्या वह संख्या 10 से अधिक है।
| 12345678910 | उप हाइलाइटरेंजऑफसेल्स ()रेंज के रूप में मंद rngरेंज में प्रत्येक आरएनजी के लिए ("ए 1: ए 10")यदि संख्यात्मक (rng.Value) है तोअगर rng.Value> 10 तबआरएनजी। आंतरिक। रंग = vbRedअगर अंतअगर अंतअगला रंगअंत उप |
सशर्त स्वरूपण के साथ एक सेल को हाइलाइट करें
हम सेल को हाइलाइट करने के लिए सेल में सशर्त स्वरूपण लागू करने के लिए वीबीए का भी उपयोग कर सकते हैं। नीचे दिए गए उदाहरण में, श्रेणी के प्रत्येक सेल पर सशर्त स्वरूपण लागू किया जाएगा। जैसा कि ऊपर के उदाहरण में, हम पहले परीक्षण करते हैं कि सेल में एक संख्यात्मक मान है, और फिर सशर्त स्वरूपण लागू करें।
| 12345678910 | उप सेट सशर्त स्वरूपण ()रेंज के रूप में मंद rngरेंज में प्रत्येक आरएनजी के लिए ("ए 1: ए 10")यदि संख्यात्मक (rng.Value) है तोrng.FormatConditions.Add Type:=xlCellValue, ऑपरेटर:=xlग्रेटर, फॉर्मूला1:="=10"rng.FormatConditions(1).Interior.Color = vbRedrng.FormatConditions(1).StopIfTrue = Falseअगर अंतअगला रंगअंत उप |
चयन में परिवर्तन होने पर सेल को हाइलाइट करें
वर्कशीट_चेंज इवेंट का उपयोग करके सेल पॉइंटर को वर्तमान वर्कशीट में ले जाने पर हम सेल की हाइलाइटिंग को गतिशील बना सकते हैं। नीचे दिए गए उदाहरण में, शीट में सभी हाइलाइटिंग हटा दी जाएंगी (सशर्त स्वरूपण द्वारा किए गए को छोड़कर), और सक्रिय सेल को लाल रंग में हाइलाइट किया जाएगा (ColorIndex = 3)।
| 1234 | निजी उप कार्यपत्रक_चयन परिवर्तन (ByVal लक्ष्य सीमा के रूप में)ActiveSheet.Cells.Interior.ColorIndex = xlColorIndexNoneलक्ष्य। आंतरिक। रंग सूचकांक = 3अंत उप |
