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

[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