بسم الله الرحمن الرحيم
الاخ الجزيرة
بعد التحية
هذا الكود بقوم بطباعة الصفوف فى المدى المستخدم " UsedRange " بناء على شروط محددة
وهى ان تكون الخلييتين " C " و " D " من كل صف فى هذة المدى لاتحتوى صفر فإذا كانتا تحتويان على صفر يقوم
بأخفاء هذه الصفوف قبل الطباعة .
With Sheets("Balance")
فى الورقة المساه " Balance "
With .UsedRange
مع المدى المستخدم
For i = 4 To .Rows.Count
من اول صف رقم 4 الى عدد الصفوف فى هذا المدى
سوف يقوم بالاختبار الاتى قبل عملية لبطباعة
عداد الدورة "For "
وهو "i "
يمثل رقم الصف المختبر
If .Cells(i, 3).Value = 0 And .Cells(i, 4).Value = 0 Then
اذا كانت الخلية "C4"
وهى (i, 3)
و اذا كانت الخلية "D4"
وهى (i, 4)
تساويان صفر
اذن
.Cells(i, 3).EntireRow.Hidden = True
.Cells(i, 4).EntireRow.Hidden = True
هذا الصف وهو الصف الرابع قم بأخفاءه
End If
ثم يعاود الاختبار حتى تنتهى صفوف المدى المستخدم
Next i
End With
.PrintOut
هنا يقوم بالطباعة
.Rows.Hidden = False
ثم يظهر الصفوف المخفية فى الورقة
End With
الهدف من الكود اخفاء الصفوف فى المدى المستخدم التى تحقق شرط او شروط محددة
ثم يقوم بطباعة المدى المستخدم بدون هذه الصفوف
ثم يقوم بأظهار جميع صفوف الورقة