बहु-चयनको साथ ड्रपडाउन सूची

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

यस्तो बहु-चयन सूचीको धेरै विशिष्ट कार्यान्वयनहरू हेरौं।

विकल्प १. तेर्सो

प्रयोगकर्ताले ड्रप-डाउन सूचीबाट वस्तुहरू एक-एक गरेर चयन गर्दछ, र तिनीहरू परिवर्तन भइरहेको कक्षको दायाँतिर देखा पर्दछ, स्वचालित रूपमा तेर्सो रूपमा सूचीबद्ध हुन्छ:

यस उदाहरणमा C2:C5 कक्षहरूमा ड्रप-डाउन सूचीहरू मानक तरिकामा सिर्जना गरिएका छन्, जस्तै

1. सेल C2:C5 चयन गर्नुहोस्
2. ट्याब वा मेनु तथ्याङ्क टोली छान्नुहोस् डाटा मान्यकरण
3. खुल्ने विन्डोमा, एउटा विकल्प चयन गर्नुहोस् सूची र दायराको रूपमा निर्दिष्ट गर्नुहोस् मुहान सूची A1:A8 को लागि स्रोत डेटा भएका कक्षहरू

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

निजी उप कार्यपत्र_परिवर्तन(दायित्वको रूपमा लक्ष्य) त्रुटिमा अर्को पुन: सुरु गर्नुहोस् यदि प्रतिच्छेदन (लक्ष्य, दायरा("C2:C5")) केहि छैन र लक्ष्य। कक्षहरू।गणना = 1 त्यसपछि अनुप्रयोग।EnableEvents = False यदि Len(Target.Off.Off) (0, 1)) = 0 त्यसपछि Target.Offset(0, 1) = Target Else Target.End(xlToRight).Offset(0, 1) = Target End यदि Target.ClearContents Application.EnableEvents = True End यदि End Sub  

आवश्यक भएमा, यस कोडको दोस्रो पङ्क्तिमा रहेको ड्रप-डाउन सूची C2:C5 को संवेदनशील दायरालाई आफ्नैसँग बदल्नुहोस्।

विकल्प २. ठाडो

अघिल्लो संस्करणमा जस्तै, तर नयाँ चयन गरिएका मानहरू दायाँमा थपिएका छैनन्, तर तल:

यो ठीक त्यस्तै तरिकाले गरिन्छ, तर ह्यान्डलर म्याक्रो कोड थोरै परिवर्तन हुन्छ:

निजी उप कार्यपत्र_परिवर्तन(दायित्वको रूपमा लक्ष्य) त्रुटिमा अर्को पुन: सुरु गर्नुहोस् यदि प्रतिच्छेदन (लक्ष्य, दायरा("C2:F2")) केही छैन र लक्ष्य। कक्षहरू।गणना = 1 त्यसपछि अनुप्रयोग।EnableEvents = False यदि Len(Target.Off.Off) (1, 0)) = 0 त्यसपछि Target.Offset(1, 0) = Target Else Target.End(xlDown).Offset(1, 0) = Target End यदि Target.ClearContents Application.EnableEvents = True End यदि End Sub  

फेरि, यदि आवश्यक भएमा, C2:F2 ड्रप-डाउन सूचीहरूको संवेदनशील दायरालाई यो कोडको दोस्रो पङ्क्तिमा तपाईंको आफ्नैसँग बदल्नुहोस्।

विकल्प 3. एउटै सेल मा संचय संग

यस विकल्पमा, संचय एउटै कक्षमा हुन्छ जहाँ ड्रप-डाउन सूची अवस्थित छ। चयन गरिएका तत्वहरूलाई कुनै पनि वर्ण (उदाहरणका लागि, अल्पविराम) द्वारा विभाजित गरिएको छ:

हरियो कक्षहरूमा ड्रप-डाउन सूचीहरू अघिल्लो विधिहरूमा जस्तै, पूर्ण रूपमा मानक तरिकामा सिर्जना गरिन्छ। सबै काम सकियो, फेरि, पाना मोड्युलमा म्याक्रो द्वारा:

निजी उप कार्यपत्र_परिवर्तन (दायराको रूपमा लक्ष्य अनुसार) त्रुटिमा अर्को पुन: सुरु गर्नुहोस् यदि प्रतिच्छेदन (लक्ष्य, दायरा("C2:C5")) केही होइन र लक्ष्य हो। कक्षहरू। गणना = 1 त्यसपछि अनुप्रयोग। सक्षम घटनाहरू = गलत newVal = लक्ष्य अनुप्रयोग। oldval = लक्ष्य यदि Len(oldval) <> 0 र oldval <> newVal त्यसपछि Target = Target & "," & newVal Else Target = newVal End यदि Len(newVal) = 0 तब Target.ClearContents Application.EnableEvents = True End यदि अन्त्य उप  

यदि चाहनुहुन्छ भने, तपाईंले कोडको 9 औं लाइनमा विभाजक क्यारेक्टर (अल्पविराम) लाई आफ्नो आफ्नै (उदाहरणका लागि, स्पेस वा सेमीकोलन) प्रतिस्थापन गर्न सक्नुहुन्छ।

• एक्सेल पाना सेलमा सरल ड्रप डाउन सूची कसरी सिर्जना गर्ने
• सामग्रीको साथ ड्रपडाउन सूची
• छुटेका विकल्पहरू थपिएको ड्रपडाउन सूची
• म्याक्रोहरू के हुन्, तिनीहरूलाई कसरी प्रयोग गर्ने, भिजुअल बेसिकमा म्याक्रो कोड कहाँ घुसाउने