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

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


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


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

Preview




عمل فلتره باستخدام الماوس -أكاديمية الصقر للتدريب

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



06-09-2017 01:37 مساء
الصقر
menu_open عضوية موثقة
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1772
الجنس : ذكر
الدعوات : 20
يتابعهم : 0
يتابعونه : 648
قوة السمعة : 18730
الاعجاب : 117
موقعي : زيارة موقعي
 offline 

السلام عليكم
وعدناكم بكل ما هو جديد ونحن على العهد
اليوم نقدم لكم اكواد حصريه بأكاديمية الصقر للتدريب
تقوم بعمل فلتره باستخدام الماوس ( دبل كليك لعمل فلتره على خليه محدده بالعمود - ولألغاء الفتره تضغط رايت كليك
تقبلوا تحياتى

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب


MzE0NDE3MQ3939sort
 
 
  عمل فلتره باستخدام الماوس -أكاديمية الصقر للتدريب.zip   تحميل zip مرات التحميل :(138)
الحجم :(48.443) KB




توقيع :الصقر

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


06-09-2017 02:07 مساء
مشاهدة مشاركة منفردة [1]
أشرف عبد المنعم
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 06-09-2017
رقم العضوية : 399
المشاركات : 7
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 20-3-1971
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 28
الاعجاب : 0
 offline 
look/images/icons/i1.gif عمل فلتره باستخدام الماوس -أكاديمية الصقر للتدريب
حقيقي انا انبهرت بالكود لكن احتاج شرح الكود بمزيد من التفصيل




06-09-2017 02:20 مساء
مشاهدة مشاركة منفردة [2]
Kamel meraghni
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 182
المشاركات : 106
الجنس : ذكر
تاريخ الميلاد : 23-10-1984
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 643
الاعجاب : 1
 offline 
look/images/icons/i1.gif عمل فلتره باستخدام الماوس -أكاديمية الصقر للتدريب
جزاك الله خيرا



توقيع :Kamel meraghni

الحمد لله وكفى والصلاة والسلام على الحبيب المصطفى



142



06-09-2017 02:32 مساء
مشاهدة مشاركة منفردة [3]
الصقر
menu_open عضوية موثقة
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1772
الجنس : ذكر
الدعوات : 20
يتابعهم : 0
يتابعونه : 648
قوة السمعة : 18730
الاعجاب : 117
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif عمل فلتره باستخدام الماوس -أكاديمية الصقر للتدريب
المشاركة الأصلية كتبت بواسطة: أشرف عبد المنعم
حقيقي انا انبهرت بالكود لكن احتاج شرح الكود بمزيد من التفصيل

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



توقيع :الصقر

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


06-09-2017 02:47 مساء
مشاهدة مشاركة منفردة [4]
أشرف عبد المنعم
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 06-09-2017
رقم العضوية : 399
المشاركات : 7
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 20-3-1971
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 28
الاعجاب : 0
 offline 
look/images/icons/i1.gif عمل فلتره باستخدام الماوس -أكاديمية الصقر للتدريب
زي ما تفضلت و كتبت شرح الدالة في صورة 
ممكن تكتب الكود و جانبه شرح لكل سطر 
في صورة برضو او حتي ملف أكسل أو وورد
ليس الكل علي دراية عالية بكل دوال الأكسيل biggrin2




06-09-2017 03:03 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 9001
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26666
الاعجاب : 672
 offline 
look/images/icons/i1.gif عمل فلتره باستخدام الماوس -أكاديمية الصقر للتدريب
بارك الله فيك أخي الحبيب حسام ومشكور على موضوعاتك المميزة
الحقيقة أنني لم أنبهر دا لأني متعود منكم على الإبداع وتقديم كل ما هو مبهر smile

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




06-09-2017 03:04 مساء
مشاهدة مشاركة منفردة [6]
الصقر
menu_open عضوية موثقة
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1772
الجنس : ذكر
الدعوات : 20
يتابعهم : 0
يتابعونه : 648
قوة السمعة : 18730
الاعجاب : 117
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif عمل فلتره باستخدام الماوس -أكاديمية الصقر للتدريب
استاذ اشرف بالنسبه للشرح تابعنا هنقدم سلسله شروحات من الصفر
ام بخصوص الكود يمكنك الدخول لمحرر الاكود ونسخه
عندك فى حدث الورقه اكواد وفى الموديول اكواد
 



توقيع :الصقر

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


06-09-2017 07:00 مساء
مشاهدة مشاركة منفردة [7]
ابوحمزه
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 233
المشاركات : 14
الجنس : ذكر
تاريخ الميلاد : 1-1-1983
الدعوات : 1
يتابعهم : 4
يتابعونه : 4
قوة السمعة : 78
الاعجاب : 1
 offline 
look/images/icons/i1.gif عمل فلتره باستخدام الماوس -أكاديمية الصقر للتدريب
كود رائع ... بارك الله فيكم





06-09-2017 07:06 مساء
مشاهدة مشاركة منفردة [8]
khaled alborene
menu_open
عضو متميز
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 778
الدولة : الاردن
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 10
يتابعونه : 10
قوة السمعة : 929
الاعجاب : 0
 offline 
look/images/icons/i1.gif عمل فلتره باستخدام الماوس -أكاديمية الصقر للتدريب
استاذ حسام كيف ربط الكود بالماوس بما انه الها مديول ومش بحدث الصفحة




06-09-2017 07:49 مساء
مشاهدة مشاركة منفردة [9]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1259
الجنس : ذكر
الدعوات : 13
مشاركات مكتبة الميديا: 53
يتابعهم : 2
يتابعونه : 652
قوة السمعة : 9326
الاعجاب : 82
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif عمل فلتره باستخدام الماوس -أكاديمية الصقر للتدريب
المشاركة الأصلية كتبت بواسطة: khaled alborene
استاذ حسام كيف ربط الكود بالماوس بما انه الها مديول ومش بحدث الصفحة


اولا مشكور اخي حسام على الموضوع المميز 

ثانيا اخي خالد هتلاقي حدثين في الشيت مرتبطين بالاكواد الموجودة بالموديول افتح محرر الاكواد واذهب للشيت وانت هتلاقي حدث للدبل كليك والاخر للكليك يمين
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell = "" Then Exit Sub
Cancel = True
Call Filter
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell = "" Then Exit Sub
Cancel = True
Call EndFilter
End Sub


تحياتي



توقيع :Yasser Elaraby
663013020


06-09-2017 08:16 مساء
مشاهدة مشاركة منفردة [10]
ناصر سعيد
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 9
المشاركات : 232
الجنس : ذكر
تاريخ الميلاد : 1-1-1985
الدعوات : 1
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 525
الاعجاب : 4
 offline 
look/images/icons/i1.gif عمل فلتره باستخدام الماوس -أكاديمية الصقر للتدريب
Sub Filter()
'هذا الكود للاستاذ المحترم الصقر
'الهدف من الكود هو الفلتره باستخدام الماوس
'نم في 5/9/2017
'=========
    If ActiveCell = "" Then Exit Sub
    Selection.AutoFilter Field:=ActiveCell.Column - (ActiveCell.CurrentRegion.Column - 1), Criteria1:=ActiveCell
End Sub
Sub EndFilter()

    If ActiveCell = "" Then Exit Sub
        Dim ws As Worksheet
    Dim f As Filter
    Dim n As Long
    Set ws = ActiveSheet
    On Error GoTo 1
    For Each f In ws.AutoFilter.Filters
        If f.On Then n = n + 1
    Next f
1
    If n <= 1 Then
        ActiveSheet.AutoFilterMode = False
    Else
        Selection.AutoFilter Field:=ActiveCell.Column - (ActiveCell.CurrentRegion.Column - 1)
    End If
End Sub
'======================
'======================
' من هنا يوضع في حدث الصفحه المراد فلترتها
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'هذا الكود يوضع في حدث الورقه المطلوب فلترتها
If ActiveCell = "" Then Exit Sub
Cancel = True
Call Filter
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell = "" Then Exit Sub
Cancel = True
Call EndFilter
End Sub

جزاكم الله خيرا وبارك فيك استاذ الصقر



توقيع :ناصر سعيد
جزاكم الله خيرا


06-09-2017 08:41 مساء
مشاهدة مشاركة منفردة [11]
khaled alborene
menu_open
عضو متميز
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 778
الدولة : الاردن
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 10
يتابعونه : 10
قوة السمعة : 929
الاعجاب : 0
 offline 
look/images/icons/i1.gif عمل فلتره باستخدام الماوس -أكاديمية الصقر للتدريب
شكرا الك استاذ ياسر ما قصرة 




06-09-2017 09:10 مساء
مشاهدة مشاركة منفردة [12]
خالد عيسى
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 19
المشاركات : 26
الجنس : ذكر
تاريخ الميلاد : 9-9-1969
الدعوات : 1
يتابعهم : 1
يتابعونه : 8
قوة السمعة : 243
الاعجاب : 1
 offline 
look/images/icons/i1.gif عمل فلتره باستخدام الماوس -أكاديمية الصقر للتدريب

كود جميل !!









الكلمات الدلالية
فلتره ، باستخدام ، الماوس ، -أكاديمية ، الصقر ، للتدريب ،


 








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

الساعة الآن 05:10 مساء

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