एक्सेल में एक साथ सभी चेकबॉक्स को अनचेक या डीसेलेक्ट कैसे करें?
जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है, आप वर्कशीट में सभी चेक किए गए चेकबॉक्स को एक साथ कैसे अनचेक या अचयनित कर सकते हैं? इस लेख में, मैं इसे हल करने के लिए कुछ त्वरित कोड के बारे में बात करूंगा।
VBA कोड के साथ सभी चेक किए गए चेकबॉक्स को अनचेक या अचयनित करें
VBA कोड के साथ सभी चेक किए गए चेकबॉक्स को अनचेक या अचयनित करें
सभी चेक किए गए चेकबॉक्स को अनचेक या अचयनित करें (फ़ॉर्म नियंत्रण):
यदि आपके चेकबॉक्स प्रपत्र नियंत्रण हैं, तो आप उन्हें निम्नलिखित VBA कोड से तुरंत अनचेक कर सकते हैं:
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।
वीबीए कोड: सभी चेक किए गए चेकबॉक्स को अनचेक या अचयनित करें (फ़ॉर्म नियंत्रण):
Sub ClearCheckBoxes()
'Updateby Extendoffice
Dim chkBox As Excel.CheckBox
Application.ScreenUpdating = False
For Each chkBox In ActiveSheet.CheckBoxes
chkBox.Value = xlOff
Next chkBox
Application.ScreenUpdating = True
End Sub
3। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और सभी चेक किए गए चेकबॉक्स सक्रिय वर्कशीट में एक बार में अनचेक कर दिए गए हैं।
सभी चेक किए गए चेकबॉक्स को अनचेक या अचयनित करें (ActiveX नियंत्रण):
यदि चेकबॉक्स ActiveX नियंत्रण हैं, तो कृपया नीचे दिया गया VBA कोड लागू करें:
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।
VBA कोड: सभी चेक किए गए चेकबॉक्स को अनचेक या अचयनित करें (ActiveX नियंत्रण):
Sub clearcheckbox()
'Updateby Extendoffcie
Dim c As Object
For Each c In ActiveSheet.OLEObjects
If InStr(1, c.Name, "CheckBox") > 0 Then
c.Object.Value = False
End If
Next
End Sub
3। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और सक्रिय वर्कशीट में सभी चेक किए गए चेकबॉक्स को एक बार में अचयनित कर दिया गया है।
चयनों में एक साथ अनेक चेक बॉक्स डालें
एक्सेल के लिए कुटूल's बैच इंसर्ट चेक बॉक्स उपयोगिता आपको एक साथ कई चेकबॉक्स डालने में मदद कर सकती है। एक्सेल के लिए कुटूल डाउनलोड करने के लिए क्लिक करें!
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!