एक्सेल में ड्रॉप डाउन सूची में टिक और क्रॉस चिन्ह कैसे जोड़ें?
आम तौर पर, सिंबल फ़ंक्शन वाले सेल में टिक और क्रॉस सिंबल डालने और फिर डेटा स्रोत के रूप में उनके साथ ड्रॉप डाउन सूचियां बनाने के बाद, परिणाम ड्रॉप डाउन सेल में ü या û के रूप में प्रदर्शित होंगे। वास्तविक ✓ और कैसे प्रदर्शित करें ड्रॉप डाउन सूची से आइटम चुनने के बाद कोशिकाओं में प्रतीक? नीचे दी गई VBA विधि एक्सेल में एक टिक और क्रॉस ड्रॉप डाउन सूची बनाने में मदद करेगी।
VBA कोड के साथ ड्रॉप डाउन सूची में टिक और क्रॉस चिह्न जोड़ें
VBA कोड के साथ ड्रॉप डाउन सूची में टिक और क्रॉस चिह्न जोड़ें
नीचे दिए गए वीबीए कोड के साथ, आप एक्सेल में निर्दिष्ट सेल में टिक और क्रॉस ड्रॉप-डाउन सूचियां डाल सकते हैं। कृपया निम्नानुसार करें.
1. वर्कशीट में आप टिक और क्रॉस सिंबल ड्रॉप डाउन सूचियां बनाएंगे, शीट टैब पर राइट क्लिक करें और चयन करें कोड देखें संदर्भ मेनू से
2. फिर अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो खुलती है, कृपया नीचे दिए गए VBA कोड को कोड विंडो में कॉपी करें।
वीबीए कोड 1: ड्रॉप डाउन सूची में टिक और क्रॉस चिह्न जोड़ें
Private Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20180703
If Intersect(Target, Range("B1:B10")) Is Nothing Then Exit Sub
If Target.Value = "Tick" Then
Target.Value = "P"
ElseIf Target.Value = "Cross" Then
Target.Value = "S"
End If
End Sub
3. क्लिक करते जाएं सम्मिलित करें > मॉड्यूल, फिर निम्नलिखित कोड 2 को मॉड्यूल विंडो में कॉपी करें।
वीबीए कोड 2: ड्रॉप डाउन सूची में टिक और क्रॉस चिह्न जोड़ें
Sub usingSymbols()
'Update by Extendoffice 20180703
Dim xRg As Range
Set xRg = Range("B1:B10")
xRg.Font.Name = "Wingdings 2"
xRg.Validation.Add xlValidateList, , , "Tick,Cross"
End Sub
नोट: उपरोक्त कोड में, B1:B10 उन कोशिकाओं की श्रेणी है जिन्हें आप टिक और क्रॉस ड्रॉप-डाउन सूची बनाएंगे। कृपया अपनी आवश्यकतानुसार सीमा बदलें।
4। दबाएं F5 कोड चलाने की कुंजी.
अब टिक और क्रॉस प्रतीक ड्रॉप-डाउन सूचियाँ श्रेणी B1:B10 में डाली गई हैं। ड्रॉप-डाउन से टिक का चयन करें, सेल में ✓ डाला जाएगा, और क्रॉस का चयन करें प्रदर्शित होगा प्रतीक। स्क्रीनशॉट देखें:
संबंधित आलेख:
- एक्सेल ड्रॉप डाउन सूची में मानों का चयन करते समय अन्य कोशिकाओं को स्वचालित रूप से कैसे पॉप्युलेट करें?
- एक्सेल ड्रॉप डाउन सूची में टाइप करते समय स्वतः पूर्ण कैसे करें?
- Excel में ड्रॉप डाउन सूची कैलेंडर कैसे बनाएं?
- एक्सेल में एकाधिक चयनों या मानों के साथ ड्रॉप डाउन सूची कैसे बनाएं?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!