اظهار اعمدة بناء علي تاريخ محدد

[ابوصلاح]

السلام عليكم

المطلوب باختصار بعد اذن حضرتكم ان سمح وقتكم الغالي

اخفاء الاعمدة التي تبدا من تاريخ 1/10/2016

حتى 31/10/2016

مع اظهار العمود الذي به تاريخ الخلية c2

ولكم جزيل الشكر

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

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

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

Sub hide_col()
Application.ScreenUpdating = False
    Range("e1:ai1").EntireColumn.Hidden = True
    My_Match = Application.Match(Range("c2"), Range("e4:ai4"), 0) + 4
    Cells(4, My_Match).EntireColumn.Hidden = False
Application.ScreenUpdating = True
End Sub

 

[ابوصلاح]

اقتباس

اقتباس

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

كنت اود ان افهم الجزئية الاتية

 My_Match = Application.Match(Range("c2"), Range("e4:ai4"), 0) + 4

 

 

[ياسر خليل أبو البراء]

أخي العزيز أبو صلاح

بالنسبة للسطر المشار إليه يقوم بجلب رقم العمود المستهدف (أي العمود المطلوب إظهاره فقط)

وهنا قام الأخ سليم باستخدام الدالة MATCH حيث يتم البحث عن التاريخ الموجود في الخلية C2 ضمن النطاق E4:AI4 وعند وجود التاريخ المطلوب يتم تحديد العمود ، والإضافة + 4 لأن العمود الذي سيتعامل معه يلي الأعمدة الأربعة الأولى

مثال : لنفترض أن الخلية C2 بها التاريخ 3/10/2016 أي العمود G .. سيتم البحث عن التاريخ ضمن النطاق E4:AI4 وستكون النتيجة عبارة عن رقم 3 ثم يضاف الرقم 4 ليصبح رقم العمود الذي سيتم التعامل معه هو العمود السابع

 

ويمكن الاستغناء عن الرقم 4 بتعديل النطاق وجعله A4:AI4 بدلاُ من E4:AI4

وكل عام وأنتم بخير

 

[Ayman sha]

جزاكم الله خيرا و نفع بكم