مساعدة فى اخفاء الحلايا

[Yousefessam]

اساتذتى الاجلاء

مرفق لكم ملف بداخله المطلوب فبرجاء المساعدة

مع الشكر

اخفاء الخلايا.rar

[سليم حاصبيا]

41 دقائق مضت, Yousefessam said:

اساتذتى الاجلاء

مرفق لكم ملف بداخله المطلوب فبرجاء المساعدة

مع الشكر

اخفاء الخلايا.rar

اكسل لا يقوم باخفاء خلية او عدة خلايا 

بل العامود كاملاً او الصف كاملاً

[عبدالله المجرب]

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

 

ولكن كما قال الاستاذ سليم

10 ساعات مضت, سليم حاصبيا said:

اكسل لا يقوم باخفاء خلية او عدة خلايا 

بل العامود كاملاً او الصف كاملاً

اخفاء الخلايا.rar

[سليم حاصبيا]

بعد اذن اخي عبدالله  هذا الكود

Option Explicit

Sub Hid_rows()
Dim i!
Sheets("Sheet1").Rows.Hidden = False
For i = 5 To Sheets("Sheet1").Cells(Rows.Count, 1).End(3).Row
 If Application.CountA(Range("b" & i & ":F" & i)) = 0 Then
   Range("b" & i).EntireRow.Hidden = True
   End If
Next
End Sub

 

[Yousefessam]

شكرا لكم جميعا وبالفعل الكودين بيشتغوا بامتياز

بس لو الخلية بها صفر لا يعمل الكود

حيث الكود يعمل على الخلايا الفارغة

برجاء تعديل الكود حتى يعمل على الخلايا الفارغة والتى تحتوى على صفر

[Yousefessam]

فى انتظار رد الأساتذة الأفاضل

 

[سليم حاصبيا]

استبدل الماكرو بهذا

Option Explicit
Sub Hid_rows()
Dim i!, t%
Application.ScreenUpdating = False
Sheets("Sheet1").Rows.Hidden = False

For i = 5 To Sheets("Sheet1").Cells(Rows.Count, 1).End(3).Row
t = Evaluate("=SUMPRODUCT(--((B" & i & ":F" & i & ")=0 " & "))")
If t = 5 Then Range("b" & i).EntireRow.Hidden = True
Next
Application.ScreenUpdating = true
End Sub

 

[Yousefessam]

شاكر كرمك اخى الفاضل