طلعت محمد حسن قام بنشر نوفمبر 12, 2016 مشاركة قام بنشر نوفمبر 12, 2016 أخفاء الاعمدة التي يكون مجموعها صفر واظهارها اخفاء الاعمدة قمتها صفر.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر نوفمبر 12, 2016 مشاركة قام بنشر نوفمبر 12, 2016 جرب هذين الماكروين Sub hidde_columns() 'اخفاء الأعمدة unhidde_columns For i = 1 To Range("b1:j1").Count If Range("b1:j1").Cells(i) = 0 Then Range("b1:j1").Cells(i).EntireColumn.Hidden = True End If Next End Sub '============================================ Sub unhidde_columns() 'اظهار الاعمدة Range("b1:j1").EntireColumn.Hidden = False End Sub رابط هذا التعليق شارك 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.