پرسش کد جستجو

[kazem1359]

سلام خدمت اساتید محترم
یک فایل خدمتتون ارسال کردم
در شیت hoome دکمه جستجو از تاریخ تاتاریخ بنده کدی می خوام که در شیت qekha بتوانم از تاریخ تا تاریخ را جستجو کنم سپس محدوده انتخاب شده در یک شیت دیگه کپی پیست شود ممنون میشم راهنمایی کنید.

[kazem1359]

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

از ادرس زیر:

http://s4.picofile.com/file/8363677642/Book44.zip.html

[mrhartsclube]

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

Private Sub CommandButton1_Click()
Dim i, j As Integer
i = 3                       'Starts cheque rows from the number that started in the sheet
j = 1                       'Array index counter
Dim Rowz()                    'Empty array to keep searched rows number
While (Sheets(2).Cells(i, 5) <> "")
    
    If J_DIFF(ComboBox1.Text, Sheets(2).Cells(i, 5).Value) >= 0 _
    And J_DIFF(Sheets(2).Cells(i, 5).Value, ComboBox2.Text) >= 0 Then
        ' Cheque date is in the specified range
        ReDim Preserve Rowz(j)
        Rowz(j) = i
        j = j + 1           'Increase j only if we hit a match
    End If
    i = i + 1               'Increase i to get cheque dates
Wend
For k = 1 To j - 1          'Writes rows
    For l = 2 To 13         'Writes columns
        Sheets(5).Cells(k, l) = Sheets(2).Cells(Rowz(k), l)
    Next l
Next k
End Sub

فقط چندتا نکته:

• این کد Error Handling نداره و اگه کمبوباکستون خالی باشه برنامه قطع میشه و یا اگه تاریخ رو سال/ماه/روز ننویسید برنامه اشتباه عمل میکنه و ... همه چیز باید کاملا درست باشه مگر اینکه خودتون این بخش رو اضافه کنید
• تاریخ رو از چپ به راست باید وارد کنید بنا به دلایلی که تابع تبدیل تاریخ به فارسیتون داره
• چرا از کمبو باکس استفاده کردید برای گرفتن تاریخها؟
• من یه شیت به کار اضافه کردم که داخل اون نشون بده نتایج رو
• نتیجه جستجو داخل شیت آخر کپی میشه، هربار هرچی نتیجه پیدا کنه روی قبلیا مینویسه و اضافه قبلیارو پاک نمیکنه

این نکات رو گفتم که ببینید چیا لازمه که اضافه بشه، و چیا ایراد داره، من اصل کد رو خیلی ساده فقط نوشتم.