मुख्य सामग्री पर जाएं

Excel में एकल चेकबॉक्स का उपयोग करके सभी चेकबॉक्स का चयन कैसे करें?

लेखक: ज़ियाओयांग अंतिम संशोधित: 2020-07-03

चेकबॉक्स हमारे एक्सेल उपयोगकर्ताओं के लिए बहुत उपयोगी हैं, चेकबॉक्स की सूची के साथ, हम वर्कशीट पर कुछ विकल्प चुन सकते हैं। यदि बहुत सारे चेकबॉक्स को एक साथ चुनने की आवश्यकता है, तो उन्हें एक-एक करके चुनना कठिन और समय लेने वाला होगा। यहां, मैं आपको एक ही चेकबॉक्स का उपयोग करके सभी चेकबॉक्स चुनने से परिचित करा सकता हूं, यानी, जब आप इस मास्टर चेकबॉक्स को चेक करते हैं, तो वर्तमान वर्कशीट के सभी चेकबॉक्स तुरंत चयनित हो जाएंगे।

VBA कोड वाले एकल चेकबॉक्स का उपयोग करके सभी चेकबॉक्स चुनें

तीर नीला दायां बुलबुला VBA कोड वाले एकल चेकबॉक्स का उपयोग करके सभी चेकबॉक्स चुनें

एकल मास्टर चेकबॉक्स चेकिंग का उपयोग करके वर्कशीट के सभी चेकबॉक्स का चयन करने के लिए, कृपया निम्नलिखित चरणों का पालन करें:

1. सबसे पहले, आप एक चेकबॉक्स जोड़ सकते हैं, और इसे नाम दे सकते हैं सभी का चयन करें, यह आपका मास्टर चेकबॉक्स होगा, स्क्रीनशॉट देखें:

दस्तावेज़-चयन-सभी-चेकबॉक्स-1

2. फिर दबा कर रखें ALT + F11 कुंजियाँ, और यह खुल जाती है एप्लीकेशन विंडो के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक.

3। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल विंडो.

वीबीए कोड: एकल चेकबॉक्स का उपयोग करके सभी चेकबॉक्स चुनें

Sub SelectAll_Click()
'Update by Extendoffice
Dim xCheckBox As CheckBox
For Each xCheckBox In Application.ActiveSheet.CheckBoxes
    If xCheckBox.Name <> Application.ActiveSheet.CheckBoxes("Check Box 1").Name Then
        xCheckBox.Value = Application.ActiveSheet.CheckBoxes("Check Box 1").Value
    End If
Next
End Sub

4. और फिर इस कोड को सेव करें और बंद करें, वर्कशीट पर वापस जाएं, राइट क्लिक करें सभी का चयन करें चेकबॉक्स, और चुनें मैक्रो को असाइन करें संदर्भ मेनू से, स्क्रीनशॉट देखें:

दस्तावेज़-चयन-सभी-चेकबॉक्स-2

5. में मैक्रो को असाइन करें संवाद बॉक्स पर क्लिक करें सभी चुनें_क्लिक करें में विकल्प मैक्रो नाम सूची बॉक्स, और फिर क्लिक करें OK इस संवाद को बंद करने के लिए बटन, स्क्रीनशॉट देखें:

दस्तावेज़-चयन-सभी-चेकबॉक्स-3

6. और अब, जब आप मास्टर सेलेक्ट ऑल चेक बॉक्स को चेक करते हैं, तो वर्तमान वर्कशीट के अन्य सभी चेकबॉक्स एक ही बार में चेक कर दिए जाते हैं।

दस्तावेज़-चयन-सभी-चेकबॉक्स-4

नोट: उपरोक्त कोड में, चेक बॉक्स 1 आपके मास्टर चेक बॉक्स का नाम है, आप इसे इसमें देख सकते हैं नाम बॉक्स इसे राइट क्लिक करके, और इसे अपनी आवश्यकता के अनुसार बदलें।

दस्तावेज़-चयन-सभी-चेकबॉक्स-5

संबंधित आलेख:

एक्सेल में चेकबॉक्स को एकाधिक सेल से कैसे लिंक करें?

एक्सेल में जल्दी से एकाधिक चेकबॉक्स कैसे डालें?

