वीबीए में सेल्स को हाइलाइट कैसे करें: उदाहरणों के साथ

आप कक्षों को हाइलाइट करने के लिए VBA में निम्नलिखित विधियों का उपयोग कर सकते हैं:

विधि 1: सक्रिय सेल को हाइलाइट करें

 SubHighlightActiveCell ()
ActiveCell.Interior.Color = vbYellow
End Sub

यह विशेष मैक्रो वर्तमान में सक्रिय सेल को पीले रंग की पृष्ठभूमि के साथ हाइलाइट करेगा।

विधि 2: सेल रेंज को हाइलाइट करें

 SubHighlightRange ()
Range(" B2:B10 ").Interior.Color = vbYellow
End Sub

यह विशेष मैक्रो पीले रंग की पृष्ठभूमि के साथ B2:B10 श्रेणी में प्रत्येक सेल को हाइलाइट करेगा।

विधि 3: मानदंड के आधार पर सेल रेंज को हाइलाइट करें

 SubHighlightRangeBasedOnCriteria ()

  Dim rng As Range
  
  For Each rng In Range(" B2:B10 ")
  
      If rng.Value > 20 Then
        rng.Interior.Color = vbYellow
      End If
      
  Next rng
  
End Sub

यह विशेष मैक्रो B2:B10 श्रेणी के प्रत्येक सेल को हाइलाइट करेगा जिसका मान 20 से अधिक है।

निम्नलिखित उदाहरण दिखाते हैं कि एक्सेल में निम्नलिखित डेटा सेट के साथ व्यवहार में प्रत्येक विधि का उपयोग कैसे करें:

उदाहरण 1: सक्रिय सेल को हाइलाइट करें

मान लें कि सेल B3 वर्तमान में चयनित है।

हम इस सक्रिय सेल को हाइलाइट करने के लिए निम्नलिखित मैक्रो बना सकते हैं:

 SubHighlightActiveCell ()
ActiveCell.Interior.Color = vbYellow
End Sub

जब हम इस मैक्रो को चलाते हैं, तो हमें निम्नलिखित आउटपुट प्राप्त होता है:

ध्यान दें कि सेल B3 हाइलाइट हो गया है और अन्य सभी सेल अछूते रह गए हैं।

उदाहरण 2: कक्षों की श्रेणी को हाइलाइट करें

मान लीजिए कि हम B2:B10 श्रेणी में प्रत्येक सेल को हाइलाइट करना चाहते हैं।

ऐसा करने के लिए हम निम्नलिखित मैक्रो बना सकते हैं:

 SubHighlightRange ()
Range(" B2:B10 ").Interior.Color = vbYellow
End Sub

जब हम इस मैक्रो को चलाते हैं, तो हमें निम्नलिखित आउटपुट प्राप्त होता है:

ध्यान दें कि श्रेणी B2:B10 में प्रत्येक कोशिका को हाइलाइट किया गया है और अन्य सभी कोशिकाएँ अछूती रहती हैं।

उदाहरण 3: मानदंडों के आधार पर कोशिकाओं की एक श्रृंखला को हाइलाइट करें

मान लीजिए कि हम B2:B10 श्रेणी के प्रत्येक सेल को हाइलाइट करना चाहते हैं जिसका मान 20 से अधिक है।

ऐसा करने के लिए हम निम्नलिखित मैक्रो बना सकते हैं:

 SubHighlightRangeBasedOnCriteria ()

  Dim rng As Range
  
  For Each rng In Range(" B2:B10 ")
  
      If rng.Value > 20 Then
        rng.Interior.Color = vbYellow
      End If
      
  Next rng
  
End Sub

जब हम इस मैक्रो को चलाते हैं, तो हमें निम्नलिखित आउटपुट प्राप्त होता है:

ध्यान दें कि श्रेणी B2:B10 में 20 से अधिक मान वाली प्रत्येक कोशिका को हाइलाइट किया गया है और अन्य सभी कोशिकाएँ अछूती रहती हैं।

अतिरिक्त संसाधन

निम्नलिखित ट्यूटोरियल बताते हैं कि वीबीए में अन्य सामान्य कार्य कैसे करें:

वीबीए: कोशिकाओं पर सशर्त स्वरूपण कैसे लागू करें
वीबीए: डुप्लिकेट मानों पर सशर्त स्वरूपण कैसे लागू करें
वीबीए: किसी कॉलम में मान कैसे ज्ञात करें