Excel में मान के आधार पर टेक्स्टबॉक्स का रंग कैसे बदलें?
एक्सेल में, हम सेल वैल्यू के आधार पर बैकग्राउंड का रंग बदलने के लिए कंडीशनल फ़ॉर्मेटिंग फ़ंक्शन लागू कर सकते हैं, लेकिन, इस लेख में, मैं सेल वैल्यू या टेक्स्टबॉक्स में वैल्यू के आधार पर टेक्स्टबॉक्स का रंग कैसे बदलें, इसके बारे में बात करूंगा।
वीबीए कोड के साथ सेल वैल्यू के आधार पर टेक्स्टबॉक्स का रंग बदलें
VBA कोड के साथ टेक्स्टबॉक्स में मान के आधार पर टेक्स्टबॉक्स का रंग बदलें
वीबीए कोड के साथ सेल वैल्यू के आधार पर टेक्स्टबॉक्स का रंग बदलें
मान लीजिए, यदि A1 में सेल मान B1 में सेल मान से अधिक है, तो मैं चाहता हूं कि टेक्स्टबॉक्स लाल रंग से भरा जाए, इसके विपरीत, टेक्स्टबॉक्स पीले रंग से भरा होना चाहिए। कृपया निम्नलिखित चरणों के साथ यह कार्य पूरा करें:
1. क्लिक करके टेक्स्टबॉक्स डालें डेवलपर > सम्मिलित करें > टेक्स्ट बॉक्स (एक्टिवएक्स कंट्रोल), और फिर एक टेक्स्टबॉक्स बनाएं, स्क्रीनशॉट देखें:
2. फिर टेक्स्टबॉक्स पर राइट क्लिक करें और चुनें कोड देखें खोलने के लिए संदर्भ मेनू से अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, और फिर मूल कोड को निम्नलिखित VBA कोड के साथ रिक्त मॉड्यूल में बदलें:
वीबीए कोड: सेल मानों के आधार पर टेक्स्टबॉक्स का रंग बदलें:
Private Sub TextBox1_Change()
If ActiveSheet.Range("A1").Value > ActiveSheet.Range("B1").Value Then
Me.TextBox1.BackColor = vbRed
Else
Me.TextBox1.BackColor = vbYellow
End If
End Sub
नोट: उपरोक्त कोड में, टेक्स्टबॉक्स1 यह आपके द्वारा डाला गया टेक्स्टबॉक्स नाम है, A1 और B1 ये दो सेल हैं जिनके आधार पर आप टेक्स्टबॉक्स का रंग बदलना चाहते हैं, कृपया उन्हें अपनी आवश्यकता के अनुसार बदलें।
3. फिर कोड विंडो को सहेजें और बंद करें, और बाहर निकलें डिज़ाइन मोड, अब, यदि सेल A1, B1 से बड़ा है, तो जब आप टेक्स्टबॉक्स में टेक्स्ट टाइप करेंगे, तो यह लाल रंग से भर जाएगा, और यदि A1, B1 से कम है, तो टेक्स्टबॉक्स में मान दर्ज करते समय, यह पीले रंग से भर जाएगा, स्क्रीनशॉट देखें:
VBA कोड के साथ टेक्स्टबॉक्स में मान के आधार पर टेक्स्टबॉक्स का रंग बदलें
यदि आप टेक्स्टबॉक्स में मान के आधार पर टेक्स्टबॉक्स का रंग बदलना चाहते हैं, उदाहरण के लिए, जब टेक्स्टबॉक्स में मान 1 और 10 के बीच है, तो टेक्स्टबॉक्स का भरा हुआ रंग लाल है, यदि मान 11 और 20 के बीच है, तो टेक्स्टबॉक्स का रंग हरा है, यदि है अन्य मान, टेक्स्टबॉक्स का रंग पीला है। इस कार्य से निपटने के लिए, कृपया नीचे दिया गया VBA कोड लागू करें।
1. टेक्स्टबॉक्स डालने के बाद, उस पर राइट क्लिक करें और चुनें कोड देखें खोलने के लिए संदर्भ मेनू से अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, और फिर मूल कोड को निम्नलिखित VBA कोड के साथ रिक्त मॉड्यूल में बदलें:
VBA कोड: टेक्स्टबॉक्स में मान के आधार पर टेक्स्टबॉक्स का रंग बदलें:
Private Sub TextBox1_Change()
On Error Resume Next
Select Case TextBox1.Value
Case 1 To 10:
TextBox1.BackColor = vbRed
Case 11 To 20:
TextBox1.BackColor = vbGreen
Case Else:
TextBox1.BackColor = vbYellow
End Select
End Sub
नोट: उपरोक्त कोड में, टेक्स्टबॉक्स1 आपके द्वारा डाले गए टेक्स्टबॉक्स का नाम है, और आप कोड के भीतर मान और पृष्ठभूमि रंग को अपने अनुसार बदल सकते हैं।
2. फिर कोड विंडो को सहेजें और बंद करें, और बाहर निकलें डिजाइन मोड, अब, यदि आप टेक्स्टबॉक्स में 1 और 10 के बीच का मान दर्ज करते हैं, तो इसका पृष्ठभूमि रंग लाल हो जाएगा, 11 और 20 के बीच का मान, टेक्स्टबॉक्स पृष्ठभूमि का रंग हरा हो जाएगा, अन्य मान, यह निम्न स्क्रीनशॉट में दिखाए गए अनुसार पीला हो जाएगा:
संबंधित आलेख:
टेक्स्ट बॉक्स में चित्र कैसे डालें?
टेक्स्टबॉक्स में डिफ़ॉल्ट मान कैसे सेट करें?
टेक्स्ट बॉक्स में केवल संख्याओं को इनपुट करने की अनुमति कैसे दें?
टेक्स्टबॉक्स में वर्तनी जांच कैसे लागू करें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!