एक्सेल में एकाधिक चेकबॉक्स को तुरंत कैसे हटाएं?

सर्वोत्तम कार्यालय उत्पादकता उपकरण

🤖 कुटूल्स एआई सहयोगी: निम्न के आधार पर डेटा विश्लेषण में क्रांति लाएं: बुद्धिमान निष्पादन   |  कोड जनरेट करें  |  कस्टम फ़ॉर्मूले बनाएं  |  डेटा का विश्लेषण करें और चार्ट बनाएं  |  कुटूल फ़ंक्शंस का आह्वान करें...
लोकप्रिय सुविधाएँ: डुप्लिकेट ढूंढें, हाइलाइट करें या पहचानें   |  रिक्त पंक्तियाँ हटाएँ   |  डेटा खोए बिना कॉलम या सेल को संयोजित करें   |   फॉर्मूला के बिना गोल ...
सुपर लुकअप: एकाधिक मानदंड VLookup  |   मल्टीपल वैल्यू वीलुकअप  |   अनेक शीटों में VLookup   |   फजी लुकअप ....
उन्नत ड्रॉप-डाउन सूची: शीघ्रता से ड्रॉप डाउन सूची बनाएं   |  आश्रित ड्रॉप डाउन सूची   |  बहु-चयन ड्रॉप डाउन सूची ....
स्तम्भ प्रबंधक: कॉलमों की एक विशिष्ट संख्या जोड़ें  |  कॉलम ले जाएँ  |  छिपे हुए कॉलम की दृश्यता स्थिति टॉगल करें  |  रेंज और कॉलम की तुलना करें ...
फीचर्ड फीचर्स: ग्रिड फोकस   |  डिजाइन देखें   |   बड़ा फॉर्मूला बार   |  कार्यपुस्तिका एवं शीट प्रबंधक   |  संसाधन लाइब्रेरी (ऑटो टेक्स्ट)   |  खजूर बीनने वाला   |  कार्यपत्रकों को संयोजित करें   |  एन्क्रिप्ट/डिक्रिप्ट सेल   |  सूची के अनुसार ईमेल भेजें   |  सुपर फ़िल्टर   |   विशेष फ़िल्टर (फ़िल्टर बोल्ड/इटैलिक/स्ट्राइकथ्रू...) ...
शीर्ष 15 टूलसेट:  12 टेक्स्ट टूल्स (पाठ जोड़ें, अक्षर हटाएँ, ...)   |   50 + चार्ट प्रकार (गैन्ट चार्ट, ...)   |   40+ प्रैक्टिकल सूत्र (जन्मदिन के आधार पर आयु की गणना करें, ...)   |   19 निवेशन टूल्स (QR कोड डालें, पथ से चित्र सम्मिलित करें, ...)   |   12 रूपांतरण टूल्स (शब्दों को संख्याएँ, मुद्रा रूपांतरण, ...)   |   7 विलय और विभाजन टूल्स (उन्नत संयोजन पंक्तियाँ, विभाजन कोशिकाओं, ...)   |   ... और अधिक

एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है।  वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...

Description

ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (2)
No ratings yet. Be the first to rate!
Andrew
Andrew
This comment was minimized by the moderator on the site
Is there a way to select specific checkboxes using a single checkbox?
Reply
0
0
Алекс
Алекс     Andrew
This comment was minimized by the moderator on the site
Ниже код для установки определённых флажков с помощью одного основного флажка.

Sub Level1()
If Range("B23") = True Then Range("G29,G30,G39,G40,G41,G42,G43,I31,I32,I33,I34,I35,I36,I37,I38") = True
If Range("B23") = False Then Range("G29,G30,G39,G40,G41,G42,G43,I31,I32,I33,I34,I35,I36,I37,I38") = False
End Sub

, где
Level1 - имя макроса

B23 - номер ячейки в которой находится основной чек-бокс для флажка

G29,G30,G39,G40,G41,G42,G43,I31,I32,I33,I34,I35,I36,I37,I38 - диапазон ячеек, в которых содержатся чек-боксы для проставления флажков.

P.S. Не забывайте привязать чек-боксы к своим ячейкам и назначить макрос на основном чек-боксе.

Всем удачи!
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations