التصفية التلقائيةAuto filter

[احمدزمان]

بسم الله الرحمن الرحيم

و الصلاة و السلام على سيدنا وحبيبنا رسول الله محمد وعلى آله وصحبه اجمعين

أساتذتنا الأفاضل بالمنتدى

في هذا الملف المرفق تم عمل تصفية تلقائية – وعمل ماكرو يعمل على هذه التصفية في عامود اليوم

المطلوب ان يقوم الماكرو هنا بعمل تصفية لعمود تاريخ اليوم بحيث تظهر التاريخ للصفوف اكبر من او يساوي تاريخ اليوم ناقص عشرة ايام أي لمدة 10 ايام سبقة اليوم الحالي من الجهاز مع اظهار الخلايا الفارغة او يساوي فراغات.

وكلي امل ان اجد لديكم حل للمطلوب

مع تحياتي للجميع

وجزاكم الله كل خير – مقدما

auto_filter.rar

[نزار سليمان عيد]

اخي aymz077

السلام عليكم

يرجى توضيح المطلوب حيث ان السؤال غير واضح من حيث طلبك اظهار التاريخ للصفوف اكبر من او يساوي تاريخ اليوم بالجهاز مع طلبك لآخر 10 ايام تسبق اليوم الحالي!!!

فيفضل عمل ماتريد على نفس الملف المرفق يدويا وذلك لمزيد من التوضيح وان شاء الله تجد الحل

تحياتي لك

[احمدزمان]

وعليكم السلام ورحمة الله

صباح الخير

استاذ نذار

شاكر لك اهتمامك

كما تعلم استاذنا الفاضل ان خانة مخصصة في التصفية التلقائية لاتقبل أي قيمة متغيرة

فمثلا اذا اخترت التصفية الموجودة للعمود اليوم ومنها اخترت (مخصصة . . .) ثم اخترت اكبر او يساوي وفي خانة التحديد كتبة المعادلة

today()-10=

ثم موافق فانة لن يظهر أي صف به تاريخ حتى وان كان في مجال التاريخ المحدد بالمعادلة

وذلك بسبب ان الخانة في التصفية لا تقبل متغيرات و تتعامل مع المدخلات على انها نص ثابت

ارجو ان يكون المطلوب واضح لكم

'

Selection.AutoFilter Field:=1, Criteria1:=">=today()-10", Operator:=xlOr _

, Criteria2:="="

End Sub

auto_filter.rar

[عبدالله باقشير]

السلام عليكم ورحمة الله وبركاته

انظر الى المرفق بداخله الشرح ان شاء الله يكون المطلوب

اخوك خبور

auto_filter.rar

[احمدزمان]

أستاذ / خبور

شكرا جزيلا

وجزاك الله عني الف الف الف خير

و اسمحلي اقولك

انك انته - خبــيـر وكلك خــيــر

وعنندي شؤالين حول الماكرو المعمول اذا سمحت توضحلي

1- هل من الضروري تحديد العمود مع اسم الورقة كما ذكرت Range("D2:D" & Sheets("TT").[i1]).Select

2- هل يمكن الإستغناء عن اسم الورقة في شرط التصفية التلقائية وكتابة مرجع الخلية فقط مثل : .[J1] و [K1]

مع تكرار خالص شكري و تقديري لك

ولا انسى ان اشكر ايضا الاستاذ- نذار سليمان

وارجو ان تقبلو مني هذه الهدية تقديرا لكم

Al_Madinah.rar

مع خالص تقديري

أخوكم/احمد

[عبدالله باقشير]

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

حضرة المكرم الاخ / احمد المحترم
مشكور اخي على الهدية الطيبة من المدينة الطيبة

طيبة طابت بطيب طيب
فان لم تطب به فبمن تطيب

اللهم صلي وسلم على سيدنا محمد وعلى آله وصحبه وسلم

بالنسبة لسؤالك اولا : استخدام اسم الورقة مش ضروري ولكن تحديد العمود
( النطاق) لازم لانه قد يتغير تحديد النطاق بتغيير الداله (COUNT(D:D)+2)
المستخدمة لانك تريد اظهار الفراغات حسب طلبك والله اعلم سلامي لك

Sub Filter()

    Range("D2:D" & [I1]).Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:=">=" & [J1], Operator:=xlAnd _
        , Criteria2:="<=" & [K1]
End Sub

اخوك / خبور

تم تعديل مايو 21, 2007 بواسطه خبور

[احمدزمان]

بسم الله الرحمن الرحيم

و الصلاة و السلام على سيدنا محمد وعلى آله وصحبه اجمعين

السلام عليكم و رحمة الله

استاذ خبور

شكرا جزيلا لك على اهتمامك

وردك واضح جدا

جزاك الله خير الجزاء في الدنيا و الآخرة