اغلاق الصفوف ذات الرصيد 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