मैं डेटा सत्यापन करना चाहता हूं जो ड्रॉपडाउन के साथ संभव है लेकिन मैं एक से अधिक चयन करना चाहूंगा।
क्या सेल ड्रॉपडाउन के लिए ड्रॉपडाउन तत्वों के पास चेकबॉक्स होना संभव है?
मैं एक्सेल या Google शीट में ड्रॉपडाउन के अंदर चेकबॉक्स कैसे जोड़ूं?
जवाबों:
ड्रॉपडाउन बॉक्स के बजाय, सूची बॉक्स कई चयन के लिए चेक बॉक्स जोड़ने के लिए सबसे उपयुक्त है।
मुझे बताएं कि एक्सेल में यह कैसे करना है (अधिकांश एक्सेल कमांड और तरीके Google शीट पर भी लागू होते हैं।)
यह काम किस प्रकार करता है:
- क्लिक करें डेवलपर टैब, सम्मिलित करें, सूची बॉक्स (सक्रिय एक्स नियंत्रण से)।
- लिस्ट बॉक्स को ड्रा करने के बाद राइट क्लिक करें।
- फिर मेनू से गुण चुनें।
- ListFillRange खोजें और स्रोत डेटा रेंज डालें (A155: A164)।
- ListStyle बॉक्स ढूंढें , 1-fmList स्टाइल ऑप्शन चुनें।
- फिर MultiSelect से 1-fmMultiSelectMulti चुनें ।
- फिर किसी भी निर्दिष्ट सेल (E155) का चयन करें, फिर इसे ListBoxOutput नाम दें।
- फिर सम्मिलित करें, आकृतियाँ पर क्लिक करें और सूची बॉक्स के ऊपर एक उपयुक्त (C155) आकार बनाएँ।
- फिर शेप पर राइट क्लिक करें और मेनू से मैक्रो (रेक्टेंगल 2_क्लिक करें) चुनें।
नीचे लिखे कोड को मॉड्यूल के रूप में डालें।
Sub Rectangle2_Click()
Dim xSelShp As Shape, xSelLst As Variant, I As Integer
Set xSelShp = ActiveSheet.Shapes(Application.Caller)
Set xLstBox = ActiveSheet.ListBox1
If xLstBox.Visible = False Then
xLstBox.Visible = True
xSelShp.TextFrame2.TextRange.Characters.Text = "Click After Pickup Options"
Else
xLstBox.Visible = False
xSelShp.TextFrame2.TextRange.Characters.Text = "Click To Select Options"
For I = xLstBox.ListCount - 1 To 0 Step -1
If xLstBox.Selected(I) = True Then
xSelLst = xLstBox.List(I) & "," & xSelLst
End If
Next I
If xSelLst <> "" Then
Range("ListBoxOutput") = Mid(xSelLst, 1, Len(xSelLst) - 1)
Else
Range("ListBoxOutput") = ""
End If
End If
End Sub
- सूची बॉक्स खोलने के लिए आकृति पर क्लिक करें , आइटम का चयन करें और फिर सेल में चयनित आइटम डालने के लिए आकृति पर क्लिक करें
E155।
ध्यान दें, स्रोत आइटम सूची, सूची बॉक्स, आकृति की स्थिति और आउटपुट सेल के लिए भी सेल संदर्भ समायोजित करें।
गैबेल की मदद करने के लिए आपलोग ,,, as
—
राजेश एस।