اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

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

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

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

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

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

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

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

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

auto_filter.rar

قام بنشر

اخي aymz077

السلام عليكم

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

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

تحياتي لك

قام بنشر

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

صباح الخير

استاذ نذار

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

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

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

today()-10=

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

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

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

'

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

, Criteria2:="="

End Sub

auto_filter.rar

قام بنشر

أستاذ / خبور

شكرا جزيلا

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

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

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

:clapping::fff::clapping:

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

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



اخوك / خبور
تم تعديل بواسطه خبور
قام بنشر

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

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

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

استاذ خبور

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

وردك واضح جدا

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information