اطلاعات جستجو

[leilaasgharpour@ymail.com]

سلام کدی برای جستجو دارم اما در یک ستون در لیست باکس می اید من میخواهم در یک ردیف بیاید.

Dim c
ListBox1.Clear
For Each c In Sheet10.Range("A1:A100")
If c = TextBox66.Text Then
ListBox1.AddItem c

ListBox1.AddItem c.Offset(0, 1)
ListBox1.AddItem c.Offset(0, 2)
ListBox1.AddItem c.Offset(0, 3)

ListBox1.List(ListBox1.ListCount - 1, 1) = c.Offset(0, 1).Value
ListBox1.List(ListBox1.ListCount - 1, 2) = c.Offset(0, 2).Value
ListBox1.List(ListBox1.ListCount - 1, 3) = c.Offset(0, 3).Value

End If 

ضمنا اگر بر اساس دو خانه بخواهیم جستجو کنیم(دو تکس باکس) مثلا بر اساس سال تولد وشماره شناسنامه انوقت چطوری کد بنویسیم .ممنون

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

این قسمت رو برای چی اضافه کردید؟

ListBox1.List(ListBox1.ListCount - 1, 1) = c.Offset(0, 1).Value
ListBox1.List(ListBox1.ListCount - 1, 2) = c.Offset(0, 2).Value
ListBox1.List(ListBox1.ListCount - 1, 3) = c.Offset(0, 3).Value 

[leilaasgharpour@ymail.com]

برای قرار گرفتن در یک ردیف از لیست باکس

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

برای قرار گرفتن در یک ردیف از لیست باکس

این قسمت هم که همین کار رو میکنه

ListBox1.AddItem c.Offset(0, 1)
ListBox1.AddItem c.Offset(0, 2)
ListBox1.AddItem c.Offset(0, 3) 

[leilaasgharpour@ymail.com]

در یک ستون قرار میده نه در یک ردیف

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

در یک ستون قرار میده نه در یک ردیف

قسمت دوم رو حذف کنید باید درست بشه

ListBox1.List(ListBox1.ListCount - 1, 1) = c.Offset(0, 1).Value
ListBox1.List(ListBox1.ListCount - 1, 2) = c.Offset(0, 2).Value
ListBox1.List(ListBox1.ListCount - 1, 3) = c.Offset(0, 3).Value 

[leilaasgharpour@ymail.com]

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

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

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

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