خالد الشاعر قام بنشر أكتوبر 31, 2014 مشاركة قام بنشر أكتوبر 31, 2014 السادة الخبراء مرفق ملف به ماكرو لاخفاء الصفوف الفارغة ولكن الصفوف كلها بها معادلات و لايحس بها فارغة فهل يوجد حل لهذه المشكلة جزاكم الله كل خير رابط هذا التعليق شارك More sharing options...
خالد الشاعر قام بنشر أكتوبر 31, 2014 الكاتب مشاركة قام بنشر أكتوبر 31, 2014 الملف مرفق اخفا صفوف.rar رابط هذا التعليق شارك More sharing options...
شوقي ربيع قام بنشر أكتوبر 31, 2014 مشاركة قام بنشر أكتوبر 31, 2014 السلام عليكم استبدل اكواد الملف بهذه الاكواد Option Explicit Sub Hidden2() Dim Cl As Range Application.ScreenUpdating = False For Each Cl In Range("A14:A213") If Cl = "" Then Cl.EntireRow.Hidden = True End If Next Cl [kh_Row2] = "اضهار جميع الصفوف الفارغة" Application.ScreenUpdating = True End Sub Sub UnHidden2() Dim Cl As Range Application.ScreenUpdating = False For Each Cl In Range("A14:A213") If Cl.EntireRow.Hidden = True Then Cl.EntireRow.Hidden = False End If Next Cl [kh_Row2] = "اخفاء الصفوف الفارغة " Application.ScreenUpdating = True End Sub Sub Rows() ActiveSheet.Unprotect If [kh_Row2] = "اضهار جميع الصفوف الفارغة" Then UnHidden2 Else Hidden2 End Sub تحياتي 2 رابط هذا التعليق شارك More sharing options...
خالد الشاعر قام بنشر أكتوبر 31, 2014 الكاتب مشاركة قام بنشر أكتوبر 31, 2014 استاذ شوقى جزاك الله كل خير تسلم ايدك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان