معادل vlookup در vba چی هست؟

[shamsololama]

با درود فراوان

نه از لیست باکس بصورت زیر استفاده کنید کدی که در کلید جستجو قرار دارد هم بصورت زیر است


[img] [/img]



Private Sub CommandButton1_Click()

For Each c In Range("a1:a10")
If c.Value = TextBox1.Text And c.Offset(0, 2).Value = TextBox2.Text Then

ListBox1.AddItem c
ListBox1.List(ListBox1.ListCount - 1, 1) = c.Offset(0, 1).Value
ListBox1.List(ListBox1.ListCount - 1, 2) = c.Offset(0, 2).Value
End If
Next
End Sub

[esyoo]

با تشکر از شما
حالا 3 تا مشکل دارم:
1)من یک اسم طولانی دارم و اصلا توی لیست باکس جا نمیشه!باید چکار کنم؟(به عکس توجه کنید)
3)توی عکسی که شما گذاشتید اسم و فامیل و سال دقیقا در مرکز هستند.چطور این کار رو کردید؟
2)اگر کلیک جستجو رو هر باز بزنم باز هم برام جستجو میکنه و لی من این رو نمیخوام.(به عکس توجه کنید)

[shamsololama]

با درود فراوان
جواب سئوال یک :وقتی روی لیست باکس کلیک کرده اید درقسمت Properties نگاه کنید جلوی columnWidths اندازه ستون های لیست باکس را می توانید مشخص کنید مثل 200,300,400 که این اعداد همانطور که می بینید با کاما از هم جدا شده و به منظور این است ستون اول 200pt و ستون دوم 300pt و ستون سوم که به اندازه لیست باکس بستگی دارد اگر فضای باقی مانده بیشتر از 400 باشد همان فضای باقی مانده به آن اختصاص داده می شود و اگر کمتر باشد هم فضای لیست باکس بزرگتر می شود و نوار لغزنده آن ظاهر می شود

جواب سئوال دو: برای اینکار نیز در پرو پرتیس لیست باکس TextAlign رو تنظیم کن روی وسط چین

جواب سئوال سه :در بالای کد خود ListBox1.Clear اضافه کن مثل کد زیر با این کار هر بار قبل از جستجو لیست باکس را خالی می کند و بصورت تکراری جستو ها به لیست باکس اضافه نمی شوند.

Private Sub CommandButton1_Click()
ListBox1.Clear
For Each c In Range("a1:a10")
If c.Value = TextBox1.Text And c.Offset(0, 2).Value = TextBox2.Text Then

ListBox1.AddItem c
ListBox1.List(ListBox1.ListCount - 1, 1) = c.Offset(0, 1).Value
ListBox1.List(ListBox1.ListCount - 1, 2) = c.Offset(0, 2).Value
End If
Next
End Sub

[esyoo]

عبارت ListBox1.AddItem c
چه کاری رو انجام میده؟

موقع سرچ من می خوام 1380 دیده نشه و فقط نام و نام خانوادگی بیاد چه کار باید بکنم؟




اگر عبارت ListBox1.AddItem c پاک کنم به مشکل بر می خورم!
میشه راهنمایی کنید

[shamsololama]

با درود فراوان

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

در واقع ListBox1.AddItem c هنگام جستجو c که متغیر است را در صورت برقرار بودن شرط
را ADD می کند با وارد لیست باکس می کند که اگر آن را وارد نکنیم یعنی ListBox1.AddItem c را پاک کنیم دچار مشکل می شود

و باید بجای C می نویسیم c.Offset(0, 1).Value

و بجایی c.Offset(0, 1).Value در خط دوم می نویسیم c.Offset(0, 2).Value

و خط سوم را پاک میکنیم یعنی
ListBox1.List(ListBox1.ListCount - 1, 1) = c.Offset(0, 2).Value


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


Private Sub CommandButton1_Click()
ListBox1.Clear
For Each c In Range("a1:a10")
If c.Value = TextBox1.Text And c.Offset(0, 2).Value = TextBox2.Text Then
ListBox1.AddItem c.Offset(0, 1).Value
ListBox1.List(ListBox1.ListCount - 1, 1) = c.Offset(0, 2).Value
End If
Next
End Sub

[esyoo]

با تشکر از شما
آیا امکان گذاشتن یک نمونه برای شما هست؟
من هر کار کردم نتونستم درست بن.یسمش
ممنون میشم راهنمایی بکنید
با تشکر

[shamsololama]

با درود فراوان

نمونه فایل

http://www.xlpar.com/qak69es66k3y/listbox.xls.html

[esyoo]

متاسفانه نتونستم دانلود کنم
اگر امکانش هست در http://www.4shared.com/ آپلود کنید.

[shamsololama]

با درود فراوان
این آدرسی که داده اید برای من باز نمیشه ممکنه از طرف شرکت خود ما بسته باشه

اگر از آدرس قبلی نتونستی دانلود کنی ایمیل بده تا برات بفرستم به ایمیلت

[esyoo]

سلام
ستون a ,b ,c,d رو در نظر بگیرید.
من میخوام هر وقت تا هر جا پر شد در لیست باکس نمایش بده.
اصلا هیچ قاعده و قانونی نداره!
ممکنه هر دفعه یک چیز باشه یک بار حرف یک بار عدد.
فقط هدف اینکه هر بار تا هر جا که پر شد در لیست باکس نمایش داده بشه
با تشکر

مثلا الان اینقدر پر هست.





الان این قدر پر هست.