سعيد 1428 قام بنشر أغسطس 28, 2018 مشاركة قام بنشر أغسطس 28, 2018 (معدل) ايها الإخوة السلام عليكم ورحمة الله الكود التالي يقوم بإخفاء الصف بناء على قيمة الخلية في العمود J كيف يمكن تعديل الكود بحيث أضيف عليه شرط آخر وهو ان تكون الخلية في العمود G تحقق نفس الشرط الموجود في الخلية في العمود J باختصار يجب ن تكون الخلايا في العمود J والخلايا في العمود G مساوية لصفر في نفس الصف حتى يتم إخفاء هذا الصف وشكرا Private Sub ComboBox1_Change() 'ComboBox1.DropDown Dim LastRow As Long, c As Range Application.EnableEvents = False LastRow = Cells(Cells.Rows.Count, "j").End(xlUp).Row On Error Resume Next For Each c In Range("j11:J30") If c.Value = 0 Then c.EntireRow.Hidden = True ElseIf c.Value > 0 Then c.EntireRow.Hidden = False End If Next On Error GoTo 0 Application.EnableEvents = True End Sub تم تعديل أغسطس 28, 2018 بواسطه سعيد 1428 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أغسطس 28, 2018 مشاركة قام بنشر أغسطس 28, 2018 هذا الماكرو سيقوم بالواجب Option Explicit Private Sub ComboBox1_Change() 'ComboBox1.DropDown Dim My_rg As Range: Set My_rg = Range("j11:J30") Dim c As Range Application.EnableEvents = False My_rg.EntireRow.Hidden = False For Each c In My_rg If c.Value = 0 And c.Offset(, -3).Value = 0 Then _ c.EntireRow.Hidden = True Next Application.EnableEvents = True End Sub رابط هذا التعليق شارك More sharing options...
سعيد 1428 قام بنشر أغسطس 28, 2018 الكاتب مشاركة قام بنشر أغسطس 28, 2018 (معدل) الاستاذ/ سليم اشكركم على ردكم الجميل عند تجربة الماكرو ظهر الخطأ عند السطر My_rg.EntireRow.Hidden = False رسالة الخطأ هي :لا يمكن تعيين الخاصية hidden من الفئىة range تم تعديل أغسطس 28, 2018 بواسطه سعيد 1428 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أغسطس 28, 2018 مشاركة قام بنشر أغسطس 28, 2018 جرب هذا الملف بنفس الماكرو SHOW_HIDE_ROWS.xlsm رابط هذا التعليق شارك More sharing options...
سعيد 1428 قام بنشر أغسطس 29, 2018 الكاتب مشاركة قام بنشر أغسطس 29, 2018 شكرا أخي سليم وبارك الله فيكم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان