logo

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



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





06-09-2017 01:37 مساءً

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


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


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


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


توقيع :الصقر

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


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




look/images/icons/i1.gif عمل فلتره باستخدام الماوس -أكاديمية الصقر للتدريب
  06-09-2017 02:20 مساءً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 182
المشاركات : 107
الجنس :
تاريخ الميلاد : 23-10-1984
قوة السمعة : 754
الاعجاب : 2
جزاك الله خيرا



توقيع :Kamel meraghni

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


142

look/images/icons/i1.gif عمل فلتره باستخدام الماوس -أكاديمية الصقر للتدريب
  06-09-2017 02:32 مساءً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1824
الجنس :
الدعوات : 21
قوة السمعة : 20048
الاعجاب : 12
موقعي : زيارة موقعي
المشاركة الأصلية كتبت بواسطة: أشرف عبد المنعم حقيقي انا انبهرت بالكود لكن احتاج شرح الكود بمزيد من التفصيل
بمعنى ايه شرح الكود الشرح راح يطول لكن لو تقد كيفية الاستخدام اوك بس قولى قصدك بالظبط



توقيع :الصقر

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


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




look/images/icons/i1.gif عمل فلتره باستخدام الماوس -أكاديمية الصقر للتدريب
  06-09-2017 03:03 مساءً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36759
الاعجاب : 186
بارك الله فيك أخي الحبيب حسام ومشكور على موضوعاتك المميزة
الحقيقة أنني لم أنبهر دا لأني متعود منكم على الإبداع وتقديم كل ما هو مبهر :)

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




look/images/icons/i1.gif عمل فلتره باستخدام الماوس -أكاديمية الصقر للتدريب
  06-09-2017 03:04 مساءً   [6]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1824
الجنس :
الدعوات : 21
قوة السمعة : 20048
الاعجاب : 12
موقعي : زيارة موقعي
استاذ اشرف بالنسبه للشرح تابعنا هنقدم سلسله شروحات من الصفر
ام بخصوص الكود يمكنك الدخول لمحرر الاكود ونسخه
عندك فى حدث الورقه اكواد وفى الموديول اكواد



توقيع :الصقر

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


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




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




look/images/icons/i1.gif عمل فلتره باستخدام الماوس -أكاديمية الصقر للتدريب
  06-09-2017 07:49 مساءً   [9]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1332
الجنس :
الدعوات : 13
قوة السمعة : 10066
الاعجاب : 67
موقعي : زيارة موقعي
المشاركة الأصلية كتبت بواسطة: khaled alborene استاذ حسام كيف ربط الكود بالماوس بما انه الها مديول ومش بحدث الصفحة
اولا مشكور اخي حسام على الموضوع المميز

ثانيا اخي خالد هتلاقي حدثين في الشيت مرتبطين بالاكواد الموجودة بالموديول افتح محرر الاكواد واذهب للشيت وانت هتلاقي حدث للدبل كليك والاخر للكليك يمين
CODE
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

look/images/icons/i1.gif عمل فلتره باستخدام الماوس -أكاديمية الصقر للتدريب
  06-09-2017 08:16 مساءً   [10]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 9
المشاركات : 246
الجنس :
تاريخ الميلاد : 1-1-1985
الدعوات : 2
قوة السمعة : 641
الاعجاب : 10
CODE
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


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

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


توقيع :الاستاذ محمدي عبدالسميع
جزاكم الله خيرا

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




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

كود جميل !!





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





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









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

الساعة الآن 11:55 PM