एरे से डेटा सत्यापन सूची बनाने के लिए एक्सेल VBA

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

यह ट्यूटोरियल उपयुक्त उदाहरणों और उचित दृष्टांतों के साथ बिंदु पर होगा। तो, अपने ज्ञान को समृद्ध करने के लिए पूरा लेख पढ़ें।

इस अभ्यास कार्यपुस्तिका को डाउनलोड करें।

एक्सेल में डेटा सत्यापन क्या है?

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

अब, इसे डेटा सत्यापन क्यों कहा जाता है? क्योंकि यह सुनिश्चित करता है कि केवल वैध डेटा ही सूची बनाएं।

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

Excel VBA के साथ एक सरणी से डेटा सत्यापन सूची बनाने की चरण-दर-चरण प्रक्रिया

सबसे पहले, हमारे डेटासेट पर एक नज़र डालें:

यहां, हमारे पास कुछ सेल्सपर्सन का डेटासेट है। हमारे पास उनका कार्य क्षेत्र और उत्पादों की बिक्री है। यहां, हम क्षेत्र और उत्पाद कॉलम के लिए डेटा सत्यापन सूची बनाने जा रहे हैं।

हमारी डेटा सत्यापन सूची में निम्न शामिल होंगे:

• क्षेत्र :"उत्तर", "दक्षिण", "पूर्व", "पश्चिम"
• उत्पाद :"टीवी", "फ्रिज", "मोबाइल", "लैपटॉप", "एसी"

आप पारंपरिक तरीके से एक सत्यापन सूची बना सकते हैं। लेकिन, यहां हम VBA कोड का उपयोग करेंगे। अब, वीबीए कोड में, हम उन्हें एक सरणी में रखेंगे। और उस सरणी से, हम अपने डेटा को मान्य करेंगे।

निम्नलिखित अनुभाग में, मैं चरण-दर-चरण तरीके से कोड का निर्माण करूंगा। मैं आपको सलाह देता हूं कि आप मेरे साथ अपना कोड बनाएं। इस तरह, आप कोड को बेहतर तरीके से सीखेंगे। आइए इसमें शामिल हों।

ऐरे से एक्सेल डेटा सत्यापन सूची बनाने के लिए VBA कोड बनाएं

इस खंड में, आप एक्सेल में वीबीए कोड का उपयोग करके एक सरणी से अपनी डेटा सत्यापन सूची बनाना सीखेंगे। यहां, हमारा क्षेत्र और उत्पाद कॉलम में एक ड्रॉप डाउन सूची होगी।

📌 चरण 1:VBA संपादक खोलें

• सबसे पहले, Alt+F11 दबाएं VBA संपादक खोलने के लिए अपने कीबोर्ड पर।
• फिर, सम्मिलित करें>मॉड्यूल select चुनें ।

📌 चरण 2:उप-प्रक्रिया घोषित करें

अब, निम्न कोड टाइप करें:

Sub data_validation_from_array()

End Sub

यह हमारी उपप्रक्रिया है। हम इसके अंदर सभी कोड टाइप करेंगे।

📌 चरण 3:आवश्यक चर घोषित करें

अब आवश्यक चर घोषित करने का समय आ गया है जिसका हमें आगे उपयोग करना होगा।

Sub data_validation_from_array()

Dim region, product As Variant
Dim region_range, product_range As Range

End Sub

हम अपनी सरणियों को वेरिएंट . के रूप में घोषित कर रहे हैं . इस चर में, हमारे पास कुछ तार होंगे।

क्षेत्र_श्रेणी, उत्पाद_श्रेणी: ये वेरिएबल हमारे कॉलम रीजन और प्रोडक्ट की रेंज को स्टोर करेंगे

📌 चरण 4:सरणी सेट करें

Sub data_validation_from_array()

Dim region, product As Variant
Dim region_range, product_range As Range

region = Array("North", "South", "East", "West")
product = Array("TV", "Fridge", "Mobile", "Laptop", "AC")

