एक्सेल में सेल वैल्यू के आधार पर आकार का रंग कैसे बदलें?
विशिष्ट सेल मान के आधार पर आकार का रंग बदलना एक्सेल में एक दिलचस्प कार्य हो सकता है, उदाहरण के लिए, यदि A1 में सेल मान 100 से कम है, तो आकार का रंग लाल है, यदि A1 100 से अधिक और 200 से कम है, तो आकृति का रंग पीला है, और जब A1 200 से अधिक है, तो आकृति का रंग हरा है, जैसा कि स्क्रीनशॉट में दिखाया गया है। सेल मान के आधार पर आकृति का रंग बदलने के लिए, यह आलेख आपके लिए विधि का परिचय देगा।
VBA कोड के साथ सेल मान के आधार पर आकार का रंग बदलें
VBA कोड के साथ सेल मान के आधार पर आकार का रंग बदलें
नीचे दिया गया VBA कोड आपको सेल मान के आधार पर आकार का रंग बदलने में मदद कर सकता है, कृपया निम्नानुसार कार्य करें:
1. उस शीट टैब पर राइट क्लिक करें जिसका आकार आप बदलना चाहते हैं, और फिर चयन करें कोड देखें संदर्भ मेनू से, पॉप आउट में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, कृपया निम्नलिखित कोड को कॉपी करें और रिक्त स्थान पर चिपकाएँ मॉड्यूल खिड़की.
VBA कोड: सेल मान के आधार पर आकार का रंग बदलें:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160704
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
If IsNumeric(Target.Value) Then
If Target.Value < 100 Then
ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbRed
ElseIf Target.Value >= 100 And Target.Value < 200 Then
ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbYellow
Else
ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbGreen
End If
End If
End Sub
2. और फिर जब आप सेल A1 में मान दर्ज करते हैं, तो आपके द्वारा परिभाषित सेल मान के साथ आकार का रंग बदल जाएगा।
नोट: उपरोक्त कोड में, A1 वह सेल मान है जिसके आधार पर आपके आकार का रंग बदला जाएगा, और अंडाकार 1 यह आपके सम्मिलित आकार का आकार नाम है, आप उन्हें अपनी आवश्यकता के अनुसार बदल सकते हैं।
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!