أكاديمية الصقر للتدريب

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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز
المشرف المتميز
المراقب المتميز
المدير المتميز
الموضوع المتميز
القسم المتميز
بكار للأبد Eslam Abdullah لا تميز خلال هذه الفترة YasserKhalil الداله الجديده المعرفه alsqrdate - حسام خطاب اكسيل اسئله واجابات




أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





نبذة مختصرة عن التصفية المتقدمة Advanced Filter

السلام عليكم ورحمة الله وبركاته إخواني الكرام وأحبابي في الله أقدم لكم موضوع بسيط ولن يطول الشرح فيه عن قصد .. فالقصد م ..



13-07-2018 07:44 مساء
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14732
الاعجاب : 5500
 offline 

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

إخواني الكرام وأحبابي في الله
أقدم لكم موضوع بسيط ولن يطول الشرح فيه عن قصد .. فالقصد من الموضوع هو محاولة البحث والتجربة للاستفادة بأكبر قدر من المعلومات
سأعطيكم الأساسيات فقط في سطور قليلة 
سأتحدث إليكم عن التصفية المتقدمة وهي هامة جداً في استخراج البيانات سواء بشروط أو من غير شروط
سأعطيكم شكل الكود وليس الكود نفسه لمحاولة التطبيق بأنفسكم 

بفرض أن لديك بيانات في النطاق من A1 إلى C20 وفي العمود الثالث يوجد أسماء شركات مكررة والمطلوب استخراج أسماء الشركات في العمود الثالث بدون تكرار باستخدام التصفية المتقدمة ، وتوضع النتائج في العمود الخامس أي بعد البيانات التي لديك ببعد عمودين

كيفية التطبيق ..
---------------
>> تقوم بالإشارة إلى نطاق يشير لكامل البيانات للنطاق الحالي ، بالاعتماد على النطاق الحالي للخلية A1 .. باستخدام متغير من النوع نطاق وليكن باسم r 
يمكنك مراجعة الموضوع التالي للمزيد لرؤية الروابط والمرفقات عليك الرد على الموضوع

>> تقوم بالإشارة إلى الخلية E1 ولكن ليس بشكل مباشر بل بشكل يعتمد على الخلية A1 بحيث تقوم بعمل إزاحة بمقدار عدد أعمدة النطاق الحالي زائد 2 .. لتكون أول خلية في النتائج هي الخلية E1 >> والنطاق سيكون في متغير من النوع نطاق باسم c

>> آخر جزء سيكون في سطر واحد ..حيث يتم الإشارة للنطاق الحالي r في العمود الثالث منه باستخدام Columns يليها قوسين وبين القوسين رقم العمود داخل النطاق .. وهو رقم 3
ثم يتم استخدام الحدث AdvancedFilter يليه مسافة .. وبعد المسافة توضع عدة بارامترات
* البارامتر الأول سيكون إما القيمة xlFilterInPlace (وتعني أن تكون نتائج التصفية في نفس العمود) أو xlFilterCopy (وتعني نسخ نتائج التصفية المتقدمة) .. ويمكن استخدام الثوابت 1 بدلاً من xlFilterInPlace .. أو الثابت 2 بدلاً من  xlFilterCopy ... وهنا بما أننا نريد النتائج في عمود آخر سنستخدم القيمة xlFilterCopy أو الرقم 2

* البارامتر الثاني هو نطاق الشروط وهنا لا يوجد شروط وبالتالي لا يوضع شيء بعد الفاصلة وتوضع فاصلة أخرى للانتقال للبارامتر الذي يليه

* البارامتر الثالث وهو أول خلية في نطاق النتائج وهو في هذه الحالة سيكون مخزن في المتغير c الذي سيشير إلى الخلية E1

* البارامتر الرابع والأخير عبارة عن قيمة منطقية أي False أو True ، وتستخدم True في حالة أنك تريد الحصول على القيم الفريدة أي الغير مكررة لهذا العمود . ومن ثم ستكون قيمة هذا البارامتر في مثالنا هو True

في انتظار تفاعلكم بملفات مرفقة وأكواد ..
وفقني الله وإياكم لكل خير

تقبلوا تحياتي
أخوكم في الله / ياسر خليل أبو البراء
 




لرؤية الروابط والمرفقات عليك الرد على الموضوع


