امکان نمایش جستجوی تاریخ در لیست باکس

[mreza]

باسلام
من می خوام در فایل پیوست وقتی بازه بین دوتاریخ رو فیلتر می کنم داخل لیست باکس یوزر فرم نمایش داده بشه نه داخل شیت اکسل.

ممنون از راهنمایی شما

[Ali Parsaei]

سلام،
کد دگمه جستجو را به صورت زير تغيير دهيد: (محدوده اطلاعات را تا A500 فرض کرده ام)


Private Sub CommandButton1_Click()
Dim C As Range
ListBox1.Clear
For Each C In Range("A2:A500")
If C.Value >= ComboBox1.Text And C.Value <= ComboBox2.Text Then
ListBox1.AddItem C
End If
Next
End Sub

[mreza]

ممنون آقای پارسا
با عرض معذرت. اگه بخوام همه اطلاعات در لیست باکس بیاد باید چه تغییراتی در کد ها بدم

[iranweld]

با سلام

با کسب اجازه از مهندس پارسا

این تغییرات را در کدها ایجاد کنید

i = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row

این دستور آخرین سلول استفاده شده در ستون A را بدست میاورد


Private Sub CommandButton1_Click()
Dim C As Range
Dim i As Long

i = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row

ListBox1.Clear
For Each C In Range("A2:A" & i)
If C.Value >= ComboBox1.Text And C.Value <= ComboBox2.Text Then
ListBox1.AddItem C
End If
Next
End Sub

[mokaram]

ممنون آقای پارسا
با عرض معذرت. اگه بخوام همه اطلاعات در لیست باکس بیاد باید چه تغییراتی در کد ها بدم

فکر کنم مشکلتون با توجه به تصویر زیر حل بشه ( عدد یک را به تعداد ستونهایی که اطلاعات دارید تغییر بدید )

http://s3.picofile.com/file/8212870876/ColumCount.jpg

[Ali Parsaei]

ببخشيد، حواسم نبود چهار تا ستون داريد،
چند خط بايد به کد اضافه کنيد: (البته خط چهارم کد همان کاري که جناب M-R-M در تصوير فوق توضيح داده اند را انجام مي دهد)


Private Sub CommandButton1_Click()
Dim C As Range
ListBox1.Clear
ListBox1.ColumnCount = 4
For Each C In Range("A2:A500")
If C.Value >= ComboBox1.Text And C.Value <= ComboBox2.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
ListBox1.List(ListBox1.ListCount - 1, 3) = C.Offset(0, 3).Value
ListBox1.List(ListBox1.ListCount - 1, 4) = C.Offset(0, 4).Value
End If
Next
End Sub

[mreza]

باسپاس فراوان
آقای پارسا