ड्रॉप-डाउन सूचीमधून एकाधिक निवड करा.xlsm

ड्रॉप-डाउन सूचीमधील एकाधिक निवड

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

डेटा प्रमाणीकरण डायलॉग बॉक्समध्ये सूची डेटा प्रकार निवडा आणि घाला आयटमची सेल श्रेणी.

B4:B11 ही श्रेणी आहे जी स्टेशनरी घटक धारण करते. आता तुम्हाला ड्रॉप-डाउन सूची मिळेल.

अधिक वाचा: निवडीवर अवलंबून एक्सेल ड्रॉप डाउन सूची

1. निवडाएकाधिक आयटम (डुप्लिकेट निवडीची परवानगी देते)

पारंपारिक ड्रॉप-डाउन सूची नेहमी एकच आयटम निवडते. येथे तुम्ही पाहू शकता, आम्ही सूचीमधून पेन निवडले आहे (खालील चित्र).

आता, जर आपण दुसरा आयटम निवडला तर म्हणूया पेन्सिल

तर ते मागील मूल्य बदलेल. फक्त पेन्सिल निवडलेले राहील.

एकाधिक आयटम निवडण्यासाठी, आम्हाला VBA कोड वापरावा लागेल. Microsoft Visual Basic for Applications विंडो उघडा (ते उघडण्यासाठी ALT + F11 दाबा).

आता वर्कशीटच्या नावावर किंवा नंबरवर डबल क्लिक करा जिथे तुम्हाला निवडायचे आहे. ड्रॉप-डाउन सूचीमधील एकाधिक आयटम. तुम्हाला त्या विशिष्ट शीटसाठी कोड विंडो मिळेल.

येथे आमच्या वर्कबुकमध्ये शीट2 साठी कोड विंडो आहे (आमच्याकडे ड्रॉप-डाउन आहे या शीटमधील यादी).

कोड विंडो उघडल्यानंतर, तेथे खालील कोड घाला

9512

कोड जतन करा, आणि आता मूल्ये निवडण्याचा प्रयत्न करा. ड्रॉप-डाउन सूचीमध्ये.

पेन्सिल निवडल्यानंतर, आपण दुसरा आयटम नोटबुक निवडणार आहोत. आणि तुम्ही पाहू शकता, आम्हाला दोन्ही आयटम सापडले आहेत (खाली प्रतिमा).

हा कोड आम्हाला निवडीची पुनरावृत्ती करण्यास अनुमती देईल. समजा आपण पेन्सिल पुन्हा निवडल्यास,

आम्हाला तो आयटम पुन्हा सिलेक्शन बॉक्समध्ये मिळेल.

कोड स्पष्टीकरण

आम्ही दोन स्ट्रिंग घोषित केले आहेत ओल्डव्हॅल्यू आणि नवीन मूल्य .

तुम्ही पाहू शकता की आम्ही ड्रॉप-डाउन सूची D4 सेलमध्ये तयार केली आहे, म्हणूनच आमचा लक्ष्य पत्ता D4 आहे. आणि याशिवाय, सेल डेटा प्रमाणीकरण वापरत आहे की नाही हे आम्ही पुन्हा तपासले आहे की Target.SpecialCells वापरत नाही.

एकदा मूल्य निवडल्यानंतर, आम्ही इव्हेंट्स ( Application.EnableEvents = False ) बंद केले त्यामुळे बदल होत नाहीत कार्यक्रम पुन्हा ट्रिगर करू नका. नंतर निवडलेला आयटम नवीन मूल्य मध्ये संग्रहित केला.

बदल पूर्ववत केल्यानंतर, आम्ही मूल्य जुने मूल्य मध्ये सेट केले. नंतर Oldvalue रिक्त आहे की नाही ते तपासा. जर रिक्त असेल (म्हणजे फक्त एक मूल्य निवडले असेल), तर नवीन मूल्य परत करा. अन्यथा, जुने मूल्य आणि नवीन मूल्य एकत्र करा.

इव्हेंट रीसेट करण्यापूर्वी समाप्त करा, जेणेकरून आवश्यक असल्यास आम्ही बदलू शकू.

अधिक वाचा: मल्टिपल डिपेंडेंट ड्रॉप-डाउन सूची एक्सेल VBA

