वीबीए कॉलम में मूल्य खोजें

यह आलेख प्रदर्शित करेगा कि कॉलम में मान खोजने के लिए वीबीए का उपयोग कैसे करें।

हम रेंज का उपयोग कर सकते हैं। निर्दिष्ट मानदंडों से मेल खाने वाली श्रेणी में सभी कोशिकाओं को खोजने के लिए वीबीए में मानों के कॉलम के माध्यम से लूप को ढूंढें।

रेंज के साथ एक कॉलम के माध्यम से लूपिंग। ढूंढें और रेंज। अगला खोजें

नीचे दिए गए उदाहरण में, हम कॉलम में डेटा के माध्यम से लूप कर रहे हैं, और "ओवरड्यू" शब्द की तलाश कर रहे हैं। जब उसे शब्द मिल जाता है, तो वह सेल टेक्स्ट के रंग को लाल रंग में बदलकर सेल को चिह्नित कर देगा। यह तब हमें अगले सेल पर जाने के लिए रेंज.फाइंडनेक्स्ट विधि देगा और शब्द की तलाश जारी रखेगा, कोशिकाओं की निर्दिष्ट श्रेणी के अंत तक लूप जारी रखेगा।

1234567891011121314151617

उप फाइंडलूप ()स्ट्रिंग के रूप में मंद strFirstAddressरेंज के रूप में मंद rngFindValueरेंज के रूप में मंद rngखोजमंद रंग रेंज के रूप में खोजेंसेट rngFind = ActiveSheet.Range("F1:F17")सेट rngSearch = rngFind.Cells(rngFind.Cells.Count)सेट rngFindValue = rngFind.Find ("ओवरड्यू", rngSearch, xlValues)अगर नहीं rngFindValue तो कुछ भी नहीं हैstrFirstAddress = rngFindValue.AddressrngFindValue.Font.Color = vbRedकरनासेट rngFindValue = rngFind.FindNext(rngFindValue)rngFindValue.Font.Color = vbRedलूप तक rngFindValue.Address = strFirstAddressअगर अंतअंत उप

जब कोड चलता है, तो यह पहले सेल का पता सहेजता है जहां डेटा चर में पाया जाता है strफर्स्टपता और टेक्स्ट का रंग बदलकर लाल कर देता है। फिर अगले सेल को खोजने के लिए एक लूप बनाया जाता है जिसमें आवश्यक डेटा होता है। जब मान मिल जाता है, तो टेक्स्ट का रंग बदलकर लाल कर दिया जाता है और फिर उस सेल का पता जहां मान पाया जाता है, स्ट्रिंग से तुलना की जाती है स्ट्रफर्स्टपता. यदि ये समान नहीं हैं, तो "ओवरड्यू" शब्द के प्रत्येक उदाहरण को ढूंढते हुए, लूप जारी रहता है। एक बार जब लूप कक्षों की श्रेणी (अर्थात F17) के अंत तक पहुँच जाता है, तो यह श्रेणी (F1) की शुरुआत में वापस शुरू हो जाएगा और लूप करना जारी रखेगा। एक बार जब यह दूसरी बार सेल एड्रेस F3 पर पहुंच जाता है, क्योंकि यह स्टोर किए गए वेरिएबल के समान होता है स्ट्रफर्स्टपता, लूप बंद हो जाएगा।