वीबीए: कॉलम में पहले एन मानों को कैसे हाइलाइट करें

आप Excel में किसी कॉलम के पहले N मानों को हाइलाइट करने के लिए VBA में निम्नलिखित सिंटैक्स का उपयोग कर सकते हैं:

 SubHighlightTopN ()

    Dim rng As Range
    Dim EntireRange As Range
    
    'specify range to use
    Set EntireRange = Range(" A2:A11 ")
    
    'highlight top 3 values in range
    For Each rng In EntireRange
        
        For i = 1 To 3
        
        If rng.Value = WorksheetFunction.Large(EntireRange, i) Then
        rng.Interior.Color = vbYellow
        End If
        Next
    
    Next rng

End Sub

यह विशेष मैक्रो A2:A11 श्रेणी में 3 उच्चतम मानों को उजागर करेगा।

ऊपरी मानों की एक अलग संख्या को उजागर करने के लिए, एक अलग ऊपरी सीमा रखने के लिए बस For i = 1 To 3 लाइन को संपादित करें।

निम्नलिखित उदाहरण दिखाता है कि व्यवहार में इस वाक्यविन्यास का उपयोग कैसे करें।

उदाहरण: वीबीए का उपयोग करके कॉलम में पहले एन मानों को हाइलाइट करें

मान लीजिए कि हमारे एक्सेल स्प्रेडशीट के कॉलम ए में निम्नलिखित मान हैं:

हम A2:A11 श्रेणी में पहले 3 सबसे बड़े मानों को हाइलाइट करने के लिए निम्नलिखित मैक्रो बना सकते हैं:

 SubHighlightTopN ()

    Dim rng As Range
    Dim EntireRange As Range
    
    'specify range to use
    Set EntireRange = Range(" A2:A11 ")
    
    'highlight top 3 values in range
    For Each rng In EntireRange
        
        For i = 1 To 3
        
        If rng.Value = WorksheetFunction.Large(EntireRange, i) Then
        rng.Interior.Color = vbYellow
        End If
        Next
    
    Next rng

End Sub

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

ध्यान दें कि कॉलम ए में 3 उच्चतम मान वाले सेल अब हाइलाइट किए गए हैं।

ध्यान दें कि आप हाइलाइटिंग के लिए उपयोग किए जाने वाले रंग के साथ-साथ हाइलाइट करने के लिए प्राथमिक मानों की संख्या भी बदल सकते हैं।

उदाहरण के लिए, हम कॉलम ए में पहले 5 मानों को हरे रंग में हाइलाइट करने के लिए निम्नलिखित मैक्रो का उपयोग कर सकते हैं:

 SubHighlightTopN ()

    Dim rng As Range
    Dim EntireRange As Range
    
    'specify range to use
    Set EntireRange = Range(" A2:A11 ")
    
    'highlight top 5 values in range
    For Each rng In EntireRange
        
        For i = 1 To 5
        
        If rng.Value = WorksheetFunction.Large(EntireRange, i) Then
        rng.Interior.Color = vbGreen
        End If
        Next
    
    Next rng

End Sub

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

ध्यान दें कि कॉलम ए में 5 उच्चतम मान वाले सेल अब हरे रंग में हाइलाइट किए गए हैं।

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

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

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