تامر خليفه قام بنشر نوفمبر 14, 2016 مشاركة قام بنشر نوفمبر 14, 2016 مرحبا للجميع كما بالعنوان في جدول قد يطول او يقصر حسب البيانات كيف اخفي صف كامل اذا كانت الخليه "R" تحتوي علي صفر انا اعلم الكود الذي احدده في نطاق معين وهو Range("R8").Select Range("R8").Activate If ActiveCell.FormulaR1C1 = "0" Then Selection.EntireRow.Hidden = True End If ولكن هذا الكود في نطاق صغير محدد لكن في حاله كامل العامود فان الامر صعب جدا فما الحل وشكرا مقدما للتفاعل رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر نوفمبر 14, 2016 مشاركة قام بنشر نوفمبر 14, 2016 جرب هذين الكودين الاول لاخفاء الصفوف التي تحتوي عل صفر في العامود R و الثاني لاظهار كل شيء Sub hide_rows_with_zero() Application.ScreenUpdating = False ActiveSheet.Cells.EntireRow.Hidden = False rr = Cells(Rows.Count, "r").End(3).Row For k = 1 To rr If Cells(k, "r") = 0 Then Cells(k, "r").EntireRow.Hidden = True Next Application.ScreenUpdating = True End Sub '============================================ Sub Unhide_ALL() ActiveSheet.Cells.EntireRow.Hidden = False End Sub '======================================== رابط هذا التعليق شارك More sharing options...
تامر خليفه قام بنشر نوفمبر 15, 2016 الكاتب مشاركة قام بنشر نوفمبر 15, 2016 الكود لا يعمل ويظهر خطا رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر نوفمبر 15, 2016 مشاركة قام بنشر نوفمبر 15, 2016 3 ساعات مضت, تامر خليفه said: الكود لا يعمل ويظهر خطا ارفع الملف او جزءًا منه اذا كان كبيراً لاكتشاف المشكل رابط هذا التعليق شارك 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.