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

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


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





Filter By_Selection

أمامنا جدول مع بيانات مختلفة 1- انقر على اي خلية من الجدول (ما عدا رأس الجدول) لتحصل على فلتر بقيمة هذه الخلية 2-انقر عل ..



16-09-2018 12:55 مساء
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 

أمامنا جدول مع بيانات مختلفة
1- انقر على اي خلية من الجدول (ما عدا رأس الجدول) لتحصل على فلتر بقيمة هذه الخلية
2-انقر على اي خلية ( من رأس الجدول) لتحصل على كل البيانات
3-لإضافة بيانات على الجدول انقر على اول صف فارغ  وأملأ الصف كما تشاء (لا يعمل الماكرو الا اذا كان الصف
    كاملاً ببياناته 4 قيم)
ملاحظة: لا يعمل الماكرو Reset ولا الماكرو Make_On_Top  كل بمفرده  الا من خلال الماكرو الرئيسي SelectionChange
الماكرو

  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


16-09-2018 01:07 مساء
مشاهدة مشاركة منفردة [1]
ali mohamed ali
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1766
الدولة : مصر
الجنس : ذكر
الدعوات : 2
يتابعهم : 0
يتابعونه : 68
قوة السمعة : 9632
عدد الإجابات: 46
 offline 
look/images/icons/i1.gif Filter By_Selection
بارك الله فيك وزادك الله من علمه وجعله الله فى ميزان حسناتك
توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله

16-09-2018 01:45 مساء
مشاهدة مشاركة منفردة [2]
الصقر
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1824
الجنس : ذكر
الدعوات : 21
يتابعهم : 0
يتابعونه : 748
قوة السمعة : 19987
موقعي : زيارة موقعي
عدد الإجابات: 2
 offline 
look/images/icons/i1.gif Filter By_Selection
اخى الكريم الاستاذ سليم 
لاثراء الموضوع نفس الفكره فى موضوع لى سابق
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
توقيع :الصقر

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


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

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

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




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


 










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

الساعة الآن 12:12 صباحا