logo

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



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





01-02-2018 08:03 مساءً

السلام عليكم اما بعد


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

attachفلترة.rar
 
 
  فلترة.rar   تحميل rar مرات التحميل :(11)
الحجم :(24.693) KB





look/images/icons/i1.gif طلب مساعدة في تعديل كود فلترة جدول و جعله يقبل فلترة الارقام
  01-02-2018 08:24 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36752
الاعجاب : 184
وعليكم السلام أخي الكريم زياد
جرب الكود التالي عله يفي بالغرض إن شاء الله
CODE
Private Sub TextBox1_Change()
    Dim a           As Variant
    Dim rng         As Range
    Static c        As Range
    Dim lr          As Long
    Dim i           As Long

    Application.ScreenUpdating = False
        ActiveSheet.AutoFilterMode = False
        If Not c Is Nothing Then c.EntireRow.Hidden = False
        lr = Range("E1000").End(xlUp).Row
        Set c = Range("E4:E" & lr)
        a = c.Value
        
        If Len(TextBox1.Text) > 0 Then
            For i = 1 To UBound(a, 1)
                If IsNumeric(a(i, 1)) Then a(i, 1) = "'" & a(i, 1)
            Next i
            c.Value = a
            c.AutoFilter Field:=1, Criteria1:="=" & TextBox1.Text & "*"
        End If
        
        Set rng = c.SpecialCells(xlCellTypeVisible)
        ActiveSheet.AutoFilterMode = False
        
        For i = 1 To UBound(a, 1)
            If Left(a(i, 1), 1) = "'" Then
                a(i, 1) = Mid(a(i, 1), 2)
            End If
        Next i
        
        c.Value = a
        c.EntireRow.Hidden = True
        rng.EntireRow.Hidden = False
    Application.ScreenUpdating = True
End Sub




look/images/icons/i1.gif طلب مساعدة في تعديل كود فلترة جدول و جعله يقبل فلترة الارقام
  01-02-2018 09:37 مساءً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 76
المشاركات : 139
الجنس :
تاريخ الميلاد : 11-3-1977
قوة السمعة : 529
الاعجاب : 0
بارك الله فيك استاذ ياسر على مرورك العطر على الموضوع الكود جيد لكن لا اعلم ما سبب عدم عمله في الملف بحيث عند كتابة الرقم 1مثلا في التاكس بوكس لا يفلتر وبارك الله فيك




look/images/icons/i1.gif طلب مساعدة في تعديل كود فلترة جدول و جعله يقبل فلترة الارقام
  02-02-2018 02:33 مساءً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36752
الاعجاب : 184
لأن الكود في الملف الأصلي يتعامل مع النصوص - هذا والله أعلم
جرب الكود الذي أرفقته لك على أعمدة مختلفة (نصوص وأرقام) وسيعمل معك إن شاء الله




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



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
امل المساعدة  في معادلة لا تظهر الجمع تلقائي وهي SUBTOTAL ابوعلي الحبيب
6 118 ابوعلي الحبيب
محتاج مساعدة بالملف المرفق - لتغيير الارقام و التاريخ الى عربى mishoshow
1 37 mishoshow
طلب مساعدة في ترحيل غيابات التلاميذ ayoub2007
1 124 ayoub2007
مساعدة في تثبيت الحجم الساعي السنوي ayoub2007
0 38 ayoub2007
ارجو المساعدة فى كود استدعاء من اكثر من شيت ahmed88872
5 79 YasserKhalil

الكلمات الدلالية
مساعدة ، تعديل ، فلترة ، جدول ، جعله ، يقبل ، فلترة ، الارقام ،









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

الساعة الآن 11:59 AM