كيفية اختيار أعمدة معينة وإخفائها

[MPC]

يتطلب الامر احيانا اخفاء بعض الاعمدة وفقا لرأس (عنوان ) العمود مثل "تأخير صبحا" والتى تكون مكررة على اكثر من عمود خلال الشهر وذلك للحصول على تقرير معين وكتبت الاكواد التالية لذلك ولكن اشعر انها اقرب الى اليدوى فهل من طريقة افضل

()Sub Delay
Sheets("sheet1").Visible = True
Worksheets("sheet1").Activate
Sheets("sheet1").Select
   Range("b:b,E:E,I:J,K:L,N:T,V:AB,AD:AJ,AL:AR,AT:AZ,BB:BH,BJ:BP,BR:BX,BZ:CF,CH:CN,CP:CV,CX:DD,DF:DL,DN:DT,DV:EB,ED:EJ,EL:ER,ET:EZ,FB:FH,FJ:FP,FR:FX,FZ:GF,GH:GN,GP:GV,GX:HD,HF:HL,HN:HT,HV:IB,ID:Ij,IL:IR,IT:IX,IZ:je").Select
    Selection.EntireColumn.Hidden = True

End Sub

 

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

هات الملف (نموذج ما لا يزيد عن 5 صفوف) و خذ ما يدهش العالم

[MPC]

 

Book-31-10-2019.xlsx

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

جرب هذا الكود

Option Explicit
Sub HID_COLUMNS()
Dim I%
Range(Cells(1, 5), Cells(1, 262)).EntireColumn.Hidden = True

For I = 13 To 262 Step 8
Cells(1, I).EntireColumn.Hidden = False
Next
End Sub

 

[وجيه شرف الدين]

ما شاء الله استاذ سليم جزاكم الله خير وجعله الله فى ميزان حسناتك

[MPC]

  أستاذى الكريم

سليم حاصبيا تسلم ايدك وجعله الله فى ميزان حسناتك 👍