تعديل على كود اخفاء الصفوف الصفرية لاستاذى الفاضل بن علية حاجي

[ابواسماء ابوزيد]

هذا الكود لاستاذى الفاضل بن علية حاجي اريد تعديل عليه بحيث يقوم بإخفاء الصفوف من مسلسل (1) وحتى مسلسل (7) ثم من مسلسل (18) وحتى مسلسل(23) وجزاكم الله خيراً

 

البرنامج.xlsm

تم تعديل يناير 30 بواسطه ابواسماء ابوزيد

[محمد هشام.]

Sub test1()
 Dim Cpt As Range, Rng As Range
 Application.ScreenUpdating = False

Irows = "12:34"

Set Cpt = Range("A12:A" & Cells(Rows.Count, "A").End(xlUp).Row)
For Each Rng In Cpt

    If Rng.Value = "0" Then Rng.EntireRow.Hidden = True
    Next Rng
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Rows(Irows).Hidden = False
    
    Application.ScreenUpdating = True

End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub test2()
   Dim i As Long, LastRow As Long
   Application.ScreenUpdating = False
   
   StartRow = 12: LastRow = 34
  
   Rows(StartRow & ":" & LastRow).EntireRow.Hidden = False
   
   For i = LastRow To StartRow Step -1
   
     If Cells(i, "A") = "0" Then Rows(i).Hidden = True
     
   Next i
    ActiveSheet.PrintOut
    Rows(StartRow & ":" & LastRow).EntireRow.Hidden = False
   
   Application.ScreenUpdating = True
End Sub

البرنامج.xlsm

في حالة الرغبة بتسلسل عمود (م) على حسب البيانات الموجودة أثناء الطباعة قم بإستبدال المعادلة الخاصة بك بالصيغة التالية مع سحبها للأسفل  الخلية (B12)

=IF(D12>0;SUBTOTAL(103;$D12:D$12);"")

تم تعديل يناير 31 بواسطه محمد هشام.

[ابواسماء ابوزيد]

كل الشكر والتقدير للاستاذ محمد هشام  على هذا العمل وسرعه الرد جزاكم الله خير وجعله الله فى موازين حسناتكم

[ابواسماء ابوزيد]

استاذى الفاضل المعادله هذه لاتتوافق مع المعادلات التى استخدمها فهل هناك معادله لتظهر تسلسل البيانات بعد اخفاء بعض الصفوف ان تظهر من مسلسل (1) وجزاكم الله خيرا

البرنامج.xlsm

[محمد هشام.]

ليس  لي علم عن المعادلات التي تستخدمها لاكن لا اظن انها لديها اي علاقة بالموضوع 

قد تمت الاجابة عن طلبك  وهو اخفاء الصفوف الصفرية اما مسالة المعادلة مجرد تخمين مني لا غير 😁

مع العلم انها تنفد المطلوب 

 

قد لاحظت انك لم تقم بوضع المعادلة بالشكل الصحيح جرب المرفق التالي ووافينا بالنتيجة  قد تم الغاء امر الطباعة مؤقتا  داخل الكود ووضع  ActiveSheet.PrintPreview يمكنك تعديله بعد التجربة 

 

 

البرنامج v2.xlsm

[ابواسماء ابوزيد]

تمام استاذى الفاضل محمد هشام اشتغل تمام جزاكم الله خيرا وزادكم الله نورا وسرورا