हम अपना VLOOKUP लिखते हैं ताकि मानक (एक्सेल फ़ंक्शन) पर निर्भर न हों

प्रस्तावना

जैसा कि आप जानते हैं, MS EXCEL में VLOOKUP फ़ंक्शन का ज्ञान मास्को में एक औसत विश्लेषक बनने के लिए पर्याप्त है। यदि कोई व्यक्ति PIVOT से परिचित है या, उदाहरण के लिए, जानता है कि सूची से डुप्लिकेट को कैसे निकालना है, तो खुश कार्यालय दुनिया के सभी दरवाजे उसके सामने व्यापक हैं।

हाबराहाब समुदाय में, निश्चित रूप से, ऐसा ज्ञान केवल कोमलता की मुस्कान पैदा कर सकता है। डेटा के साथ काम करें (यदि इसमें सभी कृपालु हैं) केवल पुराने स्कूल एएनएसआई टी-एसक्यूएल - 92 पर अनुमत है।

लेकिन कभी-कभी कठोर वास्तविकता डेटा सरणियों की तुलना करती है। उसी समय, एक नियम के रूप में, डीबीएमएस में डेटा स्थानांतरित करने का समय नहीं है, या यह केवल अव्यावहारिक है। इसलिए, मैं सम्मानित समुदाय को EXCEL में सुविधाजनक और तेजी से डेटा प्रसंस्करण के लिए एक-दूसरे को "चिप्स" के साथ साझा करने के लिए आमंत्रित करता हूं। गायब न हों अच्छा ...

अंबुला, वास्तव में

VLOOKUP फ़ंक्शन (रूसी संस्करण में - VLOOKUP) वास्तव में एक बहुत ही सुविधाजनक और शक्तिशाली सहायक है जब आपको विभिन्न तालिकाओं में डेटा मैच खोजने की आवश्यकता होती है। यह एक कलाश्निकोव असॉल्ट राइफल की तरह सरलतापूर्वक और मज़बूती से काम करता है।

लेकिन यह दुर्भाग्य है, कभी-कभी आपको तुलना के दौरान कुछ अतिरिक्त मापदंडों को स्पष्ट करने की आवश्यकता होती है। उदाहरण के लिए, बहुत सारे पत्राचार हो सकते हैं, और उनमें से सभी आम तौर पर सच हैं, लेकिन कुछ फिर भी "अधिक सही" हैं। यही है, आपको तुलना के दौरान अतिरिक्त सत्यापन करने की आवश्यकता है।

सामान्य मामले में, इस तरह के अतिरिक्त कार्य कुछ भी हो सकते हैं - ऐसे बहुमूल्य कार्य पर नियंत्रण प्राप्त करना जैसे कि VLOOKUP अत्यंत उपयोगी हो सकता है।

मैं आपके ध्यान में एक कोड लाता हूं जो इस तरह की दोहरी जांच करता है। यह अनिवार्य रूप से DOUBLE LOOKUP है। यदि पत्राचार "आधार" कॉलम के लिए संतुष्ट है, तो फ़ंक्शन "क्वालिफाइंग" कॉलम के पैरामीटर की खोज करता है और यदि सफल होता है, तो मानक वीएलबुक के अनुरूप सादृश्य द्वारा परिणाम लौटाता है।

यदि बुनियादी पत्राचार पाया जाता है, लेकिन कोई निर्दिष्ट नहीं है, तो मेरे उद्देश्यों के लिए मैंने अधिसूचना के परिणामस्वरूप आउटपुट सेट किया, लेकिन निश्चित रूप से अब आप अपनी परियोजना के लिए फ़ंक्शन को फिर से कर सकते हैं।

महामहिम संहिता

:
VLOOKUP2my
([Table] , ;
SearchColumnNum [Table], "" ;
SearchValue "" ;
ResultColumnNum [Table], ;
N2 "" ;
N2col [Table], "" )

Function VLOOKUP2my(Table As Range, SearchColumnNum As Integer, SearchValue As Variant, ResultColumnNum As Integer, N2 As Variant, N2col As Integer)
Dim i As Long
For i = 1 To Table.Rows.Count
If UCase(Table.Cells(i, SearchColumnNum)) = UCase(SearchValue) Then
If (UCase(Table.Cells(i, N2col)) = UCase(N2)) Then
VLOOKUP2my = Table.Cells(i, ResultColumnNum)
Exit For
End If
VLOOKUP2my = "Second option not exists"
End If
Next i
End Function