أخفاء الاعمدة التي تكون مجموعها يساوي صفر

[طلعت محمد حسن]

أخفاء الاعمدة التي يكون مجموعها صفر واظهارها

اخفاء الاعمدة قمتها صفر.rar

[سليم حاصبيا]

جرب هذين الماكروين

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