मल्टीपल सिलेक्शन सपोर्ट करने वाली एक्सेल डेटा वैलिडेशन ड्रॉप-डाउन सूची बनाएं

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

आप यहां से अभ्यास वर्कबुक डाउनलोड कर सकते हैं।

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

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

1. सिंगल सेल में मल्टीपल सिलेक्शन के लिए एक्सेल डेटा वैलिडेशन ड्रॉप-डाउन सूची बनाएं

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

तो, आइए इस क्रिया को करने के चरण देखें।

चरण:

• सबसे पहले, सेल रेंज (D4:D8) चुनें। नाम रेंज 'dv_list_0' सेट करें।

• दूसरे, सेल रेंज (B5:B8) चुनें और नाम रेंज 'Country_Range' सेट करें।

• तीसरे, डेटा > डेटा टूल्स > डेटा वैलिडेशन > डेटा वैलिडेशन पर जाएं।

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

• ओके पर क्लिक करें।

• तो, चयनित सेल के दाईं ओर एक ड्रॉप-डाउन आइकन दिखाई देगा।

• फिर, सक्रिय शीट के शीट नाम पर राइट-क्लिक करें। 'व्यू कोड' विकल्प चुनें।

• उपरोक्त कमांड एक खाली VBA खोलेगा। उस मॉड्यूल में निम्नलिखित कोड डालें:

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim Value_Old As String Dim Value_New As String If Target.Count > 1 Then Exit Sub If Target.Value = "" Then Exit Sub If Not Intersect(Target, ActiveSheet.Range("Country_Range")) Is Nothing Then Application.EnableEvents = False Value_New = Target.Value On Error Resume Next Application.Undo On Error GoTo 0 Value_Old = Target.Value If InStr(Value_Old, Value_New) Then If InStr(Value_Old, ",") Then If InStr(Value_Old, ", " & Value_New) Then Target.Value = Replace(Value_Old, ", " & Value_New, "") Else Target.Value = Replace(Value_Old, Value_New & ", ", "") End If Else Target.Value = "" End If Else If Value_Old = "" Then Target.Value = Value_New Else If Value_New = "" Then Target.Value = "" Else If InStr(Target.Value, Value_New) = 0 Then Target.Value = Value_Old & ", " & Value_New End If End If End If End If Application.EnableEvents = True Else Exit Sub End If End Sub

• कोड चलाने के लिए रन बटन पर क्लिक करें या F5 कुंजी दबाएं।

• अब, हम मैक्रो को एक नाम देंगे और रन पर क्लिक करेंगे। इस उदाहरण के लिए मैक्रो का नाम VBA है।

• उसके बाद, सेल B5 के ड्रॉप-डाउन मेनू से यूएसए चुनें। यह सेल B5 में देश का नाम यूएसए इनपुट करेगा।

• अंत में, ड्रॉप-डाउन से कनाडा और मेक्सिको भी चुनें। हम देख सकते हैं कि ड्रॉप-डाउन मेनू के सभी मान एक सेल में चुने गए हैं।

और पढ़ें: डेटा वैलिडेशन के लिए एक्सेल ड्रॉप डाउन सूची कैसे बनाएं (8 तरीके)

2. एक्सेल डेटा वैलिडेशन ड्रॉप-डाउन सूची बनाकर मल्टीपल सिलेक्शन को आसन्न कॉलम में डालें

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

तो, आइए इस उदाहरण को हल करने के चरणों पर एक नज़र डालें।

चरण:

• पहले, सेल D5 चुनें। पिछली विधि की तरह एक डेटा वैलिडेशन ड्रॉप-डाउन बनाएं। वैलिडेशन के लिए स्रोत मान के रूप में रेंज (B5:B8) का उपयोग करें।

• अगला, सक्रिय शीट नाम पर राइट-क्लिक करें और विकल्प 'व्यू कोड' चुनें।

• एक नया खाली VBA मॉड्यूल खुलेगा। उस खाली मॉड्यूल में निम्नलिखित कोड लिखें:

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo exitHandler Dim DV_Range As Range Dim Col_i As Integer If Target.Count > 1 Then GoTo exitHandler On Error Resume Next Set DV_Range = Cells.SpecialCells(xlCellTypeAllValidation) On Error GoTo exitHandler If DV_Range Is Nothing Then GoTo exitHandler If Intersect(Target, DV_Range) Is Nothing Then Else Application.EnableEvents = False If Target.Column = 4 Then If Target.Value = "" Then GoTo exitHandler If Target.Validation.Value = True Then Col_i = Cells(Target.Row, Columns.Count).End(xlToLeft).Column + 1 Cells(Target.Row, Col_i).Value = Target.Value Else MsgBox "Invalid entry" Target.Activate End If End If End If exitHandler: Application.EnableEvents = True End Sub

