كود،جمل،شرطية،مركبة،اكسيل كود الجمل الشرطية المركبة

[يونس ابو يزن]

الإخوة الخبراء ، أرجو المساعدة في كود لعمل فلترة بشروط مركبة، المطلوب في المرفق. مع خالص الشكر و التقدير لجهودكم. if_con_Y.rar

if_con_Y.rar

[يونس ابو يزن]

للرفع

[ياسر خليل أبو البراء]

أخي الكريم

يرجى تغيير اسم الظهور للغة العربية

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

الملف غير منطقي بالنسبة للطلب أو يمكن أكون فهمت المطلوب بشكل خاطيء

يرجى إرفاق بعض النتائج المتوقعة وتوضيح المسألة بشيء من التفصيل

[يونس ابو يزن]

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

new_if_con_Y.rar

[وائل احمد المصري]

بعد أذن اخويا ياسر

اخي يونس تم اصلاح الخطاء في ملفك برجاء الاطلاع اذا ما تم حل المشكلة ام لا

new_if_con_Y.rar

تم تعديل أكتوبر 10, 2015 بواسطه وائل احمد المصري

[يونس ابو يزن]

أشكرك أخي وائل المصري على جهودك  و أشكر كل من قدم مساعدة أو كانت لديه نية لذلك و منعته الظروف

[ياسر خليل أبو البراء]

بارك الله فيك أخي الحبيب وائل ..

إليك نفس الكود بطريقة مماثلة تقريباً مع تصنيف الشروط حسب الفصل الدراسي الأول أو الثاني ، ثم داخل كل شرط الشروط الأخرى

Private Sub Worksheet_Activate()
    With ActiveSheet
        .Unprotect
        .AutoFilterMode = False
        If .Range("I1").Value = "الأول" Then
            If .Range("I2").Value = "التاسع" Or .Range("I2").Value = "السادس" Then
                .Range("A12:F12").AutoFilter Field:=4, Criteria1:=">=16", Operator:=xlAnd
            ElseIf .Range("I2").Value = "الرابع" Or .Range("I2").Value = "الخامس" Or .Range("I2").Value = "السابع" Or .Range("I2").Value = "الثامن" Or .Range("I2").Value = "العاشر" Or .Range("I2").Value = "الحادي عشر" Then
                .Range("A12:F12").AutoFilter Field:=4, Criteria1:=">=24", Operator:=xlAnd
            End If
        ElseIf .Range("I1").Value = "الثاني" Then
            If .Range("I2").Value = "التاسع" Or .Range("I2").Value = "السادس" Then
                .Range("A12:F12").AutoFilter Field:=4, Criteria1:=">=32", Operator:=xlAnd
            ElseIf .Range("I2").Value = "الرابع" Or .Range("I2").Value = "الخامس" Or .Range("I2").Value = "السابع" Or .Range("I2").Value = "الثامن" Or .Range("I2").Value = "العاشر" Or .Range("I2").Value = "الحادي عشر" Then
                .Range("A12:F12").AutoFilter Field:=4, Criteria1:=">=24", Operator:=xlAnd
            End If
        End If
        .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    End With
End Sub

 

[يونس ابو يزن]

شكرا لك أخي الكريم ياسر على جهودك و بارك الله فيكم جميعا