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