البحث في الموقع
Showing results for tags 'تصفية متقدمة'.
تم العثور علي 4 نتائج
-
السلام عليكم ورحمة الله وبركاته إخوتي الكرام أساتذتي الأفاضل علماء ورواد منتدانا الكريم أرجو إجابتي على سؤال هين عندكم... بالمعادلات والأكواد كيف أقوم بالتصفية المتقدمة بين تاريخين ... ولكم جزيل شكري وامتناني والسلام عليكم -
السلام عليكم ورحمة الله وبركاته أخواني الاعزاء في هذا المنتدى محتاج مساعدتكم في ما يلى تصفية متقدمة.zip
-
بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه أما بعد: السلام عليكم ورحمة الله وبركاته ...إخوتي الكرام بعد أن اطلعت على دروس أخينا الحبيب ياسر خليل أبو البراء حول الفلترة المتقدمة وكذلك الفيديوهات التي تبين ذلك مشكوراً - جزاه الله خيراً على ما قدم ويقدم ولكم بمثله أيضاً - أردت أن أقدم لكم تصفية متقدمة بين تاريخين وفق عدة معايير ..بالكود حيث بإمكانك تحديد تاريخي البدء والانتهاء ..وأيضاً المعايير للتتغير تلقائياً وفق الكود في حدث الورقة كما يلي: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Not Intersect(Target, Range(" l4:p4")) Is Nothing Then Call تصفية_متقدمة End If End Sub أما الكود الأساسي للتصفية المتقدمة فهو في حدث موديول وفق الآتي: Sub تصفية_متقدمة() ' مفتاح الاختصار: Ctrl+Shift+S ورقة1.Range("B9").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _ "متقدمة!Criteria"), CopyToRange:=Range("متقدمة!Extract"), Unique:=False End Sub هذا من ناحية الأكواد ،أما المعادلات ضمن معادلة صفيف Ctrl+Shift+Enter يقوم بالتصفية حسب التاريخ: =IFERROR(INDEX(B$10:B$25;SMALL(IF(($C$3<$B$10:$B25)*($C$4>=$B$10:$B25);ROW($B$10:$B25)-9);ROW(A1)));"") أرجو أن تكون به فائدة ومن كان لديه ما يثري الموضوع فليتحفنا بمشاركته مشكوراً ...لأنني أحب التعلم وإن لم أستطع إدراك الكثير والحمد لله على ما يسّر الله لنا والصلاة والسلام على سيد المرسلين والحمد لله رب العالمين ...والسلام عليكم. حمل الملف من هنا
-
الاخوه الاعزاء .. ارجوا مساعدتى فى الملف المرفق وهو عمل بحث متقدم فى بيانات العاملين يانات العاملين.rar