• कोड चलाने के लिए F5 कुंजी दबाएं या रन आइकन पर क्लिक करें।

• फिर, एक नया डायलॉग बॉक्स नामक मैक्रो। VBA1 नाम का एक मैक्रो बनाएं और रन पर क्लिक करें।

• उसके बाद, सेल D5 के ड्रॉप-डाउन आइकन से यूएसए नाम का देश चुनें।

• उपरोक्त कमांड आसन्न कॉलम E में सेल E5 में देश का नाम यूएसए इनपुट करता है।

• अंत में, कनाडा और मेक्सिको चुनें। हम देख सकते हैं कि चयनित मान संबंधित आसन्न कॉलम में जगह लेते हैं।

और पढ़ें: एक्सेल VBA के साथ डेटा वैलिडेशन सूची में डिफ़ॉल्ट मान (मैक्रो और यूजरफॉर्म)

समान पठन:

• ऑटोकंप्लीट डेटा वैलिडेशन ड्रॉप डाउन सूची एक्सेल में (2 विधियां)
• एक्सेल में टेबल से डेटा वैलिडेशन सूची कैसे बनाएं (3 विधियां)
• एक्सेल में एक सेल में मल्टीपल डेटा वैलिडेशन लागू करें (3 उदाहरण)
• एक्सेल में डेटा वैलिडेशन सूची से ब्लैंक कैसे हटाएं (5 विधियां)
• एक्सेल डेटा वैलिडेशन केवल अल्फान्यूमेरिक (कस्टम फॉर्मूला का उपयोग करके)

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

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

तो, आइए इस क्रिया को करने के चरणों से गुजरें।

चरण:

• शुरुआत में, सेल D5 चुनें। पिछली प्रक्रिया की तरह, एक डेटा वैलिडेशन ड्रॉप-डाउन बनाएं। स्रोत मान के रूप में रेंज (B5:B8) का उपयोग करके मान्य करें।

• अगला, सक्रिय शीट पर राइट-क्लिक करें। उपलब्ध विकल्पों से 'व्यू कोड' चुनें।

• उपरोक्त क्रिया एक खाली VBA खोलती है। उस मॉड्यूल में निम्नलिखित कोड डालें:

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo exitHandler Dim DV_Range As Range Dim Row_1 As Long Dim Col_1 As Long Col_1 = Target.Column If Target.Count > 1 Then GoTo exitHandler On Error Resume Next Set DV_Range = Cells.SpecialCells(xlCellTypeAllValidation) On Error GoTo exitHandler If DV_Range Is Nothing Then GoTo exitHandler If Intersect(Target, DV_Range) Is Nothing Then Else If Target.Value = "" Then GoTo exitHandler Application.EnableEvents = False Select Case Target.Column Case 4 If Target.Offset(0, 1).Value = "" Then Row_1 = Target.Row Else Row_1 = Cells(Rows.Count, Col_1 + 1).End(xlUp).Row + 1 End If Cells(Row_1, Col_1 + 1).Value = Target.Value Target.ClearContents End Select End If exitHandler: Application.EnableEvents = True End Sub

• कोड चलाने के लिए रन आइकन पर क्लिक करें या F5 कुंजी दबाएं।

• फिर, हम मैक्रो नामक एक नया डायलॉग बॉक्स देख सकते हैं। मैक्रो नाम VBA2 दें और रन पर क्लिक करें।

• उसके बाद, सेल D5 की ड्रॉप-डाउन सूची से विकल्प यूएसए चुनें।

• तो, हम देख सकते हैं कि नाम यूएसए उसी पंक्ति में लेकिन आसन्न कॉलम में जगह लेता है।

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

और पढ़ें: फिल्टर के साथ एक्सेल डेटा वैलिडेशन ड्रॉप डाउन सूची (2 उदाहरण)

निष्कर्ष

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

संबंधित लेख

• एक्सेल में डेटा वैलिडेशन फॉर्मूला में IF स्टेटमेंट का उपयोग कैसे करें (6 तरीके)
• रंग के साथ एक्सेल में डेटा वैलिडेशन का उपयोग करें (4 तरीके)
• किसी अन्य शीट से डेटा वैलिडेशन सूची का उपयोग कैसे करें (6 विधियां)
• VBA के साथ एक्सेल में डेटा वैलिडेशन सूची के लिए नामित रेंज का उपयोग करें
• [फिक्स्ड] कॉपी पेस्ट के लिए डेटा वैलिडेशन काम नहीं कर रहा एक्सेल में (समाधान के साथ)