ابو طيبه قام بنشر فبراير 11, 2021 مشاركة قام بنشر فبراير 11, 2021 السلام عليكم استاذتنا الاعزاء محتاج اضافه للكود الملف ليطبق على كل صفحات الملف باستثناء صفحتين٤ و٥ بإخفاء الصفوف بداية من الصف 10 الى الصف 15 مع جزيلا الشكر كود لإخفاء الصفوف واظهارها.xls رابط هذا التعليق شارك More sharing options...
أفضل إجابة Ali Mohamed Ali قام بنشر فبراير 11, 2021 أفضل إجابة مشاركة قام بنشر فبراير 11, 2021 وعليكم السلام-يمكنك استخدام هذا الكود لطلبك Sub Hide() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets If ws.Name <> "Sheet4" And ws.Name <> "Sheet5" Then ws.Rows("10:15").EntireRow.Hidden = Not ws.Rows("10:15").EntireRow.Hidden End If Next End Sub كود لإخفاء الصفوف واظهارها.xlsm 2 1 رابط هذا التعليق شارك More sharing options...
ابو طيبه قام بنشر فبراير 12, 2021 الكاتب مشاركة قام بنشر فبراير 12, 2021 شكرا جزيلا لك استاذ العزيز علي المحترم الكود يعمل بشكل ممتاز الله يحفظك ويبارك بيك وبجهودك ويجعلهافي ميزان حسناتك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها