logo

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



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





13-07-2018 07:44 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10534
رصيد العضو : 3
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36769
الاعجاب : 191
السلام عليكم ورحمة الله وبركاته

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

بفرض أن لديك بيانات في النطاق من 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

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

رابط الملف المرفق من هنا

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




look/images/icons/i1.gif نبذة مختصرة عن التصفية المتقدمة Advanced Filter
  13-07-2018 09:49 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10534
رصيد العضو : 3
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36769
الاعجاب : 191
ما زال البحث جاااااااااااري عن متفاعل .. عن متعلم .. عن باحث ....... 30




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




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




look/images/icons/i1.gif نبذة مختصرة عن التصفية المتقدمة Advanced Filter
  14-07-2018 02:47 مساءً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1766
رصيد العضو : 1
الدولة : مصر
الجنس :
الدعوات : 2
قوة السمعة : 9687
الاعجاب : 26
دائما موضوعاتك قيمة وشيقة استاذى ياسر بارك الله فيك وجزاك الله كل خير وزادك الله من علمه
الى الأمام دائما



توقيع :ali mohamed ali


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

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




look/images/icons/i1.gif نبذة مختصرة عن التصفية المتقدمة Advanced Filter
  15-07-2018 08:34 مساءً   [6]
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
رصيد العضو : 0
الدولة : مصر
الجنس :
تاريخ الميلاد : 1-9-1995
الدعوات : 5
قوة السمعة : 10861
الاعجاب : 6
موقعي : زيارة موقعي
تلميذك وصل امستر ، سورى كنت مشغول حبتين لكن منستش موضوعك ابدا biggrin2
دا كود الهوم وورك
CODE
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 لافادة اخواتنا اكثر
 
 
  CurrentRegion Tutorial Excel-Egy.zip   تحميل zip مرات التحميل :(23)
الحجم :(20.972) KB





look/images/icons/i1.gif نبذة مختصرة عن التصفية المتقدمة Advanced Filter
  15-07-2018 08:48 مساءً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10534
رصيد العضو : 3
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36769
الاعجاب : 191
رائع أخي الحبيب إسلام .. ونعم االطالب المجتهد
للاختصار يمكن الاستغناء عن المسميات الخاصية بالبارامترات
CODE
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




look/images/icons/i1.gif نبذة مختصرة عن التصفية المتقدمة Advanced Filter
  15-07-2018 08:58 مساءً   [8]
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
رصيد العضو : 0
الدولة : مصر
الجنس :
تاريخ الميلاد : 1-9-1995
الدعوات : 5
قوة السمعة : 10861
الاعجاب : 6
موقعي : زيارة موقعي
تمام تمام اضافة صغيرة كدا ممكن نغير TRUE ب 1 اختصرت اكتر اهو biggrin2
ويكون الكود كالتالى
CODE
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




look/images/icons/i1.gif نبذة مختصرة عن التصفية المتقدمة Advanced Filter
  15-07-2018 09:16 مساءً   [9]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10534
رصيد العضو : 3
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36769
الاعجاب : 191
الله ينور على الاختصار الأخير .. فكرتني بالمقولة اللي بتقول : رقاصة وبترقص :)
أنا سعيد جداً بتفاعلك في الموضوع .. وخصوصاً أنه تقريباً لا يوجد طالب آخر في الفصل غيرك .. ربنا يرزقنا بعدد من الطلاب عشان يكون فيه منافسة 30




look/images/icons/i1.gif نبذة مختصرة عن التصفية المتقدمة Advanced Filter
  15-07-2018 09:27 مساءً   [10]
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
رصيد العضو : 0
الدولة : مصر
الجنس :
تاريخ الميلاد : 1-9-1995
الدعوات : 5
قوة السمعة : 10861
الاعجاب : 6
موقعي : زيارة موقعي
اى دا هو فيه رقاصه وبترقص الاتنين مع بعض blink
لا تقلق هنرزق برقاصات كتير قصدى طلاب كتير باذن الله biggrin2
وانا عايز زميل برضوا عشان ناكل سندوتشات تحت الدكه سوا وانت بتشرح laugh




look/images/icons/i1.gif نبذة مختصرة عن التصفية المتقدمة Advanced Filter
  16-07-2018 06:28 صباحاً   [11]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10534
رصيد العضو : 3
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36769
الاعجاب : 191
اقتبـاس ،، وانا عايز زميل برضوا عشان ناكل سندوتشات تحت الدكه سوا وانت بتشرح
ويقعد زميلك يقرص فيك وإنت كل شوية ترفع ايدك وتشتكي وتقول دا قرصني يا أستاذ .. يااااااااادي الغلب :)




look/images/icons/i1.gif نبذة مختصرة عن التصفية المتقدمة Advanced Filter
  16-07-2018 08:26 صباحاً   [12]
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
رصيد العضو : 0
الدولة : مصر
الجنس :
تاريخ الميلاد : 1-9-1995
الدعوات : 5
قوة السمعة : 10861
الاعجاب : 6
موقعي : زيارة موقعي
ههههههههههه عشان نرجع لايام الشقاوع بقى biggrin2




اضافة رد جديد اضافة موضوع جديد
الصفحة 2 من 2 < 1 2 >





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









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

الساعة الآن 03:28 AM