کاربرد VLOOKUPALL

[miladman88]

با سلام
در مقاله ای خوندم که برای به دست آوردن تمامی اطلاعات داخل یک بانک می توانید از تابع VLOOKUPALL استفاده کنید
از بین دوستان کسی با این دستور آشنا هست؟
چرا در اکسل 2010 نیستش؟
لطفا اگر کسی در این زمینه اطلاعاتی دارد راهنمایی بفرماید

[komeilex]

RE: کاربرد VLOOKUPALL

سلام میلاد جان. این تابع رو خودت باید بسازی. اکسل که نداردش آقا! مگه پست زیر رو ندیدی؟
http://forum.exceliran.com/thread-575-post-8543.html#pid8543

[miladman88]

RE: کاربرد VLOOKUPALL

سلام
چون دسترسی ندارم نه متاسفانه ندیدم
با تشکر

[Amirsayyafi]

RE: کاربرد VLOOKUPALL

من هم نتونستم ببینم. ممکنه کمک بفرمایید؟

[~M*E*H*D*I~]

RE: کاربرد VLOOKUPALL

سلام
فایل پیوست رو مشاهده کنید

[maham58]

RE: کاربرد VLOOKUPALL

با سلام
لطفا برتامه تابع vlookupall رو میشه بگید؟ خیلی دنبال این فرمول بودم.با تشکر

[komeilex]

RE: کاربرد VLOOKUPALL

با سلام
لطفا برتامه تابع vlookupall رو میشه بگید؟ خیلی دنبال این فرمول بودم.با تشکر

[align=justify]سلام دوست عزیز
ببینین ما یه مبحثی تو قسمت vb اکسل داریم تحت عنوان UDF (user defined function)k. همون طور که می دونین اکسل توابع زیادی داره که ازش استفاده می کنیم ولی گاهی اوقات این توابع نیاز ما رو برطرف نمیکنن و ما تصمیم می گیریم خودمون یه تابع برای اکسل تعریف کنیم که در لیست مابقی توابع قرار گیرد. برای این منظور بعد از ورود به قسمت vb از مسیر زیر یک ماژول می سازیم و کد مورد نظر برای تابمون یا همون کاری که از تابع انتظار داریم انجام بدیم رو می نویسیم.( به زبان ویژوال بیسیک).
insert>>module
این ماژول فقط برای همون فایل وجود دارد و مانند سایر توابع اکسل، همگانی نیست. برای تابع vlookuoall، فایلی رو که استاد وطن پرست ضمیمه کردن، کد مربوط به تابع به صورت زیر است:
[/align]

Function vlookupall(sSearch As String, rRange As Range, _
    Optional lLookupCol As Long, Optional sDel As String) As String
Dim i As Long, sTemp As String
If lLookupCol > rRange.Columns.Count Or sSearch = "" Or _
    (lLookupCol < 0 And rRange.Columns.Count > 1) Then
    vlookupall = CVErr(xlErrValue)
    Exit Function
End If
vlookupall = ""
For i = 1 To rRange.Rows.Count
    If rRange(i, 1).Text = sSearch Then
        If lLookupCol >= 0 Then
            vlookupall = vlookupall & sTemp & rRange(i, lLookupCol).Text
        Else
            vlookupall = vlookupall & sTemp & rRange(i).Offset(0, lLookupCol).Text
        End If
        sTemp = sDel
    End If
Next i
End Function 

[shiro]

RE: کاربرد VLOOKUPALL

سلام دوستان کسی میتونه بهم کمک کنه من میخام براساس نام خانوادگی مشخصات کامل شخص بطور کامل فراخوانی کنم بدون در نظر گرفتن تکرار یعنی متشابه هم فراخوانی کنه

نام خانوادگی نام کد ملی ش ش تاریخ عضویت کد عضویت

......... .... ..... ..... .......... ........