End Sub

जैसा कि आप देख सकते हैं, हमने क्षेत्र और उत्पाद चर में कुछ तार संग्रहीत किए हैं। हम उनका उपयोग अपनी ड्रॉप डाउन सूची बनाने के लिए करेंगे।

और पढ़ें: VBA में एक स्ट्रिंग को एक सरणी में कैसे विभाजित करें (3 तरीके)

📌 चरण 5:डेटा सत्यापन रेंज सेट करें

Sub data_validation_from_array()

Dim region, product As Variant
Dim region_range, product_range As Range

region = Array("North", "South", "East", "West")
product = Array("TV", "Fridge", "Mobile", "Laptop", "AC")

Set region_range = Range("C5:C10")
Set product_range = Range("D5:D10")

End Sub

क्षेत्र_रेंज सेट करें =रेंज(“C5:C10”) :कोड की इस पंक्ति से, हम क्षेत्र . को इंगित कर रहे हैं कॉलम।

उत्पाद_रेंज सेट करें =रेंज(“D5:D10”) :और कोड की यह पंक्ति उत्पाद . निर्दिष्ट कर रही है कॉलम।

और पढ़ें: एक्सेल वीबीए में रेंज को ऐरे में कैसे बदलें (3 तरीके)

📌 चरण 6:क्षेत्र कॉलम में डेटा सत्यापन सूची बनाएं

Sub data_validation_from_array()

Dim region, product As Variant
Dim region_range, product_range As Range

region = Array("North", "South", "East", "West")
product = Array("TV", "Fridge", "Mobile", "Laptop", "AC")

Set region_range = Range("C5:C10")
Set product_range = Range("D5:D10")

With region_range.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:=Join(region, ",")
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Error"
.InputMessage = ""
.ErrorMessage = "Please Provide a Valid Input"
.ShowInput = True
.ShowError = True
End With

End Sub

क्षेत्र_श्रेणी के साथ।सत्यापन: इस लाइन से हम क्षेत्र . के कॉलम का चयन करते हैं ।

.हटाएं: यदि कोई पूर्व-मौजूदा सत्यापन सूची है, तो वह उन्हें हटा देगी।

.जोड़ें प्रकार:=xlValidateList, AlertStyle:=xlValidAlertStop, फॉर्मूला1:=शामिल हों(क्षेत्र, ",") :हम यहां डेटा सत्यापन सूची जोड़ रहे हैं।

• अलर्ट स्टाइल यह निर्धारित करता है कि यदि उपयोगकर्ता सूची के बाहर कोई प्रविष्टि देता है तो हम किस प्रकार का अलर्ट दिखाने जा रहे हैं।
• फॉर्मूला1:=शामिल हों(क्षेत्र, ",") :सूत्र द्वारा, हम सत्यापन सूची में मान प्रदान कर रहे हैं। हमारे पास क्षेत्र . में कुछ तार थे शामिल हों . का उपयोग करके विधि, हम उन्हें एक विभाजक अल्पविराम (,) के साथ जोड़ रहे हैं। सत्यापन सूची में ये मूल्य या आइटम हमारे स्रोत होंगे।

.IgnoreBlank =True :इस लाइन से, हम रिक्त मानों की अनुमति दे रहे हैं।

.InCellDropdown =True :हम स्वीकार्य मूल्यों के साथ एक ड्रॉप डाउन सूची प्रदर्शित करेंगे।

.ErrorTitle ="त्रुटि" :हम डेटा-सत्यापन त्रुटि संवाद बॉक्स का शीर्षक सेट कर रहे हैं।

.ErrorMessage ="कृपया एक मान्य इनपुट प्रदान करें" :यह डेटा सत्यापन त्रुटि संवाद बॉक्स में एक त्रुटि संदेश सेट करेगा