أثارت هذه المشاركة إعجاب: عبدالله الضراسي، Eslam Abdullah، الصقر، مهند محسن، ali mohamed ali، عبدالجيد، عبدالله فتحى،





13-07-2018 09:49 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14732
الاعجاب : 5500
 offline 
look/images/icons/i1.gif نبذة مختصرة عن التصفية المتقدمة Advanced Filter
ما زال البحث جاااااااااااري عن متفاعل .. عن متعلم .. عن باحث ....... 30

أثارت هذه المشاركة إعجاب: عبدالله فتحى، السعيد الجزائري، عبدالجيد،




13-07-2018 10:51 مساء
مشاهدة مشاركة منفردة [2]
عبدالله فتحى
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-07-2018
رقم العضوية : 7066
المشاركات : 42
الجنس : ذكر
تاريخ الميلاد : 28-11-1982
يتابعهم : 14
يتابعونه : 1
قوة السمعة : 96
الاعجاب : 35
 offline 
look/images/icons/i1.gif نبذة مختصرة عن التصفية المتقدمة Advanced Filter
الله يبارك لك فى علمك ويزيدك من علمه اللهم امين

أثارت هذه المشاركة إعجاب: Eslam Abdullah، YasserKhalil، عبدالجيد،




14-07-2018 02:45 مساء
مشاهدة مشاركة منفردة [3]
مهند محسن
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-03-2018
رقم العضوية : 5025
المشاركات : 177
الجنس : ذكر
تاريخ الميلاد : 19-3-1990
يتابعهم : 0
يتابعونه : 5
قوة السمعة : 313
الاعجاب : 132
 offline 
look/images/icons/i1.gif نبذة مختصرة عن التصفية المتقدمة Advanced Filter
أحسنت استاذنا الكبير وبارك الله فيك
جعله الله فى ميزان حسناتك وزادك من رزقه وغفر لك

أثارت هذه المشاركة إعجاب: YasserKhalil، عبدالجيد،




14-07-2018 02:47 مساء
مشاهدة مشاركة منفردة [4]
ali mohamed ali
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 644
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 28
قوة السمعة : 3197
الاعجاب : 1026
 offline 
look/images/icons/i1.gif نبذة مختصرة عن التصفية المتقدمة Advanced Filter
دائما موضوعاتك قيمة وشيقة استاذى ياسر بارك الله فيك وجزاك الله كل خير وزادك الله من علمه
الى الأمام دائما

أثارت هذه المشاركة إعجاب: YasserKhalil، عبدالجيد،


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


14-07-2018 05:00 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14732
الاعجاب : 5500
 offline 
look/images/icons/i1.gif نبذة مختصرة عن التصفية المتقدمة Advanced Filter
بارك الله فيكم إخواني وأحبابي في الله
مشكور على مروركم العطر الذي أسعدني كثيراً وسأسعد أكثر لو وجدت تفاعل مع الموضوع ومحاولات وحتى ولو فاشلة .. لا عيب في الفشل .. تجرأ على تقديم حلول ولا يهمك الفشل

أثارت هذه المشاركة إعجاب: Eslam Abdullah،




15-07-2018 08:34 مساء
مشاهدة مشاركة منفردة [6]
Eslam Abdullah
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1287
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 3
يتابعهم : 3
يتابعونه : 63
قوة السمعة : 7783
الاعجاب : 2216
 offline 
look/images/icons/i1.gif نبذة مختصرة عن التصفية المتقدمة Advanced Filter
تلميذك وصل امستر ، سورى كنت مشغول حبتين لكن منستش موضوعك ابدا biggrin2
دا كود الهوم وورك
Sub test4()
Dim r As Range
    Set r = Range("A1").CurrentRegion
    r.Columns(3).AdvancedFilter Action:=2, CopyToRange:=r(1).Offset(, r.Columns.Count + 1) _
    , Unique:=True
End Sub

مرفق ملف بالتطبيق ، الكود بموديول 2 وموديول 1 فيه تطبيق الهووم وورك الخاص بالأسئلة اللى فاتت عن Current Region لافادة اخواتنا اكثر




لرؤية الروابط والمرفقات عليك الرد على الموضوع


أثارت هذه المشاركة إعجاب: YasserKhalil، عبدالجيد،




