वीबीए: किसी कॉलम में मान कैसे खोजें (उदाहरण के साथ)

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

 Sub FindValue()

Dim rng As Range
Dim cell As Range
Dim findString As String

'specify range to look in
Set rng = ActiveSheet.Columns(" A:A ")

'specify string to look for
findString = " Rockets "

'find cell with string
Set cell = rng.Find(What:=findString, LookIn:=xlFormulas, _
                    LookAt:=xlWhole, MatchCase:=False)

If cell Is Nothing Then
    cell.Font.Color = vbBlack
Else
    cell.Font.Color = vbRed
    cell.Font.Bold = True
End If

End Sub

यह विशेष मैक्रो स्ट्रिंग “रॉकेट्स” के लिए वर्तमान में सक्रिय शीट के पूरे कॉलम ए को खोजेगा और, यदि पाया जाता है, तो सेल के फ़ॉन्ट रंग को लाल में बदल देगा और फ़ॉन्ट को बोल्ड कर देगा।

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

उदाहरण: वीबीए का उपयोग करके कॉलम में मान कैसे खोजें

मान लीजिए कि हमारे पास निम्नलिखित डेटासेट है जिसमें विभिन्न बास्केटबॉल खिलाड़ियों के बारे में जानकारी है:

मान लीजिए कि हम कॉलम ए में टीम का नाम “रॉकेट्स” ढूंढना चाहते हैं, और एक बार मिल जाने पर, सेल के फ़ॉन्ट रंग को लाल में बदल दें और फ़ॉन्ट को बोल्ड कर दें।

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

 Sub FindValues()

Dim rng As Range
Dim cell As Range
Dim findString As String

'specify range to look in
Set rng = ActiveSheet.Columns(" A:A ")

'specify string to look for
findString = " Rockets "

'find cell with string
Set cell = rng.Find(What:=findString, LookIn:=xlFormulas, _
                    LookAt:=xlWhole, MatchCase:=False)

If cell Is Nothing Then
    cell.Font.Color = vbBlack
Else
    cell.Font.Color = vbRed
    cell.Font.Bold = True
End If

End Sub

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

ध्यान दें कि “रॉकेट्स” स्ट्रिंग वाले सेल का फ़ॉन्ट अब लाल और बोल्ड है।

अन्य सभी कोशिकाओं ने बस अपना काला फ़ॉन्ट रखा।

ध्यान दें कि कोड में MatchCase:=False तर्क VBA को केस-असंवेदनशील खोज करने के लिए कहता है।

इसलिए यदि कॉलम ए में टीम का नाम “रॉकेट्स” था, तो मैक्रो हमेशा उस स्ट्रिंग को ढूंढेगा और फ़ॉन्ट को लाल और बोल्ड बना देगा।

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

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

वीबीए: AVERAGEIF और AVERAGEIFS फ़ंक्शन कैसे लिखें
वीबीए: SUMIF और SUMIFS फ़ंक्शन कैसे लिखें
VBA: COUNTIF और COUNTIFS फ़ंक्शंस कैसे लिखें