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

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


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





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

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



01-02-2018 08:03 مساء
زياد عبد الجليل
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 76
المشاركات : 140
الجنس : ذكر
تاريخ الميلاد : 11-3-1977
يتابعهم : 6
يتابعونه : 5
قوة السمعة : 529
 offline 

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



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


لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  فلترة.rar   تحميل rar مرات التحميل :(11)
الحجم :(24.693) KB


01-02-2018 08:24 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif طلب مساعدة في تعديل كود فلترة جدول و جعله يقبل فلترة الارقام
وعليكم السلام أخي الكريم زياد
جرب الكود التالي عله يفي بالغرض إن شاء الله
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

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

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




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


 










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

الساعة الآن 04:51 مساء