विषय
VBA फॉर्म पर चेकबॉक्स के साथ एक सूची दृश्य नियंत्रण का उपयोग करना उपयोगकर्ता को विकल्प प्रदान करके किसी एप्लिकेशन को अधिक गतिशील बना सकता है। एक ListView चार अलग-अलग दृश्यों में से एक का उपयोग करके आइटम दिखाता है और उन्हें Microsoft Excel हेडर के साथ या बिना कॉलम में व्यवस्थित करता है। आइटम जोड़ने के लिए "ListItems.Add" संपत्ति का उपयोग करें और उपयोगकर्ता द्वारा चुने गए आइटम का निर्धारण करने के लिए "चेक किया गया"।
दिशाओं
VBA का उपयोग करके Excel में ListView नियंत्रण भरें (हेमेरा टेक्नोलॉजीज / Photos.com / गेटी इमेजेज़)-
Microsoft Excel खोलें, VBA संपादक विंडो खोलने के लिए "डेवलपर" टैब और फिर "विज़ुअल बेसिक" पर क्लिक करें और एक नया फ़ॉर्म बनाने के लिए "इन्सर्ट" मेनू और फिर "यूज़रफ़ॉर्म" (उपयोगकर्ता प्रपत्र) पर क्लिक करें। "टूल," "अतिरिक्त नियंत्रण" पर क्लिक करें और फ़ॉर्म में एक नया "लिस्ट व्यू" नियंत्रण जोड़ने के लिए "Microsoft सूची दृश्य नियंत्रण" (Microsoft सूची दृश्य नियंत्रण) के बगल में स्थित बॉक्स का चयन करें।
-
"सूची दृश्य" नियंत्रण पर राइट-क्लिक करें और फिर "गुण" पर। विंडो को नीचे स्क्रॉल करें और "चेकबॉक्स" विकल्प के बगल में "ट्रू" चुनें। "टूलबॉक्स" फलक में "कमांडबटन" पर क्लिक करें और फिर एक नया बटन जोड़ने के लिए फॉर्म पर। समान चरणों का उपयोग करके एक दूसरा बटन जोड़ें।
-
उस बटन के लिए एक नई घटना बनाने के लिए "CommandButton1" पर डबल-क्लिक करें। तीन आइटमों के साथ लोकप्रिय "ListBox" में निम्न कोड जोड़ें:
Me.ListView1.ListItems.Add (1) = "आइटम चेक करें 1" Me.ListView1.ListItems.Add (2) = "आइटम 2 जांचें" Me.ListView1.ListItems.Add (3) = "आइटम 3 चेक करें"
-
फॉर्म पर वापस जाएं और उस बटन के लिए एक नया क्लिक ईवेंट बनाने के लिए "CommandButton2" पर डबल-क्लिक करें। "ListBox" आइटम के माध्यम से जाने के लिए और "तत्काल" विंडो में चयनित आइटम प्रदर्शित करने के लिए निम्न कोड जोड़ें:
काउंटर के लिए = 1 से मेरे लिए। लिस्ट व्यू1।लिमिटेड।काउंट इफ मी।लिस्ट व्यू 1। लिस्ट इट्स। इटेम (काउंटर)। इसके बाद डिबग किया गया। मेरे लिए लिस्ट। लिस्ट।
-
फॉर्म पर वापस जाएं और प्रोग्राम चलाने के लिए "F5" पर क्लिक करें। फिर "लिस्ट व्यू" नियंत्रण को पॉप्युलेट करने के लिए "कमांडबटन 1" पर क्लिक करें और फिर चयनित वस्तुओं को दिखाने के लिए "कमांडबटन 2"।
आपको क्या चाहिए
- Microsoft Excel