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

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

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

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

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

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

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

कदम:

• सबसे पहले, सेल श्रेणी चुनें (D4:D8 ) नाम श्रेणी सेट करें 'dv_list_0 '.

• दूसरा, सेल श्रेणी चुनें (B5:B8 ) और नाम श्रेणी 'देश_रेंज . सेट करें '.

• तीसरे, डेटा . पर जाएं> डेटा उपकरण > डेटा सत्यापन > डेटा सत्यापन ।

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

• ठीक पर क्लिक करें ।

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

• फिर, राइट-क्लिक करें सक्रिय पत्रक के पत्रक के नाम पर। विकल्प चुनें 'कोड देखें '.

• उपरोक्त कमांड एक खाली 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 . यह देश का नाम USA . इनपुट करेगा सेल में B5 ।

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

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

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

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

कदम:

• सबसे पहले, सेल चुनें 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 यूएसए . नाम का देश चुनें ।

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

• आखिरकार, कनाडा . चुनें और मेक्सिको हम देख सकते हैं कि चयनित मान क्रमशः आसन्न स्तंभों में होते हैं।

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

समान रीडिंग:

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

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

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

कदम:

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

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

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

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 विकल्प चुनें यूएसए ।

• इसलिए, हम USA . नाम देख सकते हैं एक ही पंक्ति में होता है लेकिन आसन्न कॉलम में होता है।

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

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

निष्कर्ष

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

संबंधित लेख

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