پرسش جستجو راحت در فیلتر کردن

[faslebahari]

با سلام دوستان لطفا عکس مورد نظر رو ببینید

بفرض من 5000عدد دارم
حالا مثلا میخوام 3تا عدد 58 و 387 و 894 رو این جدول انتخاب کنم
راه معمول و ابتدای اینه که فیلتر کنم و از همه رو از فیلتر دربیارم و دونه به دونه برم این اعداد رو گیر بیارم و بعد انتخاب کنم

حالا گفتم راهنمایی کنید چطوری سریع من این سه تا عدد رو در بین این اعداد جستجو و انتخاب کنم که دیگه نیام از شماره یک تا آخر بگردم و شماره هارو پیدا کنم.
ممنون میشم راهنمایی کنید دوستان

[M_ExceL]

با سلام دوستان لطفا عکس مورد نظر رو ببینید

بفرض من 5000عدد دارم
حالا مثلا میخوام 3تا عدد 58 و 387 و 894 رو این جدول انتخاب کنم
راه معمول و ابتدای اینه که فیلتر کنم و از همه رو از فیلتر دربیارم و دونه به دونه برم این اعداد رو گیر بیارم و بعد انتخاب کنم

حالا گفتم راهنمایی کنید چطوری سریع من این سه تا عدد رو در بین این اعداد جستجو و انتخاب کنم که دیگه نیام از شماره یک تا آخر بگردم و شماره هارو پیدا کنم.
ممنون میشم راهنمایی کنید دوستان

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

Sub MultiSelectFilter()
Dim myArray()
    Sheets(1).AutoFilterMode = False
    lr = Cells(Rows.Count, 4).End(3).Row
        ReDim Preserve myArray(1 To lr)
            For i = 1 To lr - 1
                myArray(i) = "" & Range("d" & i + 1).Value & ""
            Next i
    Range("A1").AutoFilter
    Range("A1").AutoFilter Field:=1, Criteria1:=myArray, Operator:=xlFilterValues
End Sub

بعد از اجرای فایل ماکرو رو فعال کنید سپس روی باتن فیلتر کلیک کنید.
با کلیک روی برداشتن فیلتر می تونید مقادیر جدیدی به فیلتر اضافه یا حذف کنید.
یا حق.

[faslebahari]

دوست عزیز از وقتی که گذاشتید سپاسگزارم
ولی من اینجوری نمیخوام
من میگم داخل همون قابلیت که فلش گذاشتم چطوری میشه