Excel में सेल रंग के आधार पर मान कैसे बदलें?
यह आलेख Excel में उसके पृष्ठभूमि रंग के आधार पर सेल मान को स्वचालित रूप से बदलने के बारे में बात कर रहा है। उदाहरण के लिए, यदि सेल चयन में लाल पृष्ठभूमि रंग से भर रहे हैं, तो इन कोशिकाओं को नंबर 1 से भरें, और नीले पृष्ठभूमि रंग वाली कोशिकाओं के लिए, नंबर 0 भरें।
VBA कोड के साथ सेल रंग के आधार पर मान बदलें
VBA कोड के साथ सेल रंग के आधार पर मान बदलें
आप Excel में सेल रंग के आधार पर मान बदलने के लिए नीचे दिया गया VBA कोड चला सकते हैं। कृपया निम्नानुसार करें.
1. उस श्रेणी का चयन करें जिसमें आपको पृष्ठभूमि रंग के आधार पर मान बदलने की आवश्यकता है, फिर दबाएँ ऑल्ट + F11 खोलने के लिए एक साथ कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की, क्लिक करें सम्मिलित करें > मॉड्यूल, फिर नीचे दिए गए VBA कोड को कॉपी करके मॉड्यूल विंडो में पेस्ट करें।
वीबीए कोड: एक्सेल में सेल रंग के आधार पर मूल्य बदलें
Sub ChangeValueBasedOnCellColor()
Dim rg As Range
Dim xRg As Range
Set xRg = Selection.Cells
Application.DisplayAlerts = False
For Each rg In xRg
With rg
Select Case .Interior.Color
Case Is = 255 'Red
.Value = 1
Case Is = 15773696 'Blue
.Value = 0
End Select
End With
Next
Application.DisplayAlerts = False
End Sub
3। दबाएं F5 कोड को चलाने के लिए कुंजी, फिर आप देख सकते हैं कि चयनित श्रेणी में सभी लाल सेल नंबर 1 से भरे हुए हैं, और नीले सेल नंबर 0 से भरे हुए हैं जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है।
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!