با استفاده از lookup یا ... ، چطوری میشه چند ورودی تو یه سلول داشته باشیم و چند نتیجه تو یه سلول دیگه بدست بیاریم؟

[Ramkal]

سلام

دو تا فایل اکسل به اسمهای 1.xlsx و 2.xlsx ضمیمه کردم (البته این دو فایل نمونه ی کوچیکی از فایلهای اصلیم هستن)

این دو فایل رو با استفاده از vlookup به هم ارتباطشون دادم به این صورت که وقتی توی سلولهای شیتِ first از فایل 2.xlsx عددی وارد میکنیم شرح ِ مربوط به اون عدد از جدول اصلی که تو فایل 1.xlsx قرار داره جستجو میشه و نتیجه در شیت final که در فایل 2.xlsx قرار داره درج میشه

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

حالا من میخام کاری کنم که هر سلول قابلیت این رو داشته باشه که بتونه چند عدد رو به عنوان ورودی دریافت کنه و چندین نتیجه ی مربوط به اونها رو تو یه سلول دلخواه دیگه قرار بده و با خط تیره هم از هم مجزاشون کنه!

روشش مهم نیست vlookup ، index یا هر چیزی!

ممنون از راهنمایی های اساتید محترم

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

درود
بهتر بود نتیجه ای که میخواید بگیرید پیوست کنید فایل ضمیمه کاری است که در حال حاضر انجام دادید این که یک سلول چند ورودی و چند خروجی داشته باشه خیلی گنگ هست

[Ramkal]

یه مثال میزنم،
مثلا تو یه سلولِ شیتِ first از فایل 2.xlsx تایپ میکنم: 2;4;5
حالا میخام تو سلول متناظرش در شیتِ final این نتیجه درج بشه: آهن، پنجره، در

همچین چیزی:


یا مثلا بزنم: 5;6;10;1;8
نتیجه بده: در، سیم، میز، شیشه، تابلو

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

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

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

وقتی سلول a1 رو تو شیت2 عوض میکنم، تو سلول b1 مینویسه: #name?

لطفا تصویری ازش بذارید ببینم چی وارد می کنید

[Ramkal]

لطفا تصویری ازش بذارید ببینم چی وارد می کنید

مرسی . یه پیغام macro بود باید enable میکردم ، اون پیغام حل شد
حالا همین فرمولتون رو تست میکنم ، نتیجه رو اعلام میکنم...

[Ramkal]

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

من به همین فایل 2 تا سلول e , f اضافه کردم ولی چرا عمل نمیکنه ؟

http://uploadkon.ir/uploads/lookuparray(2).zip

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

برای من عمل میکنه ، دقت کنید آیتم هایی که میخواید جستجو بشه فاصله ندید و با سمی کالن یا کالن جدا کنید

[Ramkal]

برای من عمل میکنه ، دقت کنید آیتم هایی که میخواید جستجو بشه فاصله ندید و با سمی کالن یا کالن جدا کنید

همین فایلی که فرستادم رو تست کردید؟ برای e و f هم معادلشو نمایش داد؟
معادل e و f رو همش 4 نمایش میده !

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

همین فایلی که فرستادم رو تست کردید؟ برای e و f هم معادلشو نمایش داد؟
معادل e و f رو همش 4 نمایش میده !

ایراد از بنده بود ، برای تست دو متغیر تعریف کرده بودم که باید در تابع نهایی حذف می شدند ولی فراموش کرده بودم حذف کنم

[Ramkal]

ایراد از بنده بود ، برای تست دو متغیر تعریف کرده بودم که باید در تابع نهایی حذف می شدند ولی فراموش کرده بودم حذف کنم

من همین فرمول رو میخام تو فایل اصلیم اعمال کنم ولی عمل نمیکنه

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

من همین فرمول رو میخام تو فایل اصلیم اعمال کنم ولی نمیشه

کافیه کدهای مربوطه رو در یک ماژول کپی کنید بعدش استفاده کنید

[Ramkal]

کافیه کدهای مربوطه رو در یک ماژول کپی کنید بعدش استفاده کنید

چطوری؟
کدوم کدها؟

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

اول ALT +F11 رو بزنید

از منوی INSERT گزینه زرد رنگی که در تصویر مشخصه بزنید

تا چیزی مثل آبجکتی که به رنگ ابی هست اضافه بشه

روش دابل کلیک کنید

در محیط صورتی رنگ کدهای زیر رو کپی کنید

Option Explicit

Public Function lookupArray(arr As Variant, myrng As Range, mycol As Integer)
Dim intcoun As Integer

Dim arritem As Variant
For intcoun = 1 To Len(arr) Step 2
arritem = Mid(arr, intcoun, 1)
lookupArray = lookupArray & Application.WorksheetFunction.VLookup(arritem, myrng, mycol) & ";"
Next intcoun
End Function 

[Ramkal]

اوکی ، امتحان میکنم
فقط دو تا نکته
تو نمونه فایلی که شما فرستادید اگه مثلا یه کاراکتر وارد کنیم که تو لیست نباشه میاد آخرین داده رو تو نتیجه چاپ میکنه در صورتیکه چون معادلی براش وجود نداره باید جاشو خالی بزاره . این مشکل قابل برطرف کردن هست؟
و اینکه اگه بخایم به جای اینکه نتایج با کاما تو سلول خروجی از هم مجزا بشن، زیر هم قرار بگیرن، میشه این کار رو کرد؟