اخفاء الاعمدة التي تحتوي على الجمعة والسبت

[مصطفى محمود مصطفى]

السلام عليكم

هل يمكن اخفاء ايام الجمعة والسبت من الاعمدة كما موجود من عمل الاستاذ دغيدي جزاه الله خيرا للصفوف  

.ويكون عمل الكود في حدث الورقة حتى يعمل تلقائيا

..... بارك الله بكم

 

اخفاء الاعمدة التي تحتوي على ايام السبت والجمعة.rar

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

جرب هذا الكود

Sub hide_for_me()
    With Application
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
    End With
If ActiveSheet.Name <> "ورقة1" Then GoTo exit_sub
Dim Last_Col%, i%
Last_Col = ActiveSheet.Cells(4, Columns.Count).End(1).Column
Range("b3").Resize(1, Last_Col - 1).Columns.Hidden = False
For i = 3 To Last_Col - 1
If Weekday(Cells(4, i)) > 5 Then Cells(3, i).EntireColumn.Hidden = True
Next
exit_sub:
    With Application
        .ScreenUpdating = True
        .Calculation = xlCalculationAutomatic
    End With
End Sub

 

[مصطفى محمود مصطفى]

الاستاذسليم حاصبيا

جزاكم الله خيرا