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

एक्सेल में चेकबॉक्स के समूह में केवल एक चेकबॉक्स को कैसे चयनित किया जाए?

लेखक: सिलुविया अंतिम संशोधित: 2020-07-09

जैसा कि नीचे दिए गए स्क्रीनशॉट में दिखाया गया है, पंक्ति 2 में सूचीबद्ध चेकबॉक्स के समूह के लिए, केवल एक चेकबॉक्स का चयन या जांच करते समय, अन्य चेकबॉक्स अक्षम कर दिए जाएंगे। उसकी प्राप्ति कैसे हो? इस आलेख में दिया गया VBA कोड आपकी सहायता कर सकता है.

VBA कोड के साथ चयन करने के लिए केवल एक चेकबॉक्स बनाएं

VBA कोड के साथ चयन करने के लिए केवल एक चेकबॉक्स बनाएं

आप प्रति समय चेकबॉक्स समूह में केवल एक चेकबॉक्स का चयन करने के लिए नीचे दिए गए VBA कोड चला सकते हैं। कृपया निम्नानुसार करें.

1. सबसे पहले, कृपया अपनी आवश्यकतानुसार चेकबॉक्स डालें। यहां, आपको सम्मिलित करना चाहिए ActiveX नियंत्रण चेक बॉक्स जैसा कि निम्नलिखित स्क्रीनशॉट में दिखाया गया है:

2. फिर दबाएं ऑल्ट + F11 कुंजी को एक साथ खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

3. उद्घाटन में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की, क्लिक करें सम्मिलित करें > कक्षा का मॉड्यूल.

4. कक्षा का नाम बदलें सी.एल.एस.सी.एच.के में (नाम) का डिब्बा गुण फलक, और फिर नीचे दिए गए VBA कोड को कॉपी और पेस्ट करें कोड खिड़की। स्क्रीनशॉट देखें:

वीबीए कोड 1: प्रति बार केवल एक चेकबॉक्स चुनें

Option Explicit
Public WithEvents Chk As MSForms.CheckBox
Private Sub Chk_Click()
Call SelOneCheckBox(Chk)
End Sub

Sub SelOneCheckBox(Target As Object)
Dim xObj As Object
Dim I As String
Dim n As Integer
If Target.Object.Value = True Then

    I = Right(Target.Name, Len(Target.Name) - 8)
    For n = 1 To ActiveSheet.OLEObjects.Count
      If n <> Int(I) Then
        Set xObj = ActiveSheet.OLEObjects.Item(n)
        xObj.Object.Value = False
        xObj.Object.Enabled = False
      End If
    Next
Else
    I = Right(Target.Name, Len(Target.Name) - 8)
    For n = 1 To ActiveSheet.OLEObjects.Count
      If n <> Int(I) Then
        Set xObj = ActiveSheet.OLEObjects.Item(n)
        xObj.Object.Enabled = True
      End If
    Next
End If
End Sub

5. अब क्लिक करें सम्मिलित करें > मॉड्यूल, फिर नीचे दिए गए VBA कोड को कॉपी और पेस्ट करें मॉड्यूल खिड़की.

वीबीए कोड 2: प्रति बार केवल एक चेकबॉक्स चुनें

Dim xCollection As New Collection
Public Sub ClsChk_Init()
Dim xSht As Worksheet
Dim xObj As Object
Dim xChk As ClsChk
   Set xSht = ActiveSheet
   Set xCollection = Nothing
    For Each xObj In xSht.OLEObjects
        If xObj.Name Like "CheckBox**" Then
            Set xChk = New ClsChk
            Set xChk.Chk = CallByName(xSht, xObj.Name, VbGet)
            xCollection.Add xChk
        End If
    Next
    Set xChk = Nothing
End Sub

6। दबाएं F5 कोड चलाने की कुंजी.

अब से, वर्कशीट में किसी एक चेकबॉक्स को चेक करते समय, अन्य चेकबॉक्स स्वचालित रूप से अक्षम हो जाएंगे, और आप सभी चेकबॉक्स को फिर से सक्रिय करने के लिए इसे अनचेक कर सकते हैं।

नोट: यदि चेकबॉक्स समूह में नया चेकबॉक्स जोड़ा जाता है, तो कृपया सभी चेकबॉक्स को फिर से सक्रिय करने के लिए VBA कोड को फिर से चलाएँ। चेकबॉक्स समूह से चेकबॉक्स को हटाने के लिए कोड को भी फिर से चलाने की आवश्यकता है।

