वर्ड टेबल में कलर कोडेड ड्रॉप डाउन लिस्ट कैसे डालें?
मान लीजिए, मेरे वर्ड दस्तावेज़ में एक तालिका है, और अब, मैं तालिका के एक कॉलम में रंग कोडित ड्रॉप डाउन सूची सम्मिलित करना चाहता हूं। इसका मतलब है कि जब मैं ड्रॉप डाउन से एक विकल्प चुनता हूं, तो सेल का रंग लाल हो जाता है, और जब मैं ड्रॉप डाउन में दूसरा विकल्प चुनता हूं, तो सेल का रंग हरा हो जाता है, जैसा कि स्क्रीनशॉट में दिखाया गया है। आप Word दस्तावेज़ में इस कार्य को कैसे हल कर सकते हैं?
VBA कोड के साथ Word दस्तावेज़ में रंग कोडित ड्रॉप डाउन सूची डालें
VBA कोड के साथ Word दस्तावेज़ में रंग कोडित ड्रॉप डाउन सूची डालें
निम्नलिखित चरण आपको इस कार्य को आवश्यकतानुसार पूरा करने में मदद कर सकते हैं, सबसे पहले, ड्रॉप डाउन सूची डालें, और फिर ड्रॉप डाउन के लिए रंग लागू करें। कृपया इस प्रकार करें:
1. तालिका में उस सेल का चयन करें जहां आप ड्रॉप डाउन डालना चाहते हैं, और फिर क्लिक करें डेवलपर > ड्रॉप-डाउन सूची सामग्री नियंत्रण आइकन, स्क्रीनशॉट देखें:
2. ड्रॉप डाउन को विशिष्ट सेल में डाला जाता है, और फिर क्लिक करें डेवलपर > गुण, स्क्रीनशॉट देखें:
3. में सामग्री नियंत्रण गुण संवाद बॉक्स, कृपया निम्नलिखित कार्य करें:
(1.) शीर्षक नाम दर्ज करें शीर्षक पाठ बॉक्स;
(2.) क्लिक करें बटन पर जाएँ विकल्प जोड़ें संवाद;
(3.)में विकल्प जोड़ें संवाद में, ड्रॉप डाउन सूची आइटम टाइप करें प्रदर्शन नाम पाठ बॉक्स।
4. अपनी आवश्यकतानुसार अन्य ड्रॉप डाउन सूची आइटम सम्मिलित करने के लिए चरण 3 को दोहराएँ।
5. पहली ड्रॉप डाउन सूची बनाने के बाद, आप इसे आवश्यकतानुसार अन्य सेल में कॉपी और पेस्ट कर सकते हैं। स्क्रीनशॉट देखें:
6. फिर आपको एक वीबीए कोड लागू करना चाहिए, कृपया इसे दबाकर रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
7. में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, डबल क्लिक करें इस दस्तावेज़ से प्रोजेक्ट-प्रोजेक्ट मोड खोलने के लिए फलक, और फिर निम्न कोड को कॉपी करके रिक्त मॉड्यूल में पेस्ट करें।
VBA कोड: किसी Word दस्तावेज़ की तालिका में रंग कोडित ड्रॉप डाउन सूची डालें:
Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
With ContentControl.Range
If ContentControl.Title = "Status" Then
Select Case .Text
Case "Complete"
.Cells(1).Shading.BackgroundPatternColor = wdColorRed
Case "In Progress"
.Cells(1).Shading.BackgroundPatternColor = wdColorGreen
Case "Not Start"
.Cells(1).Shading.BackgroundPatternColor = wdColorBlue
Case Else
.Cells(1).Shading.BackgroundPatternColor = wdColorAutomatic
End Select
End If
End With
End Sub
नोट: उपरोक्त कोड में, स्थिति जब आप ड्रॉप डाउन सूची बनाते हैं तो शीर्षक नाम होता है, और पूर्ण, प्रगति में, शुरू नहीं है ड्रॉप डाउन सूची के आइटम हैं, आप उन्हें अपने अनुसार बदल सकते हैं। और आप अपनी जरूरत के अनुसार रंग भी बदल सकते हैं।
8. फिर कोड विंडो को सेव करें और बंद करें, अब, जब आप ड्रॉप डाउन सूची से एक आइटम का चयन करेंगे, तो उसका सापेक्ष रंग सेल से भर जाएगा, स्क्रीनशॉट देखें:
सर्वोत्तम कार्यालय उत्पादकता उपकरण
वर्ड के लिए कुटूल - ओवर के साथ अपने शब्द अनुभव को उन्नत करें 100 उल्लेखनीय विशेषताएं!
🤖 कुटूल्स एआई असिस्टेंट: एआई के साथ अपना लेखन बदलें - सामग्री उत्पन्न करें / पाठ पुनः लिखें / दस्तावेज़ों को सारांशित करें / जानकारी के लिए पूछताछ करें दस्तावेज़ पर आधारित, सभी वर्ड के भीतर
📘 दस्तावेज़ महारत: पन्ने विभाजित करें / दस्तावेज़ मर्ज करें / विभिन्न प्रारूपों में निर्यात चयन (पीडीएफ/टीएक्सटी/डीओसी/एचटीएमएल...) / बैच को पीडीएफ में कनवर्ट करें / पेजों को छवियों के रूप में निर्यात करें / एक साथ अनेक फ़ाइलें प्रिंट करें...
✏ सामग्री संपादन: बैच ढूंढें और बदलें अनेक फ़ाइलों में / सभी चित्रों का आकार बदलें / तालिका पंक्तियों और स्तंभों को स्थानांतरित करें / तालिका को पाठ में बदलें...
🧹 सहज स्वच्छ: साफ़ कर दो अतिरिक्त स्थान / अनुभाग टूट जाता है / सभी शीर्षलेख / पाठ बक्से / हाइपरलिंक / अधिक हटाने वाले टूल के लिए, यहां जाएं समूह हटाएँ...
➕ रचनात्मक निवेशन: डालें हजार विभाजक / चेक बॉक्स / रेडियो बटन / क्यूआर कोड / बारकोड / विकर्ण रेखा तालिका / समीकरण कैप्शन / तस्वीर का शीर्षक / सारणी का शीर्षक / एकाधिक चित्र / में और अधिक खोजें समूह सम्मिलित करें...
🔍 परिशुद्धता चयन: सटीक विशिष्ट पृष्ठ / टेबल्स / आकृतियाँ / शीर्षक पैराग्राफ / के साथ नेविगेशन बढ़ाएँ अधिक सुविधाएँ चुनें...
⭐ स्टार संवर्द्धन: किसी भी स्थान पर नेविगेट करें / दोहरावदार पाठ स्वतः सम्मिलित करें / दस्तावेज़ विंडोज़ के बीच टॉगल करें / 11 रूपांतरण उपकरण...