اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

أخي الكريم

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

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

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

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

  • Like 2
رابط هذا التعليق
شارك

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

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

new_if_con_Y.rar

تم تعديل بواسطه وائل احمد المصري
  • Like 1
رابط هذا التعليق
شارك

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

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

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

 

  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information