تطبيق الشرط علي الصفوف

[a.h.a.h.hemdan]

مرفق جدول جاهز والمطلوب اخفاء واظهار الصفوف بناء علي الشرط بخانة الشريحة بناء علي المبلغ المدخل في خانة الدخل السنوي والصفوف التى لا ينطبق عليها الشرط تختفي

1.xlsx

ويكون ظهور الصفوف واختفاءها ديناميكيا

[عبدالله بشير عبدالله]

السلام عليكم

حسب فهمى لطلبك اليك الكود / اكتب القيمة في G2  

Private Sub Worksheet_Calculate()
    Dim cell As Range
    Application.EnableEvents = False
    For Each cell In Me.Range("E6:E12")
        If cell.Value = 0 Then
            cell.EntireRow.Hidden = True
        Else
            cell.EntireRow.Hidden = False
        End If
    Next cell
    Application.EnableEvents = True
End Sub

11.xlsb

[a.h.a.h.hemdan]

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

الثاني عاوز الأرقام اذا كانت عشرية تظهر غير كده لا

[حسونة حسين]

وعليكم السلام ورحمة الله وبركاته اخي عبدالله بشير

تعديل بسيط للكود

Private Sub Worksheet_Calculate()
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    
    Dim cell As Range
    Dim rngHide As Range
    
    For Each cell In Me.Range("E6:E12")
        If cell.Value = 0 Then
            If rngHide Is Nothing Then
                Set rngHide = cell
            Else
                Set rngHide = Union(rngHide, cell)
            End If
        End If
    Next cell
    
    Me.Range("E6:E12").EntireRow.Hidden = False
    If Not rngHide Is Nothing Then
        rngHide.EntireRow.Hidden = True
    End If
    
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

 

[a.h.a.h.hemdan]

الكود ده فيه حاجة غلط

[عبدالله بشير عبدالله]

58 دقائق مضت, a.h.a.h.hemdan said:

هل من طريقة لتسريع الاخراج لاني أرى انه يتعامل مع صف صف

 

 

كود الذي قدمه استاذنا حسونة حسين كافٍ وأسرع ، لأنه:

• يمرّ على النطاق مرة واحدة فقط لتحديد الصفوف التي يجب إخفاؤها.

• يستخدم Union لتجميع الصفوف وإخفائها دفعة واحدة بدل إخفاء كل صف على حدة.

• يعيد أولًا إظهار جميع الصفوف ثم تخفي فقط الصفوف التي فيها صفر.

• بالنسبة للارقام العشرية هذا ملفك وهذا التنسيق كما قدمته انت وان كان لديك نتسيق معين ارجو توضيحه