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

[m_d6712]

اطلاعاتی که قراره در list قرار بگیره رو به صورت Table بزار!
یعنی همه اطلاعات رو table کن! ترجیحا نام ستون ها رو هم فعال کن!
Table خاصتی داره که وقتی در ستر زیرش مقداری اضافه می کنی آن سطر خود بخود به table اضافه می شود. و چون قراره شما Rowsourse رو برابر با این Table بزاری پس هر چه اطلاعات به این جدول اضافه شود به List شما هم اضافه می وشد. فکر کنم این طوری مشکل حل شود.


مثلا اسم Table رو گذاشتی Machines

در قسمت RowSource این مقدار رو بزار : Machines


فایل مثال:
http://www.mediafire.com/file/ec71a17p0zeh7pw/List.xlsm

[esyoo]

با تشکر از شما
من یک همچین مشکلی دارم.
در فایل توضیح داده شده.
http://www.4shared.com/file/CXwDWZ62/example_list.html

[m_d6712]

ابتدا محدوده ای که قراره کپی کنی رو تبدیل کن به Table1

این کد رو جایگزین کن:
Sub Macro1()
Range("table1").Select
Selection.Copy
Range("A2").Select
ActiveSheet.Paste
End Sub


فایل:
http://www.mediafire.com/file/cjqigda4d878hi5/example%20list.xlsm

[esyoo]

سلام
دوستان همان طور که در عکس زیر می بینید تایم ها به صورت 0.33 یا 0.5 برای من نشان داده شده
چکار کنم تا در لیست باکس به صورت تایم نمایش داده بشه؟مثلا 8:00

[m_d6712]

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

فیلدی که می خوای به صورت تایم نشون به رو نوعش رو Time کن ! نباید مشکلی باشه!

[esyoo]

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

فیلدی که می خوای به صورت تایم نشون به رو نوعش رو Time کن ! نباید مشکلی باشه!

ممنون دوست عزیز
فایل رو پیوست کردم.
دقت کنید که من به صورتtable نمی خوام!
با تشکر
http://www.4shared.com/file/NYzJVIxM/find_time.html
کد 1 را وارد کنید.

[m_d6712]

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

فیلدی که می خوای به صورت تایم نشون به رو نوعش رو Time کن ! نباید مشکلی باشه!

ممنون دوست عزیز
فایل رو پیوست کردم.
دقت کنید که من به صورتtable نمی خوام!
با تشکر
http://www.4shared.com/file/NYzJVIxM/find_time.html
کد 1 را وارد کنید.

این رو با کد خودت جایگزین کن؛ درست میشه!:::

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