Rउत्साहित लेख:

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

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

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

Description

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

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (14)
No ratings yet. Be the first to rate!
tanguy.d
tanguy.d
This comment was minimized by the moderator on the site
Bonjour, Merci pour ce tuto tout fonctionne. Cependant, je suis obligé d'éxécuter manuellement le "ClsChk" à chaque fois pour que cela fonctionne, mon fichier est un fichier groupe pour la société, serait-il possible qu'il se lance automatiquement ? Merci d'avance.
Reply
Report
0
0
Min Ko Ko
Min Ko Ko
This comment was minimized by the moderator on the site
I want to get this feacture just row by row and not entire sheet.How should i fix this code alittle? I am not familiar with vba too much.If can, plz help me.
Reply
0
0
crystal
crystal     Min Ko Ko
This comment was minimized by the moderator on the site
Hi Min Ko Ko,
If you want to select only one option row by row, I recommend you to use the combination of Option Button (Form Control) and Group Box (Form Control).
1. Just draw a Group Box in the worksheet.
2. Keep the Group Box selected, and then draw Option Buttons inside the box.
3. Repeat the steps to insert new Group box and Option Buttons in a new row.
4. As the group box has title and borders, you can apply the below VBA code in the Module code window to hide all titles and borders of group boxes in current worksheet.
<div data-tag="code">Sub ToggleVisible()
Dim myGB As GroupBox
For Each myGB In ActiveSheet.GroupBoxes
myGB.Visible = False
Next myGB
End Sub
View Attachments (3 / 5)
Reply
Report
0
0
Justin Keith
Justin Keith
This comment was minimized by the moderator on the site
You really need to explain how to access the class name in order to change it. BTW folks, it's F4 to open the window on the left side of the screen and then edit the class name.
Reply
0
0
Arnold
Arnold
This comment was minimized by the moderator on the site
hi,
the error appears under the first code.
xObj.Object.Value = False
Reply
0
0
crystal
crystal     Arnold
This comment was minimized by the moderator on the site
Hi Arnold, did you get any prompt box? and which Excel version are you using?
Reply
Report
0
0
Tim
Tim     crystal
This comment was minimized by the moderator on the site
It works fine if all you are using is checkboxes.
If you add any other activeX items and assign controls to them, it throws the error Arnold mentioned.
Reply
0
0
cass
cass
This comment was minimized by the moderator on the site
when i close the Excel and open the file again the checkboxes stop working how do I fix this pls?
Reply
0
0
crystal
crystal     cass
This comment was minimized by the moderator on the site
Hi,
Please save the workbook as an Excel Macro-enabled Workbook in order to save the codes in workbook. But when you reopen the workbook, you need to get into the code window to manually run the code in the Module window to activate it.
Reply
Report
0
0
Barbara
Barbara     crystal
This comment was minimized by the moderator on the site
Hi, is there a way around? I would like to use this for multiple people, and I am sure they will not run the code aftre opening....
Reply
2
0
tanguy.d
tanguy.d     Barbara
This comment was minimized by the moderator on the site
Bonjour, Je suis dans la même situation. Est-il possible que le module de classe "ClsChk" se lance automatiquement au démarrage ? 
Reply
Report
1
0
Elliotbacelo
Elliotbacelo     tanguy.d
This comment was minimized by the moderator on the site
Hi, I have the same questionIs there any option to open the Excel with the function working?
Reply
Report
0
0
crystal
crystal     Elliotbacelo
This comment was minimized by the moderator on the site
Hi,Sorry for the trouble. You can follow the steps below to solve the problem.1. Save the workbook as an Excel Macro-enabled Workbook (Click File > Save as > select a destination folder > select "Excel Macro-Enabled Workbook" in the Save as type drop-down list > Save);2. Add the following code into the ThisWorkbook code editor as shown in the screenshot below.;3. Save the code.<div data-tag="code">Private Sub Workbook_Open()
On Error Resume Next
ClsChk_Init
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
ClsChk_Init
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
ClsChk_Init
End Sub
View Attachments (1 / 5)
Report
0
0
Morten G.
Morten G.
This comment was minimized by the moderator on the site
Hi! Thanks for this useful guide! I have an additional question: Im working with both columns and rows. If one checkbox value is true, all checkboxes in the same row and column has to be disabled. How do I do that? Best, Morten
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