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

[مهند الزيدي]

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

إخفاء الأعمدة.rar

[رجب جاويش]

السلام عليكم

تفضل أخى

كود الاخفاء

Sub ragab()
Dim rng As Range
Dim cl As Range
Dim LC As Integer
Application.ScreenUpdating = False
LC = Range("A1").End(xlToRight).Column
Set rng = Range(Cells(11, 2), Cells(11, LC))
For Each cl In rng
If cl.Value = 0 Then
cl.EntireColumn.Hidden = True
End If
Next
Application.ScreenUpdating = True
End Sub

وهذا كود الاظهار

Sub ragab1()
Dim rng As Range
Dim LC As Integer
Application.ScreenUpdating = False
LC = Range("A1").End(xlToRight).Column
Set rng = Range(Cells(11, 2), Cells(11, LC))
rng.EntireColumn.Hidden = False
Application.ScreenUpdating = True
End Sub

 

Book2.rar

[مهند الزيدي]

شكرا اخي رجب جاويش .. وفقك الله لما فيه الخير...

ممكن شرح للكود

[رجب جاويش]

أخى مهند

هذا هو شرح كود الاخفاء

Sub ragab()
'تعريف المتغيرات
Dim rng As Range
Dim cl As Range
Dim LC As Integer
'ايقاف اهتزاز الشاشة لتسريع الكود
Application.ScreenUpdating = False
'تحديد رقم آخر عمود فارغ فى الصف الأول
LC = Range("A1").End(xlToRight).Column
'تحديد المدى بالخلايا المحتوية على المجموع فى الصف الحادى عشر
Set rng = Range(Cells(11, 2), Cells(11, LC))
'حلقة تكرارية لمعرفة الخلايا المحتوية على القيمة صفر  فى المجموع
For Each cl In rng
If cl.Value = 0 Then
'اخفاء عمود الخلايا المحتوية على صفر
cl.EntireColumn.Hidden = True
End If
Next
' ارجاع اهتزاز الشاشة
Application.ScreenUpdating = True
End Sub

وبالنسبة لكود الاظهار فهو يقوم بالعملية العكسية

[مهند الزيدي]

شكرا اخي العزيز رجب .. اطال الله في عمرك

[رجب جاويش]

على شكر على واجب أخى الفاضل