سؤال خاص باخفاء الخلايا

[elzaem_yousif]

عملت اخفاء للاعمدة من k الى اخر ورقة العمل وكذلك للصفوف من 25 للاخر ازاى اظهرهم تانى

كمان ممكن اعمل برنامج عن طريق الدوال الموجودة بالكسل من غير ما استخدم ماكرو لانى معرفش فيجوال بيسك اساسا

طيب ايه المعادلة اللى ممكن تعبر عن التالى

لو a1 أو b1 فيهم بيان (مش فاضيين يعنى)

d1=a1 و e1=b1

المهم كلمة أو دى معناه اية فى الدالة : ولا ؛

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

اخى الكريم

قف فى الخليه B1 و اكتب الكود التالى

=IF(A1<>"";1;100)

هذا الكود معناه

اذا كانت الخليه A1 بها بيانات ( مش فاضيه ) ضع فى الخليه B1 رقم 1

و اذا كانت الخليه A1 ليس بها بيانات ضع فى الخليه B1 رقم 100

مع العلم ان

<> معناها لا تساوى

"" معناه خاليه

السلام عليكم

[علي السحيب]

الكود التالي يعمل على إظهار جميع الأعمدة والصفوف المخفية:

Sub UnhideRowsAndColumns()
ActiveSheet.Columns.Hidden = False
ActiveSheet.Rows.Hidden = False
End Sub

والصيغة التالية تعمل كما طلبت .. ويتم وضعها في الخلية D1:

=IF(OR(NOT(A1=""),NOT(B1="")),A1,"")

UnhideRowsAndColumns.rar

[elzaem_yousif]

استاذتى الاعزاء

مشكورين كتير على الرد والشرح

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

لكن !!!!!

الكود ده اكتبة فين بالتحديد سواء كان معادلة ا و فيجوال بيسك

والاصدار اللى عندى اوفيس 2000 هل يمكن كتابة الكود السابق فيه ؟؟؟

وجزاكم الله خير على المساعدة

[علي السحيب]

راجع الرابط التالي والخاص بكيفية نقل الكود من ملف إلى آخر:

http://www.officena.net/ib/index.php?showtopic=3069