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

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الساده الكرام... 

 

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

اذا كان عدد ايام الشهر فى الخليه AP2

1-  يساوى 30 يتم اخفاء العمود AJ  فقط اى يوم 31

2-  يساوى 29 يتم اخفاء العمود AJ و AI فقط اى يوم 31 و 30

3-  يساوى 28 يتم اخفاء العمود AJ و AI و AH فقط اى يوم 31 و 30 و29

حيث ان عدد ايام الشهر او قيمه عدد ايام الشهر تتغير من خلال ادخال بدايه الشهر فى Y2

اى الاخفاء والاظهار يتم على اساس متغير الخلية AP2

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

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

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

تفضل أخي الحبيب أبو حنين

قم بتغيير التاريخ في الخلية Y2 ...

Hanin.rar

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخ الجليل ...ياسر خليل

والمعلم الكبير

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

وارجو ان يتسع وفتك لشرح الكود 

وما علاقة y2 بالكود اذا كان المتعير فى ap2

وهل يمكن اضافى MsgBox خلف كل شرط اضع بة رساله

 

 

 

ElseIf Not Intersect(Target, Range("Y2")) Is Nothing Then

            Columns("AG:AJ").Hidden = False

            If [AP2] = 30 Then Columns("AJ:AJ").Hidden = True

            If [AP2] = 29 Then Columns("AI:AJ").Hidden = True

            If [AP2] = 28 Then Columns("AH:AJ").Hidden = True

       End If

 

جزاك الله كل الحير

تم تعديل ديسمبر 23, 2014 بواسطه ۩◊۩ أبو حنين ۩◊۩

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

الفكرة أخي الحبيب أبو حنين أنه لكي يتم تنفيذ الكود الذي طلبته لابد من حدث معين ، ولما نظرت للخلية AP2 وجدت بها معادلة والمعادلة مرتبطة بالخلية Y2 ، فالبتالي من المنطق أن يتم التغيير في Y2 ليحدث التغيير في الخلية AP2 ومن ثم يتم تنفيذ الكود ..

بالنسبة للرسالة نعم يمكن إظهار رسالة بالشكل التالي ..

If [AP2] = 30 Then Columns("AJ:AJ").Hidden = True: MsgBox "العمود AJ سوف يتم إخفاؤه"

هذا على سبيل المثال أي في آخر الأسطر في الكود ، في نهاية كل سطر بعد تنفيذ أمر الإخفاء وممكن الرسالة قبله .. نضع نقطتين : ثم الأمر Msgbox والرسالة المطلوبة

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخ الحبيب ...ياسر خليل

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

كونك عونا للجميع ... ولا تبخل بما عنك لاى أحد

وهذا سمت جميع الاخوة الكرام بالمنتدى

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

[عبد الله بولنوار]

عذرا لتدخلي

 

لكن المجموع في عمود" فعلي" لا يتغير بتغير الايام

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخ عبد الله

قبل بداء ادخال اى بيانات جديده سوف يقوم كود بمسح المدخلات فى جميع الاياموعلى مستوى جميع الاسماءاى من الخليه F4 الى AI28

ارجو ان تكون الصورةواضحة

 

[عبد الله بولنوار]

واضحة تمام