एक्सेल में लुकअप वैल्यू के साथ बैकग्राउंड कलर कैसे लौटाएं?
मान लीजिए कि आपके पास नीचे दिखाए गए स्क्रीनशॉट के अनुसार एक तालिका है। अब आप यह जांचना चाहते हैं कि कोई निर्दिष्ट मान कॉलम ए में है या नहीं और फिर कॉलम सी में पृष्ठभूमि रंग के साथ संबंधित मान लौटाएं। इसे कैसे प्राप्त करें? लेख में दी गई विधि समस्या को हल करने में आपकी सहायता कर सकती है।
उपयोगकर्ता-परिभाषित फ़ंक्शन द्वारा लुकअप मान के साथ Vlookup और पृष्ठभूमि रंग लौटाएं
उपयोगकर्ता-परिभाषित फ़ंक्शन द्वारा लुकअप मान के साथ Vlookup और पृष्ठभूमि रंग लौटाएं
कृपया किसी मान को देखने और एक्सेल में पृष्ठभूमि रंग के साथ उसके संबंधित मान को वापस करने के लिए निम्नानुसार कार्य करें।
1. वर्कशीट में वह मान है जिसे आप देखना चाहते हैं, शीट टैब पर राइट-क्लिक करें और चयन करें कोड देखें संदर्भ मेनू से. स्क्रीनशॉट देखें:
2. उद्घाटन में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, कृपया नीचे दिए गए VBA कोड को कोड विंडो में कॉपी करें।
वीबीए कोड 1: वीलुकअप और लुकअप मान के साथ पृष्ठभूमि रंग लौटाएं
Sub Worksheet_Change(ByVal Target As Range)
Dim I As Long
Dim xKeys As Long
Dim xDicStr As String
On Error Resume Next
Application.ScreenUpdating = False
xKeys = UBound(xDic.Keys)
If xKeys >= 0 Then
For I = 0 To UBound(xDic.Keys)
xDicStr = xDic.Items(I)
If xDicStr <> "" Then
Range(xDic.Keys(I)).Interior.Color = _
Range(xDic.Items(I)).Interior.Color
Else
Range(xDic.Keys(I)).Interior.Color = xlNone
End If
Next
Set xDic = Nothing
End If
Application.ScreenUpdating = True
End Sub
3। तब दबायें सम्मिलित करें > मॉड्यूल, और नीचे दिए गए VBA कोड 2 को मॉड्यूल विंडो में कॉपी करें।
वीबीए कोड 2: वीलुकअप और लुकअप मान के साथ पृष्ठभूमि रंग लौटाएं
Public xDic As New Dictionary
Function LookupKeepColor (ByRef FndValue, ByRef LookupRng As Range, ByRef xCol As Long)
Dim xFindCell As Range
On Error Resume Next
Set xFindCell = LookupRng.Find(FndValue, , xlValues, xlWhole)
If xFindCell Is Nothing Then
LookupKeepColor = ""
xDic.Add Application.Caller.Address, ""
Else
LookupKeepColor = xFindCell.Offset(0, xCol - 1).Value
xDic.Add Application.Caller.Address, xFindCell.Offset(0, xCol - 1).Address
End If
End Function
4. दोनों कोड डालने के बाद क्लिक करें टूल्स > संदर्भ. फिर जांचें माइक्रोसॉफ्ट स्क्रिप्ट रनटाइम इन बॉक्स सन्दर्भ - वीबीएप्रोजेक्ट संवाद बकस। स्क्रीनशॉट देखें:
5। दबाएं ऑल्ट + Q बाहर निकलने के लिए कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो खोलें और वर्कशीट पर वापस जाएँ।
6. लुकअप मान के निकट एक रिक्त कक्ष का चयन करें, और फिर सूत्र दर्ज करें =LookupKeepColor(E2,$A$1:$C$8,3) फॉर्मूला बार में, और फिर एंटर कुंजी दबाएं।
नोट: सूत्र में, E2 इसमें वह मान शामिल है जिसे आप देखेंगे, $ए$1:$सी$8 तालिका श्रेणी और संख्या है 3 इसका मतलब है कि आप जो संबंधित मान लौटाएंगे वह तालिका के तीसरे कॉलम में स्थित होगा। कृपया उन्हें आवश्यकतानुसार बदलें।
7. पहले परिणाम सेल का चयन करते रहें, और सभी परिणाम उनके पृष्ठभूमि रंग के साथ प्राप्त करने के लिए भरण हैंडल को नीचे खींचें। स्क्रीनशॉट देखें.
संबंधित आलेख:
- Excel में Vlookup का उपयोग करते समय लुकअप सेल के स्रोत स्वरूपण की प्रतिलिपि कैसे बनाएं?
- एक्सेल में नंबर के बजाय वीलुकअप और रिटर्न डेट फॉर्मेट कैसे करें?
- एक्सेल में वीलुकअप और सम का उपयोग कैसे करें?
- एक्सेल में आसन्न या अगले सेल में रिटर्न वैल्यू कैसे देखें?
- एक्सेल में वीलुकअप वैल्यू और सही या गलत / हां या नहीं कैसे लौटाएं?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!