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