اخفاء اعمدة بشروط نصية

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

السلام عليكم

الاخوة الاعزاء عندي ملف اكسل به كود اخفاء يوم السبت فقط 

حاولت اضيف عليه اخفاء يومي السبت والجمعة لم افلح في ذلك

هل يمكن ابداء مساعدة الاساتذة لذلك

لكم وافر احترامي وتقديري

 

اخفاءيومي الجمعة والسبت.xls

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

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

Option Explicit

Sub hid_for_me()
Dim Arr(), i%, x%
Dim c%
Application.ScreenUpdating = False
ActiveSheet.Columns.Hidden = False
c = Cells(4, Columns.Count).End(1).Column
Range(Cells(4, 2), Cells(4, c)).EntireColumn.Hidden = False
ReDim Arr(1 To 2)
Arr(1) = "الجمعة": Arr(2) = "السبت"
For i = 2 To c
 x = IsError(Application.Match(Cells(4, i), Arr, 0))
If x = 0 Then
 Cells(4, i).EntireColumn.Hidden = True
End If
 Next
 Erase Arr
 Application.ScreenUpdating = True
End Sub
'===========================================
Sub unhide_col()
ActiveSheet.Columns.Hidden = False
End Sub

 

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

السلام عليكم

الاستاذ المحترم سليم حاصبيا جزاكم الله خيرا

شكرا لكم دائما سباق لعمل الخير ومساعدة الاخوة الاعضاء

جعله الله في ميزان حسناتكم

الكود يعمل بشكل ممتاز عندما تكون ايام الاسبوع مكتوبة يدويا

لكن عندما نستخرج ايام الاسبوع بالمعادلات الكود لايعمل

ارجو التفضل بجعل الكود يعمل اذا كانت الايام بالمعادلات

تحياتي

اخفاءيومي الجمعة والسبت (2).xls

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

تم معاجة الامر

الكود يعمل بالطريقتين

 

اخفاءيومي الجمعة والسبت _two_ways.xls

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

السلام عليكم

الاستاذ المحترم سليم حاصبيا جزاكم الله خيرا

جهودكم مشكورة واعمالكم في قمة الابداع

جربت الملف نفسه الذي رفعته اذا كان الشهر 31 يوم الكود يعمل بصورة صحيحة ولايظهر خطا

اما اذا كان الشهر 30 يوم او 28 يوم يعني اقل من 31 يظهر صورة الخطا المرفقة لكن عندما اضغط END يختفي الفورم ويعمل الكود ويخفي الجمعة والسبت

القصد الكود يعمل لكن عندما تقل الايام عن 31 يظهر الرسالة وبعد اخفائها ينفذ الكود بشكل صحيح

هل يمكن معالجة خطا الرسالة 

تحياتي لكم

 

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

اضف هذه العبارة مباشرة بعد السطر  For i=3 to c

On Error Resume Next

 

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

السلام عليكم

الاستاذ المحترم سليم حاصبيا جزاكم الله خيرا

وفقكم الله واعطاكم الصحة والعافية

تحياتي لكم