.ShowInput =True: जब भी उपयोगकर्ता डेटा सत्यापन रेंज में किसी सेल पर क्लिक करता है तो यह डेटा सत्यापन इनपुट संदेश प्रदर्शित करेगा।

.ShowError =True: यदि उपयोगकर्ता कोई अमान्य इनपुट देता है तो यह त्रुटि संवाद बॉक्स दिखाएगा।

और पढ़ें: VBA एक्सेल में कॉलम से ऐरे में अद्वितीय मान प्राप्त करने के लिए (3 मानदंड)

समान रीडिंग

• VBA एक्सेल में ऐरे को स्थानांतरित करने के लिए (3 तरीके)
• एक्सेल में टेबल ऐरे को कैसे नाम दें (आसान चरणों के साथ)
• एक्सेल VBA CSV फ़ाइल को ऐरे में पढ़ने के लिए (4 आदर्श उदाहरण)
• Excel VBA:सरणी में एकाधिक मानदंडों के साथ कैसे फ़िल्टर करें (7 तरीके)

📌 चरण 7:उत्पाद कॉलम में डेटा सत्यापन सूची बनाएं

Sub data_validation_from_array()

Dim region, product As Variant
Dim region_range, product_range As Range

region = Array("North", "South", "East", "West")
product = Array("TV", "Fridge", "Mobile", "Laptop", "AC")

Set region_range = Range("C5:C10")
Set product_range = Range("D5:D10")

With region_range.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:=Join(region, ",")
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Error"
.InputMessage = ""
.ErrorMessage = "Please Provide a Valid Input"
.ShowInput = True
.ShowError = True
End With

With product_range.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:=Join(product, ",")
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Error"
.InputMessage = ""
.ErrorMessage = "Please Provide a Valid Input"
.ShowInput = True
.ShowError = True
End With

End Sub

product_range.Validation के साथ: इस लाइन से हम उत्पाद . के कॉलम का चयन करते हैं ।

.हटाएं: यदि कोई पूर्व-मौजूदा सत्यापन सूची है, तो वह उन्हें हटा देगी।

.जोड़ें प्रकार:=xlValidateList, AlertStyle:=xlValidAlertStop, फॉर्मूला1:=शामिल हों(उत्पाद, ",") :हम यहां डेटा सत्यापन सूची जोड़ रहे हैं।

• अलर्ट स्टाइल यह निर्धारित करता है कि यदि उपयोगकर्ता सूची के बाहर कोई प्रविष्टि देता है तो हम किस प्रकार का अलर्ट दिखाने जा रहे हैं।
• फॉर्मूला1:=शामिल हों(क्षेत्र, ",") :सूत्र . द्वारा , हम सत्यापन सूची में मान प्रदान कर रहे हैं। हमारे पास उत्पाद . में कुछ तार थे शामिल हों . का उपयोग करके विधि, हम उन्हें एक विभाजक अल्पविराम (,) के साथ जोड़ रहे हैं। सत्यापन सूची में ये मूल्य या आइटम हमारे स्रोत होंगे।

.IgnoreBlank =True :इस लाइन से, हम रिक्त मानों की अनुमति दे रहे हैं।

.InCellDropdown =True :हम स्वीकार्य मूल्यों के साथ एक ड्रॉप डाउन सूची प्रदर्शित करेंगे।

.ErrorTitle ="त्रुटि" :हम डेटा-सत्यापन त्रुटि संवाद बॉक्स का शीर्षक सेट कर रहे हैं।

.ErrorMessage ="कृपया एक मान्य इनपुट प्रदान करें" :यह डेटा सत्यापन त्रुटि संवाद बॉक्स में एक त्रुटि संदेश सेट करेगा

.ShowInput =True: जब भी उपयोगकर्ता डेटा सत्यापन रेंज में किसी सेल पर क्लिक करता है तो यह डेटा सत्यापन इनपुट संदेश प्रदर्शित करेगा।

.ShowError =True: यदि उपयोगकर्ता कोई अमान्य इनपुट देता है तो यह त्रुटि संवाद बॉक्स दिखाएगा।

