طلب مساعدة - كود إخفاء السطر إذا كانت هناك خلية بقيمة معينة

[aly555]

السادة الافاضل أعضاء المنتدي الكريم

بعد التحية

أرجو التكرم بمساعدتي في عمل كود تكون وظيفته كالأتي :

إذا كانت خلية معينة = صفر مثلا

يقوم بإخفاء الصف بالكامل

وإذا كانت لاتساوي صفر تظل كما هي ولا يحدث أي تغيير

بالإضافة إلي كود لإعادة الخلايا التي تم إخفاؤها مرة أخري

ولكم جزيل الشكر

أخوكم علي

[aly555]

الاستاذ المحترم / خبور خير

برجاء مساعدتي في المشكلة أعلاه

وجزاك الله كل خير

علي حسن

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

أستخدم الكود التالى :

Dim i As Integer

Dim MY_Sheet As String

Sub Show_All()

    MY_Sheet = "Sheet1"

    UnHid

End Sub

Sub DOIT()

    MY_Sheet = "Sheet1"

    UnHid

    Hid

End Sub

Private Function UnHid()

    For i = 1 To 10

        Sheets(MY_Sheet).Rows(i).Hidden = False

    Next i

End Function

Private Function Hid()

    For i = 1 To 10

        If Sheets(MY_Sheet).Cells(i, "A").Value = 0 Then

            Sheets(MY_Sheet).Rows(i).Hidden = True

        End If

    Next i

End Function

و قد قمت بأضافه مفتاح لأظهار جميع الصفوف اذا اردت

مرفق ملف

السلام عليكم

Hide.rar

[aly555]

أخي الكريم

لا أعرف طريقة مناسبة لشكرك

وليس بوسعي شئ إلا قول جزاك الله عني كل الخير

ولك مني دعوة بصلاة الفجر

جزاك الله خير مرة أخري

أخوك/ علي حسن