कोड या प्रोग्राम डेटा सत्यापन सूची - VBA कोड उदाहरण

विषय - सूची

यह ट्यूटोरियल प्रदर्शित करेगा कि वीबीए का उपयोग करके एक्सेल में ड्रॉप-डाउन सूचियों के साथ काम करने के लिए डेटा सत्यापन का उपयोग कैसे करें।

एक्सेल डेटा सत्यापन आपको यह सीमित करने की अनुमति देता है कि किसी सेल या श्रेणी में कौन से मान दर्ज किए जा सकते हैं। आप प्रविष्टियों को धनात्मक पूर्णांकों, पाठ्य, दिनांकों और बहुत कुछ तक सीमित कर सकते हैं। इस ट्यूटोरियल में, हम यह देखने जा रहे हैं कि VBA का उपयोग करके सेल में डेटा वैलिडेशन ड्रॉप-डाउन लिस्ट कैसे बनाई जाती है।

नोट: डेटा सत्यापन ड्रॉप-डाउन सूची का एक विकल्प एक लिस्टबॉक्स ऑब्जेक्ट है। लिस्टबॉक्स को एक्सेल वर्कशीट में जोड़ा जा सकता है। लिस्टबॉक्स मैक्रोज़ को ट्रिगर कर सकते हैं जो हर बार लिस्टबॉक्स मान बदलते हैं। लिस्टबॉक्स का उपयोग वीबीए यूजरफॉर्म में भी किया जाता है।

VBA का उपयोग करके ड्रॉप डाउन सूची बनाना

हमारे पास सेल A1 में फल टेक्स्ट है, और हम सेल A2 में पांच प्रविष्टियों के साथ एक ड्रॉप डाउन सूची बनाने जा रहे हैं।

हम Validation.Add विधि का उपयोग करेंगे और निर्दिष्ट करेंगे कि टाइप पैरामीटर xlValidateList है। आप फॉर्मूला 1 पैरामीटर का उपयोग करके अपनी सूची में विशिष्ट आइटम जोड़ सकते हैं।

निम्न कोड सेल A2 में डेटा सत्यापन ड्रॉप डाउन सूची बनाएगा:

123456 उप ड्रॉपडाउन लिस्टिन वीबीए ()रेंज ("ए 2")। सत्यापन। प्रकार जोड़ें: = xlValidateList, अलर्ट स्टाइल: = xlValidAlertStop, _फॉर्मूला 1: = "नारंगी, सेब, आम, नाशपाती, आड़ू"अंत उप

परिणाम है:

VBA में एक नामांकित श्रेणी से ड्रॉप डाउन सूची को पॉप्युलेट करें

वीबीए में ड्रॉप डाउन सूची को पॉप्युलेट करने के लिए आप आइटम युक्त नामित श्रेणी का उपयोग कर सकते हैं। हमारे पास नामित श्रेणी के जानवर नीचे दिखाए गए हैं:

हमें फॉर्मूला1 पैरामीटर को नामित रेंज के बराबर सेट करना होगा। निम्नलिखित कोड नामित श्रेणी में आइटम के आधार पर सेल ए 7 में डेटा सत्यापन ड्रॉप डाउन सूची तैयार करेगा:

123456 उप PopulateFromANamedRange ()रेंज ("ए 7")। सत्यापन। प्रकार जोड़ें: = xlValidateList, अलर्ट स्टाइल: = xlValidAlertStop, _सूत्र1:="=पशु"अंत उप

परिणाम है:

ड्रॉप डाउन सूची को हटाना

आप सेल से ड्रॉप डाउन सूची को हटाने के लिए Validation.Delete विधि का उपयोग कर सकते हैं। निम्नलिखित कोड ऊपर के उदाहरण में सेल A7 से ड्रॉप डाउन सूची को हटा देगा:

12345 उप निकालेंड्रॉपडाउन सूची ()रेंज ("ए 7")। सत्यापन। हटाएंअंत उप
wave wave wave wave wave