एक्सेल में वीबीए कोड के साथ कॉम्बो बॉक्स की सामग्री को कैसे साफ़ करें?
आम तौर पर, आप इनपुट रेंज सूची डेटा को साफ़ करके कॉम्बो बॉक्स की सामग्री को साफ़ कर सकते हैं। लेकिन एक्सेल वर्कशीट में सभी कॉम्बो बॉक्स की सामग्री को साफ़ करने के बारे में क्या ख्याल है? यह आलेख आपको न केवल कॉम्बो बॉक्स की सामग्री को साफ़ करने में मदद करने के लिए दो वीबीए कोड तैयार करता है बल्कि एक्सेल वर्कशीट में एक ही समय में सभी कॉम्बो बॉक्स की सामग्री को भी साफ़ करने में मदद करता है।
VBA कोड द्वारा कॉम्बो बॉक्स की सामग्री को आसानी से साफ़ करें
VBA कोड द्वारा कॉम्बो बॉक्स की सामग्री को आसानी से साफ़ करें
नीचे दिए गए दो वीबीए कोड आपको कॉम्बो बॉक्स या सक्रिय वर्कशीट में सभी कॉम्बो बॉक्स की सामग्री को साफ़ करने में मदद कर सकते हैं। कृपया निम्नानुसार करें.
1. वर्कशीट में आपको कॉम्बो बॉक्स की सामग्री साफ़ करने की आवश्यकता है, कृपया दबाएं ऑल्ट + F11 खोलने के लिए एक ही समय में कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की, क्लिक करें सम्मिलित करें > मॉड्यूल. फिर नीचे दिए गए VBA कोड को कोड विंडो में कॉपी करें।
वीबीए 1: वर्कशीट में कॉम्बो बॉक्स की सामग्री साफ़ करें
Sub ClearAComboBox()
ActiveSheet.Shapes.Range(Array("Drop Down 2")).Select
With Selection
.ListFillRange = ""
End With
End Subनोट: कोड में, "ड्रॉप डाउन 2" उस कॉम्बो बॉक्स का नाम है जिससे आप सामग्री साफ़ करेंगे। कृपया इसे अपने अनुसार बदलें।
वीबीए 2: सक्रिय वर्कशीट में सभी कॉम्बो बॉक्स की सामग्री साफ़ करें
Sub ClearComboBox()
Dim xOle As OLEObject
Dim xDrop As DropDown
Application.ScreenUpdating = False
For Each xOle In ActiveSheet.OLEObjects
If TypeName(xOle.Object) = "ComboBox" Then
xOle.ListFillRange = ""
End If
Next
For Each xDrop In ActiveSheet.DropDowns
xDrop.ListFillRange = ""
Next
Application.ScreenUpdating = True
End Sub3। दबाएं F5 कोड को चलाने के लिए कुंजी या रन बटन पर क्लिक करें।
फिर आप देख सकते हैं कि निर्दिष्ट कॉम्बो बॉक्स या सक्रिय वर्कशीट में सभी कॉम्बो बॉक्स में सामग्री साफ़ हो गई है जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है:
नोट: वीबीए कोड कॉम्बो बॉक्स (फॉर्म कंट्रोल) और कॉम्बो बॉक्स (एक्टिवएक्स कंट्रोल) दोनों पर लागू किया जा सकता है।
संबंधित आलेख:
- एक्सेल में सेल्स में एक ही समय में सामग्री और फ़ॉर्मेटिंग को कैसे साफ़ करें?
- Excel में नामित श्रेणी की सामग्री को कैसे साफ़ करें?
- Excel में कक्षों में प्रतिबंधित मानों को कैसे साफ़ करें?
- यदि एक्सेल में किसी अन्य सेल का मान बदलता है तो निर्दिष्ट सेल सामग्री को कैसे साफ़ करें?
- एक्सेल वर्कबुक में ओपन और एग्जिट पर निर्दिष्ट सेल सामग्री को कैसे साफ़ करें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