15-07-2018 08:48 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14732
الاعجاب : 5500
 offline 
look/images/icons/i1.gif نبذة مختصرة عن التصفية المتقدمة Advanced Filter
رائع أخي الحبيب إسلام .. ونعم االطالب المجتهد
للاختصار يمكن الاستغناء عن المسميات الخاصية بالبارامترات
Sub TestYasser()
    Dim r As Range
    
    Set r = Range("A1").CurrentRegion
    r.Columns(3).AdvancedFilter 2, , r(1).Offset(, r.Columns.Count + 1), True
End Sub

أثارت هذه المشاركة إعجاب: Eslam Abdullah، عبدالجيد،




15-07-2018 08:58 مساء
مشاهدة مشاركة منفردة [8]
Eslam Abdullah
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1287
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 3
يتابعهم : 3
يتابعونه : 63
قوة السمعة : 7783
الاعجاب : 2216
 offline 
look/images/icons/i1.gif نبذة مختصرة عن التصفية المتقدمة Advanced Filter
تمام تمام اضافة صغيرة كدا ممكن نغير TRUE ب 1 اختصرت اكتر اهو biggrin2
ويكون الكود كالتالى
Sub test4()
Dim r As Range
    Set r = Range("A1").CurrentRegion
    r.Columns(3).AdvancedFilter 2, , r(1).Offset(, r.Columns.Count + 1), 1
End Sub

استمر وانا معاك 63

أثارت هذه المشاركة إعجاب: YasserKhalil، عبدالجيد،




15-07-2018 09:16 مساء
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14732
الاعجاب : 5500
 offline 
look/images/icons/i1.gif نبذة مختصرة عن التصفية المتقدمة Advanced Filter
الله ينور على الاختصار الأخير .. فكرتني بالمقولة اللي بتقول : رقاصة وبترقص smile
أنا سعيد جداً بتفاعلك في الموضوع .. وخصوصاً أنه تقريباً لا يوجد طالب آخر في الفصل غيرك .. ربنا يرزقنا بعدد من الطلاب عشان يكون فيه منافسة 30

أثارت هذه المشاركة إعجاب: Eslam Abdullah، عبدالجيد،




15-07-2018 09:27 مساء
مشاهدة مشاركة منفردة [10]
Eslam Abdullah
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1287
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 3
يتابعهم : 3
يتابعونه : 63
قوة السمعة : 7783
الاعجاب : 2216
 offline 
look/images/icons/i1.gif نبذة مختصرة عن التصفية المتقدمة Advanced Filter
اى دا هو فيه رقاصه وبترقص الاتنين مع بعض blink
لا تقلق هنرزق برقاصات كتير قصدى طلاب كتير باذن الله biggrin2
وانا عايز زميل برضوا عشان ناكل سندوتشات تحت الدكه سوا وانت بتشرح laugh

أثارت هذه المشاركة إعجاب: YasserKhalil،




16-07-2018 06:28 صباحا
مشاهدة مشاركة منفردة [11]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14732
الاعجاب : 5500
 offline 
look/images/icons/i1.gif نبذة مختصرة عن التصفية المتقدمة Advanced Filter
اقتبـاس ،،
وانا عايز زميل برضوا عشان ناكل سندوتشات تحت الدكه سوا وانت بتشرح

ويقعد زميلك يقرص فيك وإنت كل شوية ترفع ايدك وتشتكي وتقول دا قرصني يا أستاذ .. يااااااااادي الغلب smile 

أثارت هذه المشاركة إعجاب: Eslam Abdullah، عبدالجيد،




16-07-2018 08:26 صباحا
مشاهدة مشاركة منفردة [12]
Eslam Abdullah
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1287
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 3
يتابعهم : 3
يتابعونه : 63
قوة السمعة : 7783
الاعجاب : 2216
 offline 
look/images/icons/i1.gif نبذة مختصرة عن التصفية المتقدمة Advanced Filter
ههههههههههه عشان نرجع لايام الشقاوع بقى biggrin2

أثارت هذه المشاركة إعجاب: YasserKhalil، عبدالجيد،






الكلمات الدلالية
نبذة ، مختصرة ، التصفية ، المتقدمة ، Advanced ، Filter ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 11:23 مساء

أعلن هنا
أعلن هنا
أعلن هنا