Yousefessam قام بنشر سبتمبر 8, 2017 مشاركة قام بنشر سبتمبر 8, 2017 اساتذتى الاجلاء مرفق لكم ملف بداخله المطلوب فبرجاء المساعدة مع الشكر اخفاء الخلايا.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر سبتمبر 8, 2017 مشاركة قام بنشر سبتمبر 8, 2017 41 دقائق مضت, Yousefessam said: اساتذتى الاجلاء مرفق لكم ملف بداخله المطلوب فبرجاء المساعدة مع الشكر اخفاء الخلايا.rar اكسل لا يقوم باخفاء خلية او عدة خلايا بل العامود كاملاً او الصف كاملاً 1 رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر سبتمبر 8, 2017 مشاركة قام بنشر سبتمبر 8, 2017 الملف به التعديل المطلوب ولكن كما قال الاستاذ سليم 10 ساعات مضت, سليم حاصبيا said: اكسل لا يقوم باخفاء خلية او عدة خلايا بل العامود كاملاً او الصف كاملاً اخفاء الخلايا.rar 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر سبتمبر 8, 2017 مشاركة قام بنشر سبتمبر 8, 2017 بعد اذن اخي عبدالله هذا الكود 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 رابط هذا التعليق شارك More sharing options...
Yousefessam قام بنشر سبتمبر 9, 2017 الكاتب مشاركة قام بنشر سبتمبر 9, 2017 شكرا لكم جميعا وبالفعل الكودين بيشتغوا بامتياز بس لو الخلية بها صفر لا يعمل الكود حيث الكود يعمل على الخلايا الفارغة برجاء تعديل الكود حتى يعمل على الخلايا الفارغة والتى تحتوى على صفر رابط هذا التعليق شارك More sharing options...
Yousefessam قام بنشر سبتمبر 9, 2017 الكاتب مشاركة قام بنشر سبتمبر 9, 2017 فى انتظار رد الأساتذة الأفاضل رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر سبتمبر 9, 2017 مشاركة قام بنشر سبتمبر 9, 2017 استبدل الماكرو بهذا 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 رابط هذا التعليق شارك More sharing options...
Yousefessam قام بنشر سبتمبر 9, 2017 الكاتب مشاركة قام بنشر سبتمبر 9, 2017 شاكر كرمك اخى الفاضل رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.