logo

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



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





16-09-2018 12:55 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس :
تاريخ الميلاد : 1-5-1989
الدعوات : 1
قوة السمعة : 6611
الاعجاب : 2
أمامنا جدول مع بيانات مختلفة
1- انقر على اي خلية من الجدول (ما عدا رأس الجدول) لتحصل على فلتر بقيمة هذه الخلية
2-انقر على اي خلية ( من رأس الجدول) لتحصل على كل البيانات
3-لإضافة بيانات على الجدول انقر على اول صف فارغ وأملأ الصف كما تشاء (لا يعمل الماكرو الا اذا كان الصف
كاملاً ببياناته 4 قيم)
ملاحظة: لا يعمل الماكرو Reset ولا الماكرو Make_On_Top كل بمفرده الا من خلال الماكرو الرئيسي SelectionChange
الماكرو
CODE

  Option Explicit
 Dim Lr%, Rng As Range
 
Sub Make_On_Top()
On Error GoTo Exit_Sub
Rng.Rows(1).Interior.ColorIndex = 6
    With ActiveSheet
      .Range("z1") = Cells(3, ActiveCell.Column)
      .Range("z2") = ActiveCell.Value
      .Range("a3").CurrentRegion.AdvancedFilter 1, Range("z1:z2")
      .Cells(3, ActiveCell.Column).Interior.ColorIndex = 8
    End With
Exit_Sub:
End Sub
'===========================
Sub Reset()
On Error GoTo Exit_Sub
 Rng.Rows(1).Interior.ColorIndex = 6
    On Error Resume Next
        ActiveSheet.ShowAllData
    On Error GoTo 0
Exit_Sub:
End Sub
'===========================
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Lr = Cells(Rows.Count, 1).End(3).Row
  Set Rng = Range("A3:D" & Lr)
If Not Intersect(Target, Rng) Is Nothing And _
      Application.CountA(Range(Cells(Target.Row, 1), _
      Cells(Target.Row, 4))) = 4 _
      And Target.Cells.Count = 1 Then
    '===========================
    If Target.Row = 3 Then
        Reset
    Else
        Make_On_Top
    End If
    '===========================
End If
 Range("z1:z2").Clear
End Sub


الملف مرفق
 
 
  Super Adv_Filter.rar   تحميل rar مرات التحميل :(14)
الحجم :(22.28) KB





look/images/icons/i1.gif Filter By_Selection
  16-09-2018 01:07 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1765
الدولة : مصر
الجنس :
الدعوات : 2
قوة السمعة : 9685
الاعجاب : 25
بارك الله فيك وزادك الله من علمه وجعله الله فى ميزان حسناتك



توقيع :ali mohamed ali


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

look/images/icons/i1.gif Filter By_Selection
  16-09-2018 01:45 مساءً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1824
الجنس :
الدعوات : 21
قوة السمعة : 20048
الاعجاب : 12
موقعي : زيارة موقعي
اخى الكريم الاستاذ سليم
لاثراء الموضوع نفس الفكره فى موضوع لى سابق
https://techno7asry.com/forum/index.php?page=topic&show=1&highlight=%D9%81%D9%84%D8%AA%D8%B1&id=135



توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله


look/images/icons/i1.gif Filter By_Selection
  16-09-2018 01:55 مساءً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-03-2018
رقم العضوية : 5025
المشاركات : 450
الجنس :
تاريخ الميلاد : 19-3-1990
قوة السمعة : 796
الاعجاب : 0
أحسنت استاذ سليم وبارك فيك استاذنا حسام موضوع ايضا رائع
جزاكم الله جميعا كل خير وأكثر الله من امثالكم




look/images/icons/i1.gif Filter By_Selection
  16-09-2018 04:33 مساءً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36759
الاعجاب : 186
بارك الله فيك أخي الحبيب سليم
لقد غمرتنا بكرمك وموضوعاتك المميزة والفريدة .. ما أروعك يا جدو ! 123




look/images/icons/i1.gif Filter By_Selection
  18-09-2018 02:36 مساءً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 477
الجنس :
تاريخ الميلاد : 1-4-1980
قوة السمعة : 882
الاعجاب : 8
شاكرين لك استاذ سليم موضوعاتك القيمة فى المنتدى
والشكر لكل القائمين على هذا المنتدى الرائع بارك الله فيكم جميعا




اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
نبذة مختصرة عن التصفية المتقدمة Advanced Filter YasserKhalil
24 4524 YasserKhalil
كود advanced filter لا يعمل المبتدأ
2 691 المبتدأ
نسخ البيانات باستخدام التصفية المتقدمة إلى ورقة عمل أخري Advanced Filter YasserKhalil
5 3139 YasserKhalil
الفلتر المتقدم advanced filter moh_gdvet
1 1055 moh_gdvet

الكلمات الدلالية
Filter ، By_Selection ،









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

الساعة الآن 08:08 AM