2. ड्रॉप डाउन सूचीमधून एकाधिक आयटम निवडा (केवळ अद्वितीय निवड)

आधीच्या विभागात , आम्ही अनेक निवडी पाहिल्या आहेत जेथे पुनरावृत्तीला परवानगी होती. तुम्हाला ते नको असल्यास, या विभागाचे अनुसरण करा.

सोयीसाठी, आम्ही या प्रात्यक्षिकासाठी एक वेगळे पत्रक वापरले. यावेळी आम्ही Sheet3 वर आहोत. या शीटसाठी कोड विंडोमध्ये खालील कोड लिहा.

3825

पूर्वीच्या कोडच्या तुलनेत काही फरक आहे का! जवळून पाहा, तुम्ही थोडा फरक शोधू शकाल.

येथे आम्ही VBA फंक्शन वापरले आहे. INSTR . INSTR फंक्शन स्ट्रिंगमधील सबस्ट्रिंगच्या पहिल्या घटनेची स्थिती परत करते. अधिक माहितीसाठी या INSTR लेखाला भेट द्या.

InStr(1, Oldvalue, Newvalue) = 0 सह या लॉजिकल ऑपरेशनचा वापर करून, आम्ही मूल्ये सापडली आहेत की नाही हे तपासले आहे. जर लॉजिकल ऑपरेशन TRUE (पूर्वी सापडले नाही) परत आले तर ते आयटम निवडण्याची आणि आधीच्या मूल्याशी जोडण्याची अनुमती देते.

कोड सेव्ह करा आणि आता आधीपासून असलेली आयटम निवडण्याचा प्रयत्न करा. निवडले गेले आहे.

येथे आपण आधीच पेन्सिल निवडले आहे, जर आपल्याला ते पुन्हा निवडायचे असेल तर आपण करू शकत नाही. ते डुप्लिकेट मूल्यांना अनुमती देत ​​नाही.

अधिक वाचा: एक्सेलमधील दुसर्‍या शीटमधून ड्रॉप डाउन सूची कशी तयार करावी

3. निवडा न्यूलाइनमधील आयटम

आतापर्यंत, आम्हाला आढळले आहे की आयटम स्वल्पविरामाने विभक्त केले आहेत. या विभागात, आम्ही निवडलेल्या आयटमची नवीन ओळींमध्ये व्यवस्था करू.

साधेपणासाठी, आम्ही काही सेल D4 सेलसह विलीन करत आहोत. ते करण्यासाठी, तुम्हाला विलीन करायचे असलेले सेल निवडा आणि विलीन करा & होम टॅबच्या संरेखन विभागातून मध्य .

सेल अधिक उंची वाढवेल.

आता, नवीन लाइनद्वारे आयटम वेगळे करण्यासाठी कोड पाहू. खालील कोड वापरा

8851

मागील कोडमधील फरक हा आहे की यावेळी आम्ही OldValue आणि मधील vbNewLine वापरले नवीन मूल्य .

vbNewLine आयटम दरम्यान एक नवीन ओळ प्रदान करते.

आता आयटम निवडा.

आम्ही वरील प्रतिमेत दिसणारा पेन आयटम निवडतो. आता दुसरा घटक निवडा.

तुम्हाला दोन आयटम वेगवेगळ्या ओळींमध्ये आढळतील.

येथे आमच्याकडे दोन आहेत मूल्ये, जी दोन भिन्न ओळींमध्ये आहेत. दुसरे मूल्य निवडल्याने ते दुसर्‍या ओळीत जोडले जाईल. प्रत्येक मूल्य नवीन ओळीत असेल.

लक्षात ठेवा की जर तुम्हाला आयटम वेगळे करायचे असल्यास, ते vbNewline<10 च्या जागी दुहेरी अवतरणात वापरा>.

निष्कर्ष

आजसाठी एवढेच. आम्ही ड्रॉप-डाउन सूचीमध्ये अनेक निवडी करण्यासाठी अनेक पद्धती सूचीबद्ध केल्या आहेत. तुम्हाला हे उपयुक्त वाटेल अशी आशा आहे. काही समजण्यास अवघड वाटल्यास मोकळ्या मनाने टिप्पणी द्या. आम्ही येथे चुकलेल्या इतर कोणत्याही पद्धती आम्हाला कळवा.