اغلاق الصفوف ذات الرصيد 0

[حليم ناصر]

سادة الاعضاء 

سلام عليكم ورحمة الله تعالى وبركاته

اتمنى ان تكونوا  في صحة جيدة وفي احسن حال ان شاء الله

لي جدول به بيانات مثل ماهو في الملف

 طلبي هو اغلاق الصفوف ذات الرصيد صفر  وهذا بشكلين

الشكل الاول 

هو عمل زر  عند ما اتمم البيانات مثل ما في الجدول المذكور  اقوم الضغط على الزر الاغلاق فيقوم بغلق الصفوف ذات الرصيد صفر " 0 " اللي في العمود F   ( هذا طلبي اللي مركز عليه )

الشكل الثاني  وهو اقتراح اخي لنفس الموضوع

وهو له جدولين  الاول لملئ البيانات  والثاني ينتقل ايه البيانات الجدول الاول 

عندما يكون الجدول الاول فارغ ليس به بيانات يكون الجدول الثاني كل الصفوفه مغلقة بحكم ان الارصيد بالعمود " F " تساوي كلها  " 0 " وعند ملئ الجدول الاول تنتقل البيانات الى الجدول الثاني وبالتالي يفتح الصفوف التي بها رصيد اكبر من " 0 " فقط

اتمنى ان يكون الشرح واضح ان شاء الله

وفي انتظار ردكم تقبلو مني فائق التقدير والاحترام    وشكرا

والسلام عليكم ورحمة الله تعالى وبركاته

 

اغلاق الصفوف ذات الرصيد 0.xlsm

[Foksh]

3 ساعات مضت, حليم ناصر said:

هو عمل زر  عند ما اتمم البيانات مثل ما في الجدول المذكور  اقوم الضغط على الزر الاغلاق فيقوم بغلق الصفوف ذات الرصيد صفر " 0 " اللي في العمود F   ( هذا طلبي اللي مركز عليه )

فيما يتعلق بالطلب الأهم لديك ، أنصحك أولاً بضبط التنسيق للخلايا في العمود D كاملةً ، لتصبح :-

ثم في الزر الذي انشأته انت في مشروعك ، استخدم الحدث التالي كمثال :-

Private Sub CommandButton1_Click()
    Dim lastRow As Long
    Dim i As Long
    Dim diff As Double
    lastRow = Cells(Rows.Count, "D").End(xlUp).Row
    For i = 8 To lastRow
        diff = Cells(i, "D").Value - Cells(i, "E").Value
        If diff < 0 Then
            Cells(i, "F").Value = 0
        Else
            Cells(i, "F").Value = diff
        End If
    Next i
End Sub

جرب انقر على الزر وشوف النتيجة إن كانت صحيحة في الملف المرفق ..

ثم ننتقل الى الطلب الثاني ..

اغلاق الصفوف ذات الرصيد 0.xlsm

[hegazee]

حسب ما فهمت جرب الملف التالي

اغلاق الصفوف ذات الرصيد 0 (2).xlsm

[حليم ناصر]

سلام عليكم

اخي foksh  شكرا على الرد ولكن لم ينفذ ما طلبته اتمنى ان ترى ان كان هناك خطا

اخي  hegazee  اشكرك على الرد الجميل على ما طلبته  لكن اريد ان اضيف اليه معلومة في العمل الدي اقوم به  يوجد اكثر من جدول  حوالي من 20 الى ثلاثين جدول  وكل جدول يكون عدد االصفوفه حوالي 20 صف وبين جدول وجدول كذلك عدد من الصفوف اريد لكل جدول زر خاص به لاغلاق صفوفه التي يكون الرصيد يساوي 0 

اتمنى ان اجد الجواب كما عملته في الحواب الاول  لكن لكل جدول على حدى

مرة اخرى اشكرك اخي foksh  واخي hegazee على الرد وجزاكم الله خيرا

وفي انتظار ردكم تقبلو مني فائق التقدير والاحترام    وشكرا

والسلام عليكم ورحمة الله تعالى وبركاته

اغلاق الصفوف ذات الرصيد 0 (2) (1).xlsm