VBA कोड चलाएँ

हमने अपना वीबीए कोड पहले ही बना लिया है। अब, यह जांचने का समय है कि कोड ठीक से काम कर रहा है या नहीं। हम इस कोड को अपनी वर्तमान शीट में चलाएंगे।

सबसे पहले, Alt+F8 press दबाएं मैक्रो डायलॉग बॉक्स खोलने के लिए अपने कीबोर्ड पर।

इसके बाद, data_validation_from_array select चुनें और चलाएं . पर क्लिक करें ।

अब, क्षेत्र . में किसी भी सेल पर क्लिक करें कॉलम।

यहां आप सेल के बगल में ड्रॉप डाउन आइकन देख सकते हैं। अब, ड्रॉप डाउन आइकन पर क्लिक करें।

यहां, आप सत्यापन सूची में सभी मान देख सकते हैं। हमने यह मान अपने क्षेत्र . में दिया है सरणी। अब, प्रत्येक सेल के लिए डेटा चुनें।

आइए देखें उत्पाद कॉलम। उत्पाद . में किसी भी सेल पर क्लिक करें कॉलम।

हमें यहां एक ड्रॉप डाउन आइकन भी मिला है। अब, ड्रॉप डाउन पर क्लिक करें।

जैसा कि आप देख सकते हैं, हमारे द्वारा उत्पाद . में दिए गए सभी मान हमारे वीबीए कोड में सरणी यहां दिखाई गई है। इसलिए, हमने एक सरणी से सत्यापन सूची बनाने के लिए एक्सेल में वीबीए कोड का सफलतापूर्वक उपयोग किया।

अब, एक मान देते हैं जो हमारे दिए गए सरणी में नहीं है। हम उत्पाद "हेडफ़ोन . के साथ प्रयास कर रहे हैं .

अब, Enter press दबाएं . उसके बाद आप निम्नलिखित देखेंगे:

जैसा कि आप देख सकते हैं, यह एक त्रुटि संवाद बॉक्स प्रदर्शित कर रहा है। हमने अपने वीबीए कोड में पहले से ही त्रुटि शीर्षक और त्रुटि संदेश सेट कर दिया है और यह बिल्कुल वैसा ही दिखा रहा है।

और पढ़ें: एक्सेल में एकाधिक चयन के साथ डेटा सत्यापन ड्रॉप-डाउन सूची बनाएं

💬 याद रखने योग्य बातें

आप डेटा सत्यापन के साथ किसी भी सेल की प्रतिलिपि बना सकते हैं और इसे अन्य कक्षों में पेस्ट कर सकते हैं। परिणामी कोशिकाओं में समान डेटा सत्यापन सूची होगी।

यह एक गतिशील सरणी नहीं है। यदि आप अपनी डेटा सत्यापन सूची का विस्तार करना चाहते हैं, तो बस उन्हें सरणियों में एक स्ट्रिंग के रूप में जोड़ें। यह ठीक रहेगा।

निष्कर्ष

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

हमारी वेबसाइट को देखना न भूलें Exceldemy.com एक्सेल से संबंधित विभिन्न समस्याओं और समाधानों के लिए।

नए तरीके सीखते रहें और बढ़ते रहें!

संबंधित लेख

• एक्सेल में डेटा सत्यापन फॉर्मूला में IF स्टेटमेंट का उपयोग कैसे करें (6 तरीके)
• एक्सेल में VBA के साथ डेटा सत्यापन सूची के लिए नामांकित श्रेणी का उपयोग करें
• Excel VBA में 2D Array को ReDim कैसे सुरक्षित करें (2 आसान तरीके)
• Excel VBA:एक सरणी से डुप्लिकेट निकालें (2 उदाहरण)
• वीबीए (मैक्रो, यूडीएफ, और यूजरफॉर्म) के साथ एक सरणी के औसत